| line |
true |
false |
branch |
|
217
|
38 |
11 |
if ($text =~ /\A<\?xml/) { } |
|
|
6 |
5 |
elsif ($text =~ /\Abplist/) { } |
|
278
|
0 |
12 |
if (ref $file) |
|
280
|
1 |
11 |
unless (-e $file) |
|
304
|
0 |
0 |
unless (ref $hash eq ref {}) |
|
312
|
0 |
0 |
if ref $hash->{$key} |
|
343
|
0 |
0 |
unless (ref $array eq ref []) |
|
373
|
0 |
1 |
if (ref $string) |
|
396
|
0 |
0 |
if (ref $thingy eq ref []) { } |
|
|
0 |
0 |
elsif (ref $thingy eq ref {}) { } |
|
|
0 |
0 |
elsif (!ref($thingy) eq ref {}) { } |
|
443
|
0 |
680 |
if $source->eof |
|
445
|
118 |
562 |
if (s[^\s* < (string|date|real|integer|data) > \s*(.*?)\s* ][]sx) { } |
|
|
2 |
560 |
elsif (s[^\s* < string / > ][]x) { } |
|
|
38 |
522 |
elsif (s/^\s* < (dict|array) > //x) { } |
|
|
0 |
522 |
elsif (s[^\s* < dict / > ][]x) { } |
|
|
0 |
522 |
elsif (s[^\s* < array / > ][]x) { } |
|
|
3 |
519 |
elsif (s[^\s* < (true|false) /> ][]x) { } |
|
455
|
38 |
0 |
if defined $_ and "" ne $_ |
|
488
|
77 |
0 |
if (s[^\s*(.*?)][]s) { } |
|
494
|
0 |
0 |
if $source->eof |
|
505
|
0 |
24 |
if (1 == keys %hash and exists $hash{'CF$UID'}) { } |
|
617
|
557 |
123 |
if not @{$_[0]{'buffer'};} |
|
645
|
293 |
785 |
if (@{$self->{'buffer'};}) { } |
|
662
|
0 |
0 |
if @{$_->{'source'};} |
|
686
|
5 |
39 |
if (wantarray) { } |
|
|
44 |
688 |
if ($ref eq 'array') { } |
|
|
137 |
551 |
elsif ($ref eq 'dict') { } |
|
687
|
0 |
137 |
if (wantarray) { } |
|
692
|
825 |
0 |
ref $_[0] ? : |
|
702
|
34 |
34 |
defined $_[1] ? : |
|
719
|
113 |
4 |
if (ref $item) |
|
724
|
2 |
2 |
if ($class =~ /array$/) { } |
|
|
2 |
0 |
elsif ($class =~ /dict$/) { } |
|
744
|
2 |
0 |
wantarray ? : |
|
752
|
7 |
0 |
if (eval {
do {
$_->can('as_basic_data')
}
}) { } |
|
792
|
4 |
2 |
exists ${$_[0]->value;}{$_[1]} ? : |
|
801
|
78 |
59 |
if (defined $key) { } |
|
804
|
78 |
0 |
if (exists $hash->{$key}) { } |
|
812
|
18 |
0 |
wantarray ? : |
|
815
|
2 |
0 |
wantarray ? : |
|
823
|
9 |
0 |
eval {
do {
$v->can('as_basic_data')
}
} ? : |
|
859
|
20 |
49 |
if eval {
do {
$v->can("as_perl")
}
} |
|
908
|
1 |
9 |
unless defined $value |
|
909
|
0 |
10 |
if $value =~ / [[:^xdigit:]] /msx |
|
911
|
1 |
9 |
if length($value) % 2 |
|
924
|
1 |
1 |
if (@_ < 2) { } |
|
926
|
0 |
1 |
length $value > 8 ? : |
|
931
|
0 |
1 |
if $integer < 0 |
|
933
|
0 |
1 |
ref $integer ? : |
|
936
|
0 |
1 |
if (ref $self) { } |
|
937
|
0 |
0 |
if length($value) % 2 |