Branch Coverage

blib/lib/Test/MockObject.pm
Criterion Covered Total %
branch 47 52 90.3


line true false branch
11 18 2 unless grep /^-debug/, @_
40 1 22 $name =~ s/^-// ? :
92 2 5 unless @list
106 0 3 unless exists $bindings{&reftype($ref)}
130 6 11 if &blessed($self) and exists $lookup->{$sub}
155 3 25 if $called->[0] eq $sub
182 5 12 if abs $pos > @$calls
183 9 3 if $pos > 0
189 0 3 unless my $args = $_[0]->_call($_[1], 1)
196 0 4 unless my $args = $self->_call($subpos, 1)
197 2 2 if $argpos > 0
207 1 5 unless @$calls >= $num
210 2 3 wantarray ? :
223 0 40 if $sub eq 'DESTROY'
234 39 1 if (exists $subs->{$sub}) { }
251 3 44 unless _logs($self, $sub)
256 8 47 unless ref $arg
257 45 2 if &refaddr($arg) eq &refaddr($self)
275 2 1 unless ($Test->ok(defined $called && $called eq $sub, $name))
277 2 0 unless defined $called
300 1 7 if ($class->check_class_loaded($modname) and not keys %subs)
318 1 4 unless ($type eq 'CODE')
334 13 19 if exists $INC{$path . '.pm'}
341 7 16 unless (exists $$symtable{$symbol . '::'})
371 369 110 &blessed($invocant) ? :
412 29 4 if ($log) { }