| line |
true |
false |
branch |
|
20
|
28 |
7 |
$] >= 5.008 ? : |
|
35
|
2 |
121 |
if ref $names[0] eq "ARRAY" |
|
37
|
6 |
117 |
if $type eq "fresh" |
|
40
|
4 |
116 |
unless (my $hit = $into->can($name)) |
|
53
|
59 |
51 |
unless (exists $cache->{'orig'}) |
|
74
|
30 |
80 |
if ($type eq 'after') { } |
|
83
|
48 |
62 |
if ($type eq "around") |
|
94
|
87 |
22 |
if (@{$cache->{$type};} == 1) |
|
110
|
47 |
41 |
if (@$before) |
|
118
|
29 |
58 |
if (@$after) { } |
|
148
|
0 |
0 |
if (wantarray) { } |
|
|
0 |
0 |
elsif (defined wantarray) { } |
|
|
0 |
0 |
$ret ? : |
|
|
0 |
0 |
wantarray ? : |
|
|
4 |
16 |
if (wantarray) { } |
|
|
2 |
14 |
elsif (defined wantarray) { } |
|
|
2 |
14 |
$ret ? : |
|
|
4 |
16 |
wantarray ? : |
|
|
0 |
3 |
if (wantarray) { } |
|
|
2 |
1 |
elsif (defined wantarray) { } |
|
|
2 |
1 |
$ret ? : |
|
|
0 |
3 |
wantarray ? : |
|
|
0 |
2 |
if (wantarray) { } |
|
|
2 |
0 |
elsif (defined wantarray) { } |
|
|
2 |
0 |
$ret ? : |
|
|
0 |
2 |
wantarray ? : |
|
169
|
1 |
5 |
if ref $names[0] eq "ARRAY" |
|
178
|
2 |
12 |
unless ($name =~ /\A [a-zA-Z_] [a-zA-Z0-9_]* \z/msx) |
|
182
|
4 |
8 |
if ($into->can($name)) |
|
195
|
4 |
4 |
if (_is_in_package($code, $into)) { } |
|
214
|
10 |
129 |
eval 'return 1; &_sub = 1' ? : |