| line |
!l |
l&&!r |
l&&r |
condition |
|
208
|
18 |
8 |
60 |
defined $_[0] && !ref($_[0]) && length $_[0] |
|
227
|
24 |
20 |
32 |
defined $arg && !ref($arg) && $arg =~ /^[^\W\d]\w*\z/s |
|
251
|
38 |
40 |
74 |
defined $arg && !ref($arg) && $arg =~ /^[^\W\d]\w*(?:::\w+)*\z/s |
|
278
|
22 |
18 |
10 |
defined $string && !ref($string) && $string =~ /^[^\W\d]\w*(?:::\w+)*\z/s && $string->isa($class) |
|
294
|
0 |
2 |
6 |
defined $string && !ref($string) && $string =~ /^[^\W\d]\w*(?:::\w+)*\z/s && $string->DOES($role) |
|
321
|
18 |
18 |
6 |
defined $string && !ref($string) && $string =~ /^[^\W\d]\w*(?:::\w+)*\z/s && $string ne $class && $string->isa($class) |
|
344
|
4 |
2 |
11 |
defined $_[0] && !ref($_[0]) && &looks_like_number($_[0]) |
|
368
|
36 |
35 |
65 |
defined $arg && !ref($arg) && $arg =~ /^[1-9]\d*$/ |
|
399
|
24 |
24 |
40 |
defined $arg && !ref($arg) && $arg =~ /^(?:0|[1-9]\d*)$/ |
|
663
|
18 |
8 |
18 |
defined $_[0] && (defined builtin::blessed($_[0]) || &_CLASS($_[0])) |
|
703
|
52 |
13 |
90 |
builtin::blessed($_[0]) && $_[0]->DOES($_[1]) |
|
808
|
30 |
22 |
28 |
tied $it and tied($it)->can("TIEHANDLE") |
|
885
|
20 |
10 |
4 |
defined &_CLASS($_[0]) && eval "require $_[0];" && !$@ && $_[0]->isa($_[1]) && $_[0] ne $_[1] |