Branch Coverage

blib/lib/CGI/AIS/Session.pm
Criterion Covered Total %
branch 0 46 0.0


line true false branch
26 0 0 unless socket SOCK, 2, 1, $proto
27 0 0 unless connect SOCK, $paddr
55 0 0 unless tie my %Session, $Param{'tieargs'}[0], $Param{'tieargs'}[1], $Param{'tieargs'}[2], $Param{'tieargs'}[3], $Param{'tieargs'}[4], $Param{'tieargs'}[5], $Param{'tieargs'}[6], $Param{'tieargs'}[7], $Param{'tieargs'}[8], $Param{'tieargs'}[9]
69 0 0 if ($Session{$Cookie}) { }
87 0 0 unless ($Cookie or defined $PostKey)
90 0 0 if ($ENV{'REQUEST_METHOD'} eq 'POST') { }
101 0 0 if ($PostKey)
102 0 0 unless pipe POSTREAD, POSTWRITE
103 0 0 if (fork) { }
115 0 0 unless close POSTWRITE
116 0 0 if $Cookie
123 0 0 if ($ENV{'QUERY_STRING'} =~ /AIS_OTUkey=(\w+)/) { }
0 0 elsif (not $Cookie) { }
125 0 0 unless my($method, $host, $port, $path) = $Param{'aissri'} =~ m[^(\w+)://([^:/]+):?(\d*)(.+)$]
128 0 0 unless ($method eq 'http')
139 0 0 unless ($AISXML) = $Response =~ m[(.+)]is
147 0 0 if ($ENV{'REQUEST_METHOD'} eq 'POST')
158 0 0 if $ENV{'QUERY_STRING'} eq 'AIS_LOGOUT'
169 0 0 unless $AISXML =~ m[<$_>(.+)]is
173 0 0 if (defined $Param{'timeout'})
180 0 0 if ($Result{'identity'} eq 'NULL' or $Result{'identity'} eq 'ERROR')
182 0 0 if $SessionKey
184 0 0 unless $Param{'nodie'}