| line |
true |
false |
branch |
|
48
|
0 |
1 |
if (scalar @args > 0) |
|
76
|
0 |
0 |
unless (grep {$_ eq $mother;} @$Sub::Monkey::Classes) |
|
78
|
0 |
0 |
if $@ |
|
95
|
0 |
1 |
if ($from) { } |
|
115
|
0 |
0 |
unless $class |
|
118
|
0 |
0 |
if not grep({$_ eq $class;} @{$Sub::Monkey::CanPatch;}) |
|
123
|
0 |
0 |
if (not exists $$Sub::Monkey::Subs{$sub}) |
|
192
|
0 |
0 |
if (exists $$Sub::Monkey::Subs{"${class}::$method"}) { } |
|
217
|
0 |
0 |
unless $class |
|
220
|
0 |
0 |
unless $class->can($method) |
|
245
|
0 |
0 |
unless $class |
|
248
|
0 |
0 |
if $class->can($method) |
|
288
|
0 |
0 |
if (ref $method eq 'ARRAY') { } |
|
294
|
0 |
0 |
unless $class->can($subname) |
|
313
|
0 |
0 |
unless $class->can($method) |
|
342
|
0 |
0 |
unless $class->can($method) |
|
390
|
0 |
0 |
unless $class->can($method) |
|
418
|
0 |
0 |
unless (exists $$Sub::Monkey::Subs{$sub}) |