examples/test3.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

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

my $rc = new Asterisk::config(file=>'sip.conf');

print $rc->fetch_sections_hashref();
print "\n\n";

if ($rc->reload()) {
	print "true reload\n\n";
}

print $rc->fetch_sections_hashref();
print "\n\n";