| line |
!l |
l&&!r |
l&&r |
condition |
|
48
|
12 |
2 |
36 |
defined $arg && !ref($arg) && length $arg |
|
54
|
24 |
20 |
32 |
defined $arg && !ref($arg) && $arg =~ /^[^\W\d]\w*\z/s |
|
60
|
38 |
40 |
74 |
defined $arg && !ref($arg) && $arg =~ /^[^\W\d]\w*(?:::\w+)*\z/s |
|
65
|
22 |
18 |
10 |
defined $_[0] && !ref($_[0]) && $_[0] =~ /^[^\W\d]\w*(?:::\w+)*\z/s && $_[0]->isa($_[1]) |
|
70
|
0 |
2 |
6 |
defined $_[0] && !ref($_[0]) && $_[0] =~ /^[^\W\d]\w*(?:::\w+)*\z/s && $_[0]->DOES($_[1]) |
|
75
|
18 |
18 |
6 |
defined $_[0] && !ref($_[0]) && $_[0] =~ /^[^\W\d]\w*(?:::\w+)*\z/s && $_[0] ne $_[1] && $_[0]->isa($_[1]) |
|
83
|
12 |
6 |
44 |
defined $arg && !ref($arg) && &looks_like_number($arg) |
|
89
|
24 |
28 |
32 |
defined $arg && !ref($arg) && $arg =~ /^[1-9]\d*$/ |
|
95
|
24 |
24 |
40 |
defined $arg && !ref($arg) && $arg =~ /^(?:0|[1-9]\d*)$/ |
|
100
|
16 |
2 |
6 |
ref $_[0] eq 'SCALAR' && defined ${$_[0];} && ${$_[0];} ne '' |
|
110
|
42 |
6 |
20 |
ref $_[0] eq 'ARRAY' && @{$_[0];} |
|
121
|
6 |
6 |
24 |
defined $_[0] && ref $_[0] && (builtin::reftype($_[0]) eq 'ARRAY' || overload::Method($_[0], '@{}')) |
|
139
|
6 |
6 |
24 |
defined $_[0] && ref $_[0] && (builtin::reftype($_[0]) eq 'HASH' || overload::Method($_[0], '%{}')) |
|
160
|
2 |
6 |
12 |
defined $_[0] && (defined builtin::blessed($_[0]) || &_CLASS($_[0])) |
|
173
|
26 |
11 |
60 |
builtin::blessed($_[0]) && $_[0]->isa($_[1]) |
|
178
|
0 |
2 |
36 |
builtin::blessed($_[0]) && $_[0]->DOES($_[1]) |
|
183
|
2 |
16 |
4 |
defined $_[0] && 'Regexp' eq ref $_[0] |
|
230
|
22 |
0 |
0 |
tied $it and tied($it)->can("TIEHANDLE") |
|
274
|
4 |
2 |
4 |
defined &_CLASS($_[0]) && eval "require $_[0];" && !$@ && $_[0]->isa($_[1]) && $_[0] ne $_[1] |