| line |
true |
false |
branch |
|
31
|
0 |
2 |
if $key =~ /^-/ |
|
51
|
0 |
3 |
if $INC{$inc} |
|
110
|
9 |
8 |
if ($key =~ /^-/) { } |
|
|
4 |
4 |
elsif (_is_sub_ref($value)) { } |
|
128
|
2 |
7 |
if ($param eq '-subclass') { } |
|
|
1 |
6 |
elsif ($param eq '-attributes') { } |
|
|
6 |
0 |
elsif ($param eq '-with_new') { } |
|
129
|
1 |
1 |
unless ref $value eq 'ARRAY' |
|
134
|
0 |
1 |
unless ref $value eq 'ARRAY' |
|
139
|
0 |
2 |
unless &blessed($self) |
|
143
|
1 |
1 |
if @_ |
|
151
|
0 |
5 |
if @_ == 1 and ref $_[0] eq 'HASH' |
|
156
|
0 |
5 |
if &blessed($class) |
|
169
|
19 |
8 |
if $type and $type eq 'CODE' |
|
170
|
1 |
7 |
if $class and $class->isa('Mock::Quick::Method') |
|
184
|
3 |
9 |
if $self->is_takeover and not $package->can($name) |
|
189
|
11 |
1 |
_is_sub_ref($orig_value) ? : |
|
203
|
9 |
16 |
unless (exists $self->{$name}) |
|
216
|
7 |
5 |
if ($original) { } |
|
217
|
5 |
2 |
_is_sub_ref($original) ? : |
|
238
|
0 |
14 |
if $self->is_takeover |
|
242
|
5 |
9 |
if $self->is_implement |
|
247
|
11 |
7 |
unless $self->is_takeover |
|
260
|
20 |
6 |
if $sub =~ /^-/ |