File Coverage

lib/Asterisk/Config/MeetMe.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition 1 3 33.3
subroutine 3 3 100.0
pod 0 1 0.0
total 22 25 88.0


line stmt bran cond sub pod time code
1             package Asterisk::Config::MeetMe;
2              
3             require 5.004;
4              
5             =head1 NAME
6              
7             Asterisk::Config::MeetMe - MeetMe configuration stuff
8              
9             =head1 SYNOPSIS
10              
11             stuff goes here
12              
13             =head1 DESCRIPTION
14              
15             description
16              
17             =over 4
18              
19             =cut
20              
21 1     1   653 use Asterisk;
  1         2  
  1         21  
22 1     1   237 use Asterisk::Config;
  1         2  
  1         132  
23             @ISA = ('Asterisk::Config');
24              
25             $VERSION = '0.01';
26              
27             $DEBUG = 5;
28              
29             sub new {
30 1     1 0 572 my ($class, %args) = @_;
31 1         2 my $self = {};
32 1         2 $self->{'name'} = 'MeetMe';
33 1         1 $self->{'description'} = 'MeetMe Configuration';
34 1         1 $self->{'configfile'} = '/etc/asterisk/meetme.conf';
35 1         2 $self->{'config'} = {};
36 1         1 $self->{'configtemp'} = {};
37 1         1 $self->{'contextorder'} = ( 'rooms' );
38 1         1 $self->{'channelgroup'} = {};
39              
40 1         6 $self->{'variables'} = {
41             #this stuff can only be in general context
42              
43             #need to put together some list of codecs somewhere
44             'conf' => { 'default' => undef, 'type' => 'multitext', 'regex' => '^\w*$' },
45              
46             };
47              
48              
49 1   33     6 bless $self, ref $class || $class;
50 1         1 return $self;
51             }
52              
53              
54             1;