| line |
!l |
l&&!r |
l&&r |
condition |
|
125
|
0 |
0 |
0 |
defined $_[0] and not &Scalar::Util::tainted($_[0]) |
|
163
|
48 |
2 |
89 |
$item and $mark |
|
167
|
191 |
63 |
187 |
$item && ref $item && !($mark && $$mark{&refaddr($item)}++) |
|
192
|
23 |
12 |
66 |
$path =~ m[\G/+([^/]*)]cgsx and -e "$dir/$1" |
|
|
35 |
0 |
66 |
$path =~ m[\G/+([^/]*)]cgsx and -e "$dir/$1" and not defined $file |
|
206
|
2 |
0 |
6 |
$subpath =~ m[^/(\w+)(?:/|$)] and -e "$dir/$1.$default_ext" |
|
259
|
313 |
4 |
31 |
defined $ext and -r "$base$ext" |
|
|
161 |
75 |
81 |
$pi =~ m[^/] and -d $base |
|
|
32 |
1 |
91 |
$use_subpath and -r (my $alt = "$dir$loc/$ixfn") |
|
298
|
5 |
0 |
25 |
length $from and $cmppos >= 0 |
|
315
|
0 |
0 |
32 |
$i <= $#$a and $i <= $#$b |
|
316
|
16 |
0 |
16 |
$a->[$i] =~ /^\d/ and $b->[$i] =~ /^\d/ |
|
396
|
0 |
0 |
3 |
defined $sub and ref $sub eq 'CODE' |
|
414
|
1 |
313 |
1 |
wantarray and not @_ |
|
523
|
0 |
0 |
0 |
defined $name and $name ne '' |
|
527
|
0 |
0 |
0 |
defined $formal_value and $formal_value ne '' |
|
533
|
0 |
0 |
0 |
$type and $typeid |
|
691
|
1 |
0 |
1 |
$con->can('raise') and my $sub = $con->can('error') |
|
738
|
0 |
76 |
649 |
defined $obj and my $sub = UNIVERSAL::can($obj, $method) |
|
775
|
3 |
0 |
52 |
@$list and defined $list->[0] |
|
|
3 |
13 |
39 |
@$list and defined $list->[0] and ref $list->[0] eq 'HASH' |
|
786
|
0 |
0 |
0 |
defined $_[0] and not ref $_[0] |
|
|
0 |
0 |
0 |
defined $_[0] and not ref $_[0] and $_[0] ne '' |
|
|
0 |
0 |
0 |
defined $_[0] and not ref $_[0] and $_[0] ne '' and $_[0] =~ /^\d+$/ |
|
815
|
18 |
150 |
78 |
defined $_[0] and $_[0] ne '' |
|
856
|
14 |
0 |
12 |
@$item and ref $item->[-1] eq 'HASH' |
|
|
14 |
4 |
8 |
@$item and ref $item->[-1] eq 'HASH' and not exists $item->[-1]{$child_key} |