| line |
true |
false |
branch |
|
20
|
27 |
5 |
$] >= 5.008 ? : |
|
35
|
2 |
116 |
if ref $names[0] eq 'ARRAY' |
|
37
|
6 |
112 |
if $type eq 'fresh' |
|
40
|
4 |
111 |
unless (my $hit = $into->can($name)) |
|
53
|
56 |
51 |
unless (exists $cache->{'orig'}) |
|
74
|
30 |
77 |
if ($type eq 'after') { } |
|
83
|
45 |
62 |
if ($type eq 'around') |
|
94
|
84 |
22 |
if (@{$cache->{$type};} == 1) |
|
110
|
47 |
38 |
if (@$before) |
|
118
|
29 |
55 |
if (@$after) { } |
|
148
|
0 |
0 |
if (wantarray) { } |
|
|
0 |
0 |
elsif (defined wantarray) { } |
|
|
0 |
0 |
$ret ? : |
|
|
0 |
0 |
wantarray ? : |
|
|
4 |
11 |
if (wantarray) { } |
|
|
2 |
9 |
elsif (defined wantarray) { } |
|
|
2 |
9 |
$ret ? : |
|
|
4 |
11 |
wantarray ? : |
|
|
0 |
10 |
if (wantarray) { } |
|
|
2 |
8 |
elsif (defined wantarray) { } |
|
|
2 |
8 |
$ret ? : |
|
|
0 |
10 |
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)) { } |
|
213
|
10 |
123 |
eval 'return 1; &_sub = 1' ? : |