| line |
true |
false |
branch |
|
33
|
3 |
9 |
if $pre |
|
35
|
1 |
11 |
unless my $code = $hook->code |
|
38
|
0 |
11 |
if $new_args |
|
41
|
9 |
2 |
if $hook->post |
|
49
|
8 |
10 |
if not defined $_[0] or ref $_[0] |
|
51
|
0 |
10 |
unless my($package, $method) = $full_name =~ /(.*)::(.*)/ |
|
53
|
0 |
10 |
unless ($package->can('new')) |
|
56
|
0 |
0 |
unless $package->can('new') |
|
60
|
9 |
1 |
if defined &$sub |
|
74
|
3 |
13 |
if $name =~ /::/ |
|
75
|
13 |
0 |
if ($name =~ /(.*):(.*)/) |
|
94
|
10 |
6 |
unless defined $hook_point |
|
98
|
0 |
6 |
unless "$current" eq "$replacement" |
|
118
|
14 |
3 |
if @_ |
|
120
|
1 |
16 |
wantarray ? : |
|
124
|
0 |
0 |
if @{$$self{'returned'};} and $$self{'returned'}[0] |