File Coverage

blib/lib/VoiceXML/Client/Engine/Component/Interpreter/Context.pm
Criterion Covered Total %
statement 12 15 80.0
branch n/a
condition 1 3 33.3
subroutine 3 4 75.0
pod 1 3 33.3
total 17 25 68.0


line stmt bran cond sub pod time code
1              
2             package VoiceXML::Client::Engine::Component::Interpreter::Context;
3              
4 3     3   21 use strict;
  3         9  
  3         589  
5              
6              
7              
8             =head1 COPYRIGHT AND LICENSE
9              
10            
11             Copyright (C) 2007,2008 by Pat Deegan.
12             All rights reserved
13             http://voicexml.psychogenic.com
14              
15             This library is released under the terms of the GNU GPL version 3, making it available only for
16             free programs ("free" here being used in the sense of the GPL, see http://www.gnu.org for more details).
17             Anyone wishing to use this library within a proprietary or otherwise non-GPLed program MUST contact psychogenic.com to
18             acquire a distinct license for their application. This approach encourages the use of free software
19             while allowing for proprietary solutions that support further development.
20              
21              
22             This file is part of VoiceXML::Client.
23              
24            
25            
26             VoiceXML::Client is free software: you can redistribute it and/or modify
27             it under the terms of the GNU General Public License as published by
28             the Free Software Foundation, either version 3 of the License, or
29             (at your option) any later version.
30              
31             VoiceXML::Client is distributed in the hope that it will be useful,
32             but WITHOUT ANY WARRANTY; without even the implied warranty of
33             MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
34             GNU General Public License for more details.
35              
36             You should have received a copy of the GNU General Public License
37             along with VoiceXML::Client. If not, see .
38              
39              
40             =cut
41              
42              
43             =head2 new
44              
45             Creates a new instance
46              
47             =cut
48              
49             sub new {
50 4     4 1 10 my $class = shift;
51 4         8 my $params = shift;
52            
53 4         8 my $self = {};
54            
55 4   33     40 bless $self, ref $class || $class;
56            
57 4         27 $self->init($params);
58 4         12 return $self;
59             }
60              
61             sub init {
62 4     4 0 9 my $self = shift;
63 4         9 my $params = shift;
64            
65 4         14 return 1;
66             }
67              
68              
69             sub eval {
70 0     0 0   my $self = shift;
71 0           my $code = shift;
72              
73 0           die "override in subclass";
74            
75             }
76              
77              
78             1;