21 lines
261 B
Perl
21 lines
261 B
Perl
package Asterisk;
|
|
|
|
require 5.004;
|
|
|
|
$VERSION = '0.08';
|
|
|
|
sub version { $VERSION; }
|
|
|
|
sub new {
|
|
my ($class, %args) = @_;
|
|
my $self = {};
|
|
$self->{configfile} = undef;
|
|
$self->{config} = {};
|
|
bless $self, ref $class || $class;
|
|
return $self;
|
|
}
|
|
|
|
sub DESTROY { }
|
|
|
|
1;
|