| line |
true |
false |
branch |
|
26
|
3 |
49 |
if (@_ == 1 and ref $_[0] eq 'HASH') { } |
|
|
2 |
47 |
elsif (@_ == 1 and ref $_[0] eq 'ARRAY' and @{$_[0];} % 2 == 0) { } |
|
|
5 |
42 |
elsif (@_ % 2 == 0) { } |
|
|
41 |
1 |
elsif (@_ == 1 and not defined $_[0]) { } |
|
33
|
6 |
6 |
$i++ % 2 ? : |
|
39
|
3 |
3 |
$i++ % 2 ? : |
|
63
|
40 |
1 |
if (not defined $position or $position > @$order) |
|
69
|
41 |
0 |
unless $existed |
|
78
|
0 |
3 |
unless exists $$self{'property'}{$prop} |
|
83
|
2 |
9 |
if ($$order[$i] eq $prop) |
|
106
|
1 |
1 |
if ($$deleted[$i] eq $prop) |
|
117
|
0 |
3 |
unless defined $prop |
|
120
|
2 |
2 |
if $deleted eq $prop |
|
135
|
0 |
107 |
unless defined $propstrref and defined $$propstrref |
|
136
|
29 |
78 |
unless $$propstrref =~ s/^([A-Z]) (\d+)$NL//o |
|
153
|
0 |
29 |
unless defined $propstr |
|
163
|
39 |
0 |
if ($ident eq 'K') { } |
|
|
0 |
0 |
elsif ($ident eq 'D') { } |
|
165
|
39 |
0 |
if ($ident2 eq 'V') |
|
179
|
0 |
29 |
unless ($propstr =~ s/(?:PROPS-)?END$NL\Z//o) |
|
196
|
0 |
26 |
unless defined $ret and $ret |
|
198
|
17 |
9 |
$self->from_string($str) ? : |
|
205
|
0 |
0 |
unless (eval {
do {
$fh->isa('IO::Handle')
}
} or ref $fh eq 'GLOB' or ref \$fh eq 'GLOB') |
|
223
|
0 |
2 |
if (eval {
do {
$fr->isa('IO::Handle')
}
}) { } |
|
228
|
0 |
2 |
unless defined $fh |
|
232
|
0 |
2 |
unless defined $str and $str ne '' |
|
245
|
0 |
1 |
if (eval {
do {
$fr->isa('IO::Handle')
}
}) { } |
|
250
|
0 |
1 |
unless defined $fh |
|
311
|
4 |
61 |
$forfile ? : |