File Coverage

lib/Asterisk.pm

Criterion	Covered	Total	%
statement	3	10	30.0
branch			n/a
condition	0	3	0.0
subroutine	1	4	25.0
pod	0	2	0.0
total	4	19	21.0

#
# $Id$
#
package Asterisk;

require 5.004;

use vars qw($VERSION);

$VERSION = '1.07';

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;