| line |
true |
false |
branch |
|
31
|
0 |
2 |
if $key =~ /^-/
|
|
50
|
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 =~ /^-/
|