| line |
true |
false |
branch |
|
47
|
36 |
14 |
defined $arg && !ref($arg) && length $arg ? : |
|
53
|
32 |
44 |
defined $arg && !ref($arg) && $arg =~ /^[^\W\d]\w*\z/s ? : |
|
59
|
74 |
78 |
defined $arg && !ref($arg) && $arg =~ /^[^\W\d]\w*(?:::\w+)*\z/s ? : |
|
64
|
10 |
42 |
defined $_[0] && !ref($_[0]) && $_[0] =~ /^[^\W\d]\w*(?:::\w+)*\z/s && $_[0]->isa($_[1]) ? : |
|
69
|
6 |
2 |
defined $_[0] && !ref($_[0]) && $_[0] =~ /^[^\W\d]\w*(?:::\w+)*\z/s && $_[0]->DOES($_[1]) ? : |
|
74
|
6 |
46 |
defined $_[0] && !ref($_[0]) && $_[0] =~ /^[^\W\d]\w*(?:::\w+)*\z/s && $_[0] ne $_[1] && $_[0]->isa($_[1]) ? : |
|
82
|
44 |
18 |
defined $arg && !ref($arg) && &looks_like_number($arg) ? : |
|
88
|
32 |
52 |
defined $arg && !ref($arg) && $arg =~ /^[1-9]\d*$/ ? : |
|
94
|
40 |
48 |
defined $arg && !ref($arg) && $arg =~ /^(?:0|[1-9]\d*)$/ ? : |
|
99
|
6 |
18 |
ref $_[0] eq 'SCALAR' && defined ${$_[0];} && ${$_[0];} ne '' ? : |
|
104
|
14 |
14 |
ref $_[0] eq 'SCALAR' ? : |
|
109
|
20 |
48 |
ref $_[0] eq 'ARRAY' && @{$_[0];} ? : |
|
114
|
26 |
42 |
ref $_[0] eq 'ARRAY' ? : |
|
120
|
24 |
12 |
defined $_[0] && ref $_[0] && (&Scalar::Util::reftype($_[0]) eq 'ARRAY' || overload::Method($_[0], '@{}')) ? : |
|
127
|
6 |
16 |
ref $_[0] eq 'HASH' && scalar %{$_[0];} ? : |
|
132
|
8 |
14 |
ref $_[0] eq 'HASH' ? : |
|
138
|
24 |
12 |
defined $_[0] && ref $_[0] && (&Scalar::Util::reftype($_[0]) eq 'HASH' || overload::Method($_[0], '%{}')) ? : |
|
145
|
10 |
14 |
ref $_[0] eq 'CODE' ? : |
|
151
|
6 |
11 |
(&Scalar::Util::reftype($_[0]) || '') eq 'CODE' || &Scalar::Util::blessed($_[0]) && overload::Method($_[0], '&{}') ? : |
|
159
|
12 |
8 |
defined $_[0] && (defined &Scalar::Util::blessed($_[0]) || &_CLASS($_[0])) ? : |
|
172
|
44 |
37 |
&Scalar::Util::blessed($_[0]) && $_[0]->isa($_[1]) ? : |
|
177
|
36 |
2 |
&Scalar::Util::blessed($_[0]) && $_[0]->DOES($_[1]) ? : |
|
182
|
4 |
18 |
defined $_[0] && 'Regexp' eq ref $_[0] ? : |
|
188
|
32 |
12 |
unless &_ARRAY($set_param) |
|
191
|
8 |
4 |
unless &_INSTANCE($item, $_[0]) |
|
199
|
28 |
16 |
unless &_ARRAY0($set_param) |
|
202
|
8 |
4 |
unless &_INSTANCE($item, $_[0]) |
|
216
|
2 |
28 |
unless (defined $it) |
|
222
|
6 |
22 |
if (ref $it eq 'GLOB') |
|
229
|
0 |
22 |
if (tied $it and tied($it)->can('TIEHANDLE')) |
|
235
|
20 |
2 |
unless (&Scalar::Util::blessed($it)) |
|
241
|
0 |
2 |
if ($it->isa('IO::Handle')) |
|
247
|
0 |
2 |
if ($it->isa('Tie::Handle')) |
|
254
|
0 |
2 |
if ($it->isa('IO::Scalar')) |
|
261
|
0 |
2 |
if ($it->isa('IO::String')) |
|
273
|
4 |
34 |
defined &_CLASS($_[0]) && eval "require $_[0];" && !$@ && $_[0]->isa($_[1]) && $_[0] ne $_[1] ? : |