freeswitch/libs/libtpl-1.5/lang/perl/tests/test15

18 lines
199 B
Plaintext
Raw Normal View History

#!/usr/bin/perl
#
use strict;
use warnings;
use lib "..";
use Tpl;
my $tmp1 = "test15.tpl";
my $j;
my $tpl2 = Tpl->tpl_map("i",\$j);
$tpl2->tpl_load($tmp1);
$tpl2->tpl_unpack(0);
print "$j\n";