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


line stmt bran cond sub pod time code
1             #
2             # $Id$
3             #
4             package Asterisk;
5              
6             require 5.004;
7              
8 12     12   38 use vars qw($VERSION);
  12         11  
  12         1354  
9              
10             $VERSION = '1.08';
11              
12 0     0 0   sub version { $VERSION; }
13              
14             sub new {
15 0     0 0   my ($class, %args) = @_;
16 0           my $self = {};
17 0           $self->{configfile} = undef;
18 0           $self->{config} = {};
19 0   0       bless $self, ref $class || $class;
20 0           return $self;
21             }
22              
23       0     sub DESTROY { }
24              
25             package asterisk::perl;
26              
27             =head1 NAME
28              
29             asterisk::perl
30              
31             This module exists solely to satisfy packaging requirements.
32              
33             =cut
34              
35              
36             1;