| line |
true |
false |
branch |
|
178
|
34 |
53 |
if (blessed($values[0]) and $values[0]->isa('RPC::XML::refmap')) { } |
|
191
|
2 |
150 |
if (not defined $_) { } |
|
|
53 |
97 |
elsif (ref $_) { } |
|
|
53 |
44 |
elsif (not $RPC::XML::FORCE_STRING_ENCODING and /^[-+]?\d+$/ and $_ >= $MIN_BIG_INT and $_ <= $MAX_BIG_INT) { } |
|
|
4 |
40 |
elsif (not $RPC::XML::FORCE_STRING_ENCODING and /^[+-]?(?=\d|[.]\d)\d*(?:[.]\d*)?(?:[Ee](?:[+-]?\d+))?$/x and $_ > $MIN_DOUBLE and $_ < $MAX_DOUBLE) { } |
|
|
3 |
37 |
elsif (/$RPC::XML::DATETIME_REGEXP/) { } |
|
193
|
1 |
1 |
$RPC::XML::ALLOW_NIL ? : |
|
199
|
4 |
49 |
if $$seenrefs{$_}++ |
|
201
|
27 |
22 |
if (blessed $_ and $_->isa('RPC::XML::datatype') || $_->isa('DateTime')) { } |
|
|
10 |
12 |
elsif (reftype $_ eq 'HASH') { } |
|
|
7 |
5 |
elsif (reftype $_ eq 'ARRAY') { } |
|
|
4 |
1 |
elsif (reftype $_ eq 'SCALAR') { } |
|
207
|
26 |
1 |
if ($_->isa('RPC::XML::datatype')) { } |
|
232
|
22 |
1 |
if (my(@value) = smart_encode($seenrefs, $$_{$key})) |
|
275
|
5 |
48 |
if ($_ > $MAX_INT or $_ < $MIN_INT) { } |
|
304
|
47 |
39 |
wantarray ? : |
|
348
|
1 |
125 |
if ($class eq 'RPC::XML::simple_type') |
|
355
|
6 |
119 |
if (ref $value) |
|
358
|
5 |
1 |
if (reftype $value eq 'SCALAR') { } |
|
379
|
1 |
130 |
unless (ref $self) |
|
395
|
1 |
163 |
unless ($class) |
|
403
|
11 |
152 |
if (substr($class, 0, 8) eq 'datetime') |
|
485
|
1 |
14 |
unless (ref $self) |
|
517
|
1 |
56 |
unless (ref $self) |
|
525
|
56 |
0 |
defined ${$self;} ? : |
|
550
|
4 |
4 |
if ($value =~ /true|yes|1/i) { } |
|
|
3 |
1 |
elsif ($value =~ /false|no|0/i) { } |
|
591
|
1 |
69 |
if (ref $value and reftype $value eq 'SCALAR') |
|
596
|
69 |
1 |
if (defined $value) { } |
|
598
|
10 |
59 |
if ($value =~ /$RPC::XML::DATETIME_REGEXP/) { } |
|
|
59 |
0 |
elsif ($RPC::XML::DATETIME_ISO8601_AVAILABLE) { } |
|
604
|
2 |
8 |
$7 ? : |
|
605
|
6 |
4 |
if ($8) |
|
613
|
56 |
3 |
if ($newvalue) |
|
621
|
3 |
66 |
unless ($newvalue) |
|
657
|
1 |
0 |
unless ($RPC::XML::ALLOW_NIL or $flag) |
|
705
|
8 |
0 |
if (2 == @args and $args[0] eq 'from' and reftype($args[1]) eq 'ARRAY') |
|
723
|
2 |
8 |
if ($no_recurse) { } |
|
799
|
14 |
6 |
ref $args[0] && reftype($args[0]) eq 'HASH' ? : |
|
806
|
5 |
15 |
grep({not blessed $_ && $_->isa('RPC::XML::datatype');} values %args) ? : |
|
820
|
4 |
8 |
if ($no_recurse) { } |
|
919
|
5 |
9 |
$encoded ? : |
|
924
|
8 |
6 |
if (ref $value and reftype $value eq 'GLOB') { } |
|
938
|
1 |
5 |
ref $value ? : |
|
941
|
1 |
5 |
if ($$self{'encoded'}) |
|
955
|
18 |
8 |
defined $flag && $flag ? : |
|
960
|
11 |
15 |
if ($$self{'inmem'}) { } |
|
964
|
7 |
4 |
$as_base64 ? : |
|
980
|
7 |
8 |
if ($as_base64 == $$self{'encoded'}) { } |
|
990
|
6 |
2 |
if ($as_base64) { } |
|
1037
|
1 |
2 |
if ($$self{'inmem'}) { } |
|
1049
|
1 |
1 |
if ($$self{'encoded'}) { } |
|
1084
|
2 |
3 |
if ($$self{'inmem'}) { } |
|
1091
|
1 |
2 |
if ($$self{'encoded'}) { } |
|
1125
|
2 |
3 |
if (ref $file) { } |
|
1127
|
1 |
1 |
if (reftype $file eq 'GLOB') { } |
|
1139
|
0 |
3 |
unless (open $fh, '>', $file) |
|
1150
|
2 |
2 |
if ($$self{'inmem'}) { } |
|
1163
|
1 |
1 |
if ($$self{'encoded'}) { } |
|
1192
|
3 |
1 |
if ($do_close) |
|
1194
|
0 |
3 |
unless (close $fh) |
|
1232
|
0 |
6 |
if (blessed($args[0]) and $args[0]->isa('RPC::XML::struct')) { } |
|
|
3 |
3 |
elsif (@args == 2 and $args[0] =~ /^-?\d+$/ and CORE::length $args[1]) { } |
|
1248
|
1 |
5 |
unless ($args{'faultCode'} and $args{'faultString'}) |
|
1254
|
1 |
4 |
if (scalar keys %args > 2) |
|
1348
|
1 |
7 |
unless (@argz) |
|
1358
|
1 |
6 |
unless ($name =~ m[^[\w.:/]+$]) |
|
1493
|
1 |
7 |
if (not @argz) { } |
|
|
1 |
6 |
elsif (@argz > 1) { } |
|
1542
|
2 |
11 |
if ($$self{'value'}->isa('RPC::XML::fault')) { } |
|
1564
|
1 |
3 |
if ($$self{'value'}->isa('RPC::XML::fault')) { } |
|
1588
|
4 |
1 |
unless ($$self{'value'}->isa('RPC::XML::fault')) |