| line |
true |
false |
branch |
|
86
|
0 |
1 |
if (scalar @args > 0) |
|
88
|
0 |
0 |
if ($m eq '-tweak') |
|
100
|
1 |
0 |
unless $tweak |
|
118
|
0 |
1 |
if $tweak |
|
124
|
0 |
0 |
if $class eq 'Class::Monkey' |
|
127
|
0 |
0 |
unless (grep {$_ eq $mother;} @$Class::Monkey::Classes) |
|
129
|
0 |
0 |
if $@ |
|
157
|
0 |
0 |
if (scalar @args > 0) |
|
198
|
0 |
1 |
if ($from) { } |
|
218
|
0 |
0 |
if ref $class |
|
219
|
0 |
0 |
unless $class |
|
222
|
0 |
0 |
if not grep({$_ eq $class;} @{$Class::Monkey::CanPatch;}) |
|
246
|
0 |
0 |
if (not exists $$Class::Monkey::Subs{$sub}) |
|
289
|
0 |
0 |
if (ref $class) { } |
|
315
|
0 |
0 |
if (scalar @args > 0) |
|
347
|
0 |
0 |
if ($rtype eq 'ro') { } |
|
348
|
0 |
0 |
unless ($default) |
|
353
|
0 |
0 |
if (@_ == 2) |
|
363
|
0 |
0 |
if ($default and not $$self{'_used'}{$name}) |
|
367
|
0 |
0 |
if (@_ == 2) { } |
|
446
|
0 |
0 |
if (exists $$Class::Monkey::Subs{"${class}::$method"}) { } |
|
471
|
0 |
0 |
unless $class |
|
474
|
0 |
0 |
unless $class->can($method) |
|
480
|
0 |
0 |
if (ref $class) { } |
|
508
|
0 |
0 |
unless $class |
|
511
|
0 |
0 |
if $class->can($method) |
|
550
|
0 |
0 |
ref $class ? : |
|
553
|
0 |
0 |
unless $class->can($method) |
|
560
|
0 |
0 |
if (ref $class) { } |
|
595
|
0 |
0 |
ref $class ? : |
|
598
|
0 |
0 |
unless $class->can($method) |
|
604
|
0 |
0 |
if (ref $class) { } |
|
662
|
0 |
0 |
unless $class->can($method) |
|
672
|
0 |
0 |
if (ref $class) { } |
|
701
|
0 |
0 |
unless (exists $$Class::Monkey::Subs{$sub}) |