| line |
true |
false |
branch |
|
79
|
1 |
1 |
unless $name =~ /\A__ANON__/ |
|
85
|
0 |
0 |
overload::Method($_[0], '&{}') ? : |
|
|
7 |
26 |
unless (&Scalar::Util::reftype($_[0]) || '') eq "CODE" |
|
99
|
23 |
45 |
unless $arg->{$_} |
|
102
|
1 |
33 |
unless $arg->{'code'} |
|
104
|
26 |
7 |
if (_CODELIKE($arg->{'code'})) { } |
|
109
|
1 |
6 |
unless my $code = $arg->{'from'}->can($arg->{'code'}) |
|
111
|
5 |
1 |
unless $arg->{'as'} |
|
116
|
1 |
31 |
unless $arg->{'as'} |
|
143
|
10 |
21 |
$SIG{'__WARN__'} ? : |
|
147
|
2 |
2 |
if $error =~ /$_/ |
|
150
|
1 |
0 |
if (my($base_error) = $error =~ /\A($_) $eow_re/x) |
|
155
|
6 |
2 |
if (my($base_error) = $error =~ /\A($_) $eow_re/x) |
|
164
|
8 |
16 |
if $code |
|
268
|
1 |
4 |
unless exists $is_exported{$_} |