| line |
!l |
l&&!r |
l&&r |
condition |
|
91
|
0 |
0 |
0 |
exists $!{'EACCES'} and $! = &Errno::EACCES |
|
|
0 |
0 |
1 |
exists $!{'EISDIR'} and $! = &Errno::EISDIR |
|
103
|
0 |
0 |
0 |
exists $!{'EACCES'} and $! = &Errno::EACCES |
|
|
0 |
0 |
0 |
exists $!{'EISDIR'} and $! = &Errno::EISDIR |
|
126
|
3 |
100 |
54 |
ref $p eq 'ARRAY' and lc $$p[0] eq $name |
|
195
|
5 |
3 |
3 |
ref $$h{$$el[1]} eq 'ARRAY' and @{$$h{$$el[1]};} == 0 |
|
200
|
0 |
4 |
0 |
exists $$h{$$el[1]} and ref $$h{$$el[1]} eq 'ARRAY' && @{$$h{$$el[1]};} > 0 || ref $$h{$$el[1]} ne 'ARRAY' && length "$$h{$$el[1]}" |
|
207
|
1 |
4 |
15 |
exists $$h{$$el[1]} and ref $$h{$$el[1]} eq 'ARRAY' |
|
|
5 |
4 |
11 |
exists $$h{$$el[1]} and ref $$h{$$el[1]} eq 'ARRAY' and @{$$h{$$el[1]};} > 0 |
|
209
|
0 |
5 |
3 |
exists $$h{$$el[1]} and ref $$h{$$el[1]} ne 'ARRAY' |
|
|
5 |
0 |
3 |
exists $$h{$$el[1]} and ref $$h{$$el[1]} ne 'ARRAY' and length "$$h{$$el[1]}" |
|
428
|
219 |
38 |
43 |
$$_[0] eq ':' and $$_[1] =~ /^code$/i |
|
431
|
219 |
34 |
47 |
$$_[0] eq ':' && $$_[1] =~ /^(set|code)$/i |
|
450
|
0 |
0 |
8 |
not ref $f and length $f |
|
488
|
0 |
0 |
48 |
not ref $f and length $f |
|
517
|
35 |
35 |
0 |
$$c[0] eq ':' and $$c[1] eq '' || $$c[1] eq 'case' |
|
539
|
0 |
0 |
2 |
not ref $f and length $f |
|
632
|
214 |
75 |
16 |
$$_[0] eq ':' and $$_[1] eq 'set' |
|
728
|
2 |
0 |
0 |
ref $fh and UNIVERSAL::can($fh, 'print') |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
45
|
2 |
0 |
0 |
shift() || $@ |
|
57
|
0 |
8 |
0 |
ref $parent || $parent |
|
95
|
0 |
0 |
8 |
CORE::open F, '<' . $I->file or do {
my $rc = 0;
unless ('File::Spec'->file_name_is_absolute($I->file)) {
foreach my $el (@{[] unless $I->path;}) {
next unless length $el;
$el =~ s[/*$][];
my $f = 'File::Spec'->catfile($el, $I->file);
if (-d $f) {
exists $!{'EACCES'} and $! = &Errno::EACCES unless exists $!{'EISDIR'} and $! = &Errno::EISDIR;
last;
}
elsif (CORE::open F, '<' . $f) {
$rc = 1;
last;
} ;
} ;
} ;
$rc
} |
|
195
|
1 |
0 |
11 |
not exists $$h{$$el[1]} or ref $$h{$$el[1]} eq 'ARRAY' and @{$$h{$$el[1]};} == 0 |
|
|
3 |
1 |
7 |
not exists $$h{$$el[1]} or ref $$h{$$el[1]} eq 'ARRAY' and @{$$h{$$el[1]};} == 0 or length "$$h{$$el[1]}" == 0 |
|
200
|
1 |
0 |
3 |
ref $$h{$$el[1]} eq 'ARRAY' && @{$$h{$$el[1]};} > 0 || ref $$h{$$el[1]} ne 'ARRAY' && length "$$h{$$el[1]}" |
|
234
|
7 |
6 |
78 |
lc $$p[0] eq 'grep' or lc $$p[0] eq 'map' |
|
|
13 |
5 |
73 |
lc $$p[0] eq 'grep' or lc $$p[0] eq 'map' or lc $$p[0] eq 'sort' |
|
244
|
0 |
1 |
196 |
lc $$_[1] eq 'grep' or lc $$_[1] eq 'sort' |
|
|
1 |
1 |
195 |
lc $$_[1] eq 'grep' or lc $$_[1] eq 'sort' or lc $$_[1] eq 'map' |
|
276
|
2 |
85 |
115 |
$given or ref $$h{$$el[1]} ne 'ARRAY' |
|
442
|
36 |
12 |
29 |
$$el[1] eq 'm' or $$el[1] eq 'macro' |
|
517
|
0 |
35 |
0 |
$$c[1] eq '' || $$c[1] eq 'case' |
|
616
|
11 |
0 |
56 |
$p eq ':inherit' or $p eq ':inheritparams' |