| line |
true |
false |
branch |
|
27
|
99 |
146 |
if $caller->can('t')
|
|
32
|
0 |
1025 |
unless &_STRINGLIKE($name)
|
|
36
|
0 |
1025 |
unless exists $types->{$name}
|
|
40
|
1006 |
19 |
unless @_
|
|
44
|
0 |
19 |
unless $found->can('parameterize')
|
|
65
|
1826 |
0 |
if &_STRING($_[0])
|
|
67
|
0 |
0 |
if &blessed($_[0]) and overload::Method($_[0], '""') and length "$_[0]"
|
|
77
|
1826 |
0 |
defined $_[0] && !ref($_[0]) && length $_[0] ? :
|
|
81
|
28 |
0 |
if ($] >= 5.01 and eval {
do {
require XString;
1
}
}) { }
|
|
98
|
0 |
77 |
if exists $stash->{'ISA'}
|
|
99
|
1 |
76 |
if exists $stash->{'VERSION'}
|
|
105
|
25 |
0 |
ref \$globref eq 'GLOB' ? :
|
|
|
21 |
4 |
if ref \$globref eq 'GLOB' ? *{$globref;}{'CODE'} : ref $globref
|