| line |
true |
false |
branch |
|
23
|
1 |
1 |
if (not exists $self->{$can} and $self->{'X-Mock-Strict'})
|
|
34
|
41 |
7 |
if (exists $self->{$call}) { }
|
|
|
2 |
5 |
elsif ($self->{'X-Mock-Strict'}) { }
|
|
36
|
15 |
26 |
if ($ref eq 'HASH') { }
|
|
|
4 |
22 |
elsif ($ref eq 'ARRAY') { }
|
|
|
3 |
19 |
elsif ($ref eq 'CODE') { }
|
|
|
2 |
17 |
elsif ($ref eq 'REF') { }
|
|
43
|
2 |
1 |
if ($self->{'X-Mock-SelfArg'})
|
|
63
|
15 |
3 |
if (my $isas = $self->{'X-Mock-ISA'}) { }
|
|
|
1 |
2 |
elsif (exists $self->{'X-Mock-ISA'}) { }
|
|
65
|
3 |
12 |
if (not $ref and $isas eq $class) { }
|
|
|
3 |
9 |
elsif ($ref eq 'ARRAY') { }
|
|
|
4 |
5 |
elsif ($ref eq 'CODE') { }
|
|
|
2 |
3 |
elsif ($ref eq 'Regexp') { }
|
|
69
|
2 |
1 |
if &any(sub {
$_ eq $class;
}
, @$isas)
|
|
72
|
2 |
2 |
if ($self->{'X-Mock-SelfArg'})
|
|
98
|
56 |
20 |
if (exists $orig->{$attr})
|
|
107
|
5 |
2 |
if (my $stringify = $self->{'X-Mock-Stringify'})
|
|
108
|
3 |
2 |
if (ref $stringify eq 'CODE')
|
|
109
|
2 |
1 |
if ($self->{'X-Mock-SelfArg'})
|