Branch Coverage

blib/lib/XMLRPC/PurePerl.pm
Criterion Covered Total %
branch 77 178 43.2


line true false branch
147 0 0 unless ref($self) =~ /^XMLRPC::PurePerl/
153 0 0 unless $res->is_success
167 0 0 if $_[0] eq 'XMLRPC::PurePerl'
189 0 0 if $_[0] eq 'XMLRPC::PurePerl'
212 8 0 if $_[0] eq 'XMLRPC::PurePerl'
216 1 7 if (not $ref) { }
1 6 elsif ($ref eq 'ARRAY') { }
1 5 elsif ($ref eq 'HASH') { }
5 0 elsif ($ref =~ /^XMLRPC::PurePerl::Type::(.+)$/) { }
0 0 elsif ($ref eq 'CODE') { }
217 0 1 if ($obj =~ /^\-?[0-9]+\.[0-9]*$/) { }
0 1 elsif ($obj =~ /^-?[0-9]+$/) { }
239 1 4 if ($1 eq 'datetime') { }
258 8 0 if $_[0] eq 'XMLRPC::PurePerl'
261 0 8 if (ref $xml eq 'ARRAY') { }
272 3 14 if ($tokens[$position] =~ /$startString/) { }
1 13 elsif (lc $tokens[$position] eq 'struct') { }
1 12 elsif (lc $tokens[$position] eq 'array') { }
1 11 elsif ($tokens[$position] =~ /$startDate/) { }
1 10 elsif (lc($tokens[$position]) =~ /$boolRgx/) { }
1 9 elsif (lc($tokens[$position]) =~ /$b64Rgx/) { }
294 8 0 if (scalar @outbound == 1) { }
297 0 0 if (wantarray) { }
324 0 0 if $_[0] eq 'XMLRPC::PurePerl'
330 0 0 if ($xml =~ //)
338 0 0 if ($tokens[1] eq 'methodCall') { }
348 0 0 if ($tokens[$position] =~ /$startString/) { }
0 0 elsif (lc $tokens[$position] eq 'struct') { }
0 0 elsif (lc $tokens[$position] eq 'array') { }
0 0 elsif ($tokens[$position] =~ /$startDate/) { }
0 0 elsif (lc($tokens[$position]) =~ /$boolRgx/) { }
0 0 elsif (lc($tokens[$position]) =~ /$b64Rgx/) { }
370 0 0 if (scalar @outbound == 1) { }
373 0 0 if (wantarray) { }
0 0 elsif ($methodName) { }
394 0 1 if ($$tokens[${$position;}] eq 'value') { }
0 1 elsif ($$tokens[${$position;}] =~ /$valRgx/) { }
1 0 elsif ($$tokens[${$position;}] eq '/data') { }
396 0 0 if ($$tokens[${$position;}] =~ /$startString/) { }
0 0 elsif (lc $$tokens[${$position;}] eq 'struct') { }
0 0 elsif (lc $$tokens[${$position;}] eq 'array') { }
0 0 elsif ($$tokens[${$position;}] =~ /$startDate/) { }
0 0 elsif ($$tokens[${$position;}] =~ /$boolRgx/) { }
0 0 elsif ($$tokens[${$position;}] =~ /$b64Rgx/) { }
430 0 2 if (lc $$tokens[${$position;}] eq 'member') { }
1 1 elsif (lc $$tokens[${$position;}] eq '/struct') { }
435 0 0 if ($$tokens[${$position;}] =~ /$valRgx/) { }
441 0 0 if ($$tokens[${$position;}] =~ /$startString/) { }
0 0 elsif ($$tokens[${$position;}] eq 'struct') { }
0 0 elsif ($$tokens[${$position;}] eq 'array') { }
0 0 elsif ($$tokens[${$position;}] =~ /$startDate/) { }
0 0 elsif ($$tokens[${$position;}] =~ /$boolRgx/) { }
0 0 elsif ($$tokens[${$position;}] =~ /$b64Rgx/) { }
474 0 0 if $_[0] =~ /^XMLRPC::/
478 18 0 if $_[0] =~ /^XMLRPC::/
482 0 0 if $_[0] =~ /^XMLRPC::/
488 2 0 if $_[0] =~ /^XMLRPC::/
2 0 if $_[0] =~ /^XMLRPC::/
1 0 if $_[0] =~ /^XMLRPC::/
1 0 if $_[0] =~ /^XMLRPC::/
0 0 if $_[0] =~ /^XMLRPC::/
528 8 11 if (my($year, $month, $day, $hour, $minsec, $ampm) = $date =~ /$ymd/) { }
1 10 elsif ($date =~ /$prs/) { }
1 9 elsif (my($Mdy_month, $Mdy_day, $Mdy_year, $Mdy_hour, $Mdy_minsec, $Mdy_ampm) = $date =~ /$Mdy/) { }
2 7 elsif (my($mdy_month, $mdy_day, $mdy_year, $mdy_hour, $mdy_minsec, $mdy_ampm) = $date =~ /$mdy/) { }
1 6 elsif ($date =~ /$dtg/) { }
3 3 elsif ($date =~ /$dmy/) { }
1 2 elsif ($date =~ /$MONTHdy/) { }
1 1 elsif ($date =~ /$allnum/) { }
1 0 elsif ($date =~ /$mssql/) { }
532 0 8 length $year == 2 ? :
0 8 $ampm eq 'PM' ? :
1 7 length $minsec == 3 ? :
8 0 $hour ? :
543 0 1 $Mdy_ampm eq 'PM' ? :
1 0 length $Mdy_minsec == 3 ? :
1 0 $Mdy_hour ? :
549 0 1 $mdy_ampm eq 'PM' ? :
1 0 length $mdy_minsec == 3 ? :
1 1 $mdy_hour ? :
552 1 0 length $5 == 2 ? :
555 0 3 length $3 == 2 ? :
1 0 $6 eq 'PM' ? :
0 1 length $5 == 3 ? :
1 2 $4 ? :
558 0 1 length $3 == 2 ? :
1 0 $6 eq 'PM' ? :
1 0 length $5 == 3 ? :
1 0 $4 ? :