| line |
true |
false |
branch |
|
200
|
33 |
13 |
if ($text =~ /\A<\?xml/) { } |
|
|
8 |
5 |
elsif ($text =~ /\Abplist/) { } |
|
261
|
0 |
8 |
if (ref $file) |
|
263
|
1 |
7 |
unless (-e $file) |
|
287
|
0 |
0 |
unless (ref $hash eq ref {}) |
|
295
|
0 |
0 |
if ref $hash->{$key} |
|
326
|
0 |
0 |
unless (ref $array eq ref []) |
|
356
|
0 |
1 |
if (ref $string) |
|
379
|
0 |
0 |
if (ref $thingy eq ref []) { } |
|
|
0 |
0 |
elsif (ref $thingy eq ref {}) { } |
|
|
0 |
0 |
elsif (!ref($thingy) eq ref {}) { } |
|
426
|
0 |
1258 |
if $source->eof |
|
428
|
155 |
1103 |
if (s[^\s* < (string|date|real|integer|data) > \s*(.*?)\s* ][]sx) { } |
|
|
1 |
1102 |
elsif (s[^\s* < string / > ][]x) { } |
|
|
41 |
1061 |
elsif (s/^\s* < (dict|array) > //x) { } |
|
|
0 |
1061 |
elsif (s[^\s* < dict / > ][]x) { } |
|
|
1 |
1060 |
elsif (s[^\s* < array / > ][]x) { } |
|
|
15 |
1045 |
elsif (s[^\s* < (true|false) /> ][]x) { } |
|
438
|
41 |
0 |
if defined $_ and "" ne $_ |
|
471
|
129 |
0 |
if (s[^\s*(.*?)][]s) { } |
|
477
|
0 |
0 |
if $source->eof |
|
488
|
0 |
26 |
if (1 == keys %hash and exists $hash{'CF$UID'}) { } |
|
600
|
1078 |
180 |
if not @{$_[0]{'buffer'};} |
|
628
|
415 |
1420 |
if (@{$self->{'buffer'};}) { } |
|
645
|
0 |
0 |
if @{$_->{'source'};} |
|
669
|
4 |
37 |
wantarray ? : |
|
|
41 |
585 |
if ($ref eq 'array') { } |
|
|
126 |
459 |
elsif ($ref eq 'dict') { } |
|
670
|
0 |
126 |
wantarray ? : |
|
675
|
680 |
0 |
ref $_[0] ? : |
|
685
|
18 |
18 |
defined $_[1] ? : |
|
702
|
111 |
5 |
if (ref $item) |
|
707
|
3 |
2 |
if ($class =~ /array$/) { } |
|
|
2 |
0 |
elsif ($class =~ /dict$/) { } |
|
727
|
2 |
0 |
wantarray ? : |
|
735
|
7 |
0 |
eval {
do {
$_->can('as_basic_data')
}
} ? : |
|
775
|
4 |
2 |
exists ${$_[0]->value;}{$_[1]} ? : |
|
784
|
78 |
48 |
if (defined $key) { } |
|
787
|
78 |
0 |
if (exists $hash->{$key}) { } |
|
795
|
16 |
0 |
wantarray ? : |
|
798
|
2 |
0 |
wantarray ? : |
|
806
|
9 |
0 |
eval {
do {
$v->can('as_basic_data')
}
} ? : |
|
840
|
20 |
49 |
if eval {
do {
$v->can("as_perl")
}
} |
|
889
|
1 |
13 |
unless defined $value |
|
890
|
0 |
14 |
if $value =~ / [[:^xdigit:]] /msx |
|
892
|
1 |
13 |
if length($value) % 2 |
|
905
|
1 |
1 |
if (@_ < 2) { } |
|
907
|
0 |
1 |
length $value > 8 ? : |
|
912
|
0 |
1 |
if $integer < 0 |
|
914
|
0 |
1 |
ref $integer ? : |
|
917
|
0 |
1 |
if (ref $self) { } |
|
918
|
0 |
0 |
if length($value) % 2 |