| line |
true |
false |
branch |
|
78
|
1 |
1 |
unless $name =~ /\A__ANON__/ |
|
84
|
0 |
0 |
overload::Method($_[0], '&{}') ? : |
|
|
7 |
26 |
unless (&Scalar::Util::reftype($_[0]) || '') eq 'CODE' |
|
98
|
23 |
45 |
unless $$arg{$_} |
|
101
|
1 |
33 |
unless $$arg{'code'} |
|
103
|
26 |
7 |
if (_CODELIKE($$arg{'code'})) { } |
|
106
|
1 |
6 |
unless my $code = $$arg{'from'}->can($$arg{'code'}) |
|
110
|
5 |
1 |
unless $$arg{'as'} |
|
114
|
1 |
31 |
unless $$arg{'as'} |
|
142
|
10 |
21 |
$SIG{'__WARN__'} ? : |
|
146
|
2 |
2 |
if $error =~ /$_/ |
|
149
|
1 |
0 |
if (my($base_error) = $error =~ /\A($_) $eow_re/x) |
|
154
|
6 |
2 |
if (my($base_error) = $error =~ /\A($_) $eow_re/x) |
|
163
|
8 |
16 |
if $code |
|
267
|
1 |
4 |
unless exists $is_exported{$_} |