Importing Asterisk::config 0.96 from tarball

1 files changed, 14 insertions, 0 deletions

diff --git a/examples/test4.pl b/examples/test4.pl
new file mode 100755
index 0000000..bb6b1f3
--- /dev/null
+++ b/examples/test4.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+use Data::Dumper;
+use lib '../lib';
+use Asterisk::config;
+
+my $rc = new Asterisk::config(file=>'sip.conf');
+
+if (!$rc->set_objvar(mytest=>'test')) {
+	print "not found\n";
+}
+
+$rc->set_objvar(reload_when_save=>123467);
+
+print $rc->get_objvar('reload_when_save');