| line |
true |
false |
branch |
|
48
|
36 |
14 |
defined $arg && !ref($arg) && length $arg ? : |
|
54
|
32 |
44 |
defined $arg && !ref($arg) && $arg =~ /^[^\W\d]\w*\z/s ? : |
|
60
|
74 |
78 |
defined $arg && !ref($arg) && $arg =~ /^[^\W\d]\w*(?:::\w+)*\z/s ? : |
|
65
|
10 |
42 |
defined $_[0] && !ref($_[0]) && $_[0] =~ /^[^\W\d]\w*(?:::\w+)*\z/s && $_[0]->isa($_[1]) ? : |
|
70
|
6 |
2 |
defined $_[0] && !ref($_[0]) && $_[0] =~ /^[^\W\d]\w*(?:::\w+)*\z/s && $_[0]->DOES($_[1]) ? : |
|
75
|
6 |
46 |
defined $_[0] && !ref($_[0]) && $_[0] =~ /^[^\W\d]\w*(?:::\w+)*\z/s && $_[0] ne $_[1] && $_[0]->isa($_[1]) ? : |
|
83
|
44 |
18 |
defined $arg && !ref($arg) && &looks_like_number($arg) ? : |
|
89
|
32 |
52 |
defined $arg && !ref($arg) && $arg =~ /^[1-9]\d*$/ ? : |
|
95
|
40 |
48 |
defined $arg && !ref($arg) && $arg =~ /^(?:0|[1-9]\d*)$/ ? : |
|
100
|
6 |
18 |
ref $_[0] eq 'SCALAR' && defined ${$_[0];} && ${$_[0];} ne '' ? : |
|
105
|
14 |
14 |
ref $_[0] eq 'SCALAR' ? : |
|
110
|
20 |
48 |
ref $_[0] eq 'ARRAY' && @{$_[0];} ? : |
|
115
|
26 |
42 |
ref $_[0] eq 'ARRAY' ? : |
|
121
|
24 |
12 |
defined $_[0] && ref $_[0] && (builtin::reftype($_[0]) eq 'ARRAY' || overload::Method($_[0], '@{}')) ? : |
|
128
|
6 |
16 |
ref $_[0] eq 'HASH' && scalar %{$_[0];} ? : |
|
133
|
8 |
14 |
ref $_[0] eq 'HASH' ? : |
|
139
|
24 |
12 |
defined $_[0] && ref $_[0] && (builtin::reftype($_[0]) eq 'HASH' || overload::Method($_[0], '%{}')) ? : |
|
146
|
10 |
14 |
ref $_[0] eq 'CODE' ? : |
|
152
|
6 |
11 |
(builtin::reftype($_[0]) || '') eq 'CODE' || builtin::blessed($_[0]) && overload::Method($_[0], '&{}') ? : |
|
160
|
12 |
8 |
defined $_[0] && (defined builtin::blessed($_[0]) || &_CLASS($_[0])) ? : |
|
173
|
60 |
37 |
builtin::blessed($_[0]) && $_[0]->isa($_[1]) ? : |
|
178
|
36 |
2 |
builtin::blessed($_[0]) && $_[0]->DOES($_[1]) ? : |
|
183
|
4 |
18 |
defined $_[0] && 'Regexp' eq ref $_[0] ? : |
|
189
|
32 |
12 |
unless &_ARRAY($set_param) |
|
192
|
8 |
12 |
unless &_INSTANCE($item, $_[0]) |
|
200
|
28 |
16 |
unless &_ARRAY0($set_param) |
|
203
|
8 |
12 |
unless &_INSTANCE($item, $_[0]) |
|
217
|
2 |
28 |
unless (defined $it) |
|
223
|
6 |
22 |
if (ref $it eq "GLOB") |
|
230
|
0 |
22 |
if (tied $it and tied($it)->can("TIEHANDLE")) |
|
236
|
20 |
2 |
unless (builtin::blessed($it)) |
|
242
|
0 |
2 |
if ($it->isa("IO::Handle")) |
|
248
|
0 |
2 |
if ($it->isa("Tie::Handle")) |
|
255
|
0 |
2 |
if ($it->isa("IO::Scalar")) |
|
262
|
0 |
2 |
if ($it->isa("IO::String")) |
|
274
|
4 |
34 |
defined &_CLASS($_[0]) && eval "require $_[0];" && !$@ && $_[0]->isa($_[1]) && $_[0] ne $_[1] ? : |