examples/test1.pl


1
2
3
4
5
6
7
8
9
10

#!/usr/bin/perl
use Data::Dumper;
use lib '../lib';
use Asterisk::config;

my $rc = new Asterisk::config(file=>'sip.conf',keep_resource_array=>0);
if ($rc) {
	print "true";
}
print Dumper $rc;