| line |
true |
false |
branch |
|
142
|
6 |
4 |
if (scalar @_ == 1) { } |
|
146
|
2 |
4 |
if (not $reftype) { } |
|
|
2 |
2 |
elsif ($reftype eq 'ARRAY') { } |
|
|
2 |
0 |
elsif ($reftype eq 'HASH') { } |
|
153
|
1 |
1 |
wantarray ? : |
|
159
|
1 |
1 |
wantarray ? : |
|
165
|
1 |
1 |
wantarray ? : |
|
171
|
0 |
0 |
wantarray ? : |
|
175
|
2 |
2 |
if (scalar(@_) % 2 == 1) { } |
|
179
|
1 |
1 |
wantarray ? : |
|
184
|
1 |
1 |
wantarray ? : |
|
188
|
0 |
0 |
wantarray ? : |
|
204
|
42 |
40 |
$flags & svref_2object($ref)->FLAGS ? : |
|
239
|
16 |
0 |
unless (ref $_[0]) |
|
253
|
4 |
28 |
if ($value =~ /^[0-9]+\.$/) |
|
270
|
6 |
26 |
if ($value =~ /^[0-9]*\.0+$/) { } |
|
330
|
1 |
0 |
if (defined $filename and -e $filename and -r $filename) |
|
332
|
0 |
1 |
if (-l $filename) { } |
|
354
|
0 |
1 |
if (not defined $fext or $fext =~ /^\s*$/) { } |
|
358
|
0 |
0 |
if ($filename =~ /\.$/) |
|
369
|
0 |
1 |
if (defined $arc) |
|
389
|
0 |
1 |
exists $ENV{'MOD_PERL'} ? : |
|
427
|
5 |
1 |
defined $_[0] ? : |