File Coverage

blib/lib/VoiceXML/Client/Item/Submit.pm
Criterion Covered Total %
statement 23 42 54.7
branch 1 12 8.3
condition 3 6 50.0
subroutine 5 6 83.3
pod 1 2 50.0
total 33 68 48.5


line stmt bran cond sub pod time code
1              
2             package VoiceXML::Client::Item::Submit;
3              
4              
5 3     3   30 use base qw (VoiceXML::Client::Item);
  3         6  
  3         229  
6 3     3   21 use VoiceXML::Client::Util;
  3         8  
  3         84  
7              
8              
9             =head1 COPYRIGHT AND LICENSE
10              
11            
12             Copyright (C) 2007,2008 by Pat Deegan.
13             All rights reserved
14             http://voicexml.psychogenic.com
15              
16             This library is released under the terms of the GNU GPL version 3, making it available only for
17             free programs ("free" here being used in the sense of the GPL, see http://www.gnu.org for more details).
18             Anyone wishing to use this library within a proprietary or otherwise non-GPLed program MUST contact psychogenic.com to
19             acquire a distinct license for their application. This approach encourages the use of free software
20             while allowing for proprietary solutions that support further development.
21              
22              
23             This file is part of VoiceXML::Client.
24              
25            
26            
27             VoiceXML::Client is free software: you can redistribute it and/or modify
28             it under the terms of the GNU General Public License as published by
29             the Free Software Foundation, either version 3 of the License, or
30             (at your option) any later version.
31              
32             VoiceXML::Client is distributed in the hope that it will be useful,
33             but WITHOUT ANY WARRANTY; without even the implied warranty of
34             MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
35             GNU General Public License for more details.
36              
37             You should have received a copy of the GNU General Public License
38             along with VoiceXML::Client. If not, see .
39              
40              
41             =cut
42              
43              
44              
45 3     3   15 use strict;
  3         6  
  3         97  
46              
47 3         1314 use vars qw{
48             $VERSION
49 3     3   15 };
  3         5  
50              
51             $VERSION = $VoiceXML::Client::Item::VERSION;
52              
53              
54              
55             sub init {
56 2     2 1 3 my $self = shift;
57            
58 2   50     7 $self->{'next'} = $self->{'XMLElement'}->attribute('next') || '';
59 2   50     45 $self->{'namelist'} = $self->{'XMLElement'}->attribute('namelist') || '';
60 2   50     37 $self->{'method'} = $self->{'XMLElement'}->attribute('method') || 'get';
61              
62 2         41 $self->{'vars'} = [];
63 2 50       8 if ($self->{'namelist'})
64             {
65 2         9 my @names = split(/\s+/, $self->{'namelist'});
66 2         5 foreach my $n (@names)
67             {
68 4         5 push @{$self->{'vars'}}, $n;
  4         13  
69             }
70             }
71            
72 2         6 return 1;
73            
74             }
75              
76              
77             sub execute {
78 0     0 0   my $self = shift;
79 0           my $handle = shift;
80 0           my $optParms = shift;
81            
82            
83 0           my $vxmlDoc = $self->getParentVXMLDocument();
84            
85 0           my $next = $self->{'next'};
86 0 0         unless ($next)
87             {
88 0           warn "Submit::executed called but next not set?";
89            
90 0           return $VoiceXML::Client::Flow::Directive{'ABORT'};
91             }
92            
93            
94 0 0         if (scalar @{$self->{'vars'}})
  0            
95             {
96 0 0         $next .= '?' unless ($next =~ m/\?/);
97            
98 0           foreach my $v (@{$self->{'vars'}})
  0            
99             {
100 0           my $val = $vxmlDoc->globalVar($v);
101 0 0         if (defined $val)
102             {
103 0           $next .= "$v=$val&";
104             }
105             }
106             }
107            
108 0 0         VoiceXML::Client::Util::log_msg("SUBMIT Setting next doc to '$next'") if ($VoiceXML::Client::Debug);
109            
110 0           $vxmlDoc->nextDocument($next);
111            
112 0           return $VoiceXML::Client::Flow::Directive{'NEXTDOC'};
113             }
114            
115            
116              
117              
118             1;