| line |
!l |
l&&!r |
l&&r |
condition |
|
47
|
12 |
2 |
36 |
defined $arg && !ref($arg) && length $arg |
|
53
|
24 |
20 |
32 |
defined $arg && !ref($arg) && $arg =~ /^[^\W\d]\w*\z/s |
|
59
|
38 |
40 |
74 |
defined $arg && !ref($arg) && $arg =~ /^[^\W\d]\w*(?:::\w+)*\z/s |
|
64
|
22 |
18 |
10 |
defined $_[0] && !ref($_[0]) && $_[0] =~ /^[^\W\d]\w*(?:::\w+)*\z/s && $_[0]->isa($_[1]) |
|
69
|
0 |
2 |
6 |
defined $_[0] && !ref($_[0]) && $_[0] =~ /^[^\W\d]\w*(?:::\w+)*\z/s && $_[0]->DOES($_[1]) |
|
74
|
18 |
18 |
6 |
defined $_[0] && !ref($_[0]) && $_[0] =~ /^[^\W\d]\w*(?:::\w+)*\z/s && $_[0] ne $_[1] && $_[0]->isa($_[1]) |
|
82
|
12 |
6 |
44 |
defined $arg && !ref($arg) && &looks_like_number($arg) |
|
88
|
24 |
28 |
32 |
defined $arg && !ref($arg) && $arg =~ /^[1-9]\d*$/ |
|
94
|
24 |
24 |
40 |
defined $arg && !ref($arg) && $arg =~ /^(?:0|[1-9]\d*)$/ |
|
99
|
16 |
2 |
6 |
ref $_[0] eq 'SCALAR' && defined ${$_[0];} && ${$_[0];} ne '' |
|
109
|
42 |
6 |
20 |
ref $_[0] eq 'ARRAY' && @{$_[0];} |
|
120
|
6 |
6 |
24 |
defined $_[0] && ref $_[0] && (&Scalar::Util::reftype($_[0]) eq 'ARRAY' || overload::Method($_[0], '@{}')) |
|
138
|
6 |
6 |
24 |
defined $_[0] && ref $_[0] && (&Scalar::Util::reftype($_[0]) eq 'HASH' || overload::Method($_[0], '%{}')) |
|
159
|
2 |
6 |
12 |
defined $_[0] && (defined &Scalar::Util::blessed($_[0]) || &_CLASS($_[0])) |
|
172
|
26 |
11 |
44 |
&Scalar::Util::blessed($_[0]) && $_[0]->isa($_[1]) |
|
177
|
0 |
2 |
36 |
&Scalar::Util::blessed($_[0]) && $_[0]->DOES($_[1]) |
|
182
|
2 |
16 |
4 |
defined $_[0] && 'Regexp' eq ref $_[0] |
|
229
|
22 |
0 |
0 |
tied $it and tied($it)->can('TIEHANDLE') |
|
273
|
4 |
2 |
4 |
defined &_CLASS($_[0]) && eval "require $_[0];" && !$@ && $_[0]->isa($_[1]) && $_[0] ne $_[1] |