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')) |