blib/lib/Test/MockObject.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 31 | 41 | 75.6 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
130 | 106 | 11 | 6 | &blessed($self) and exists $lookup->{$sub} |
275 | 2 | 0 | 1 | defined $called && $called eq $sub |
300 | 4 | 3 | 1 | $class->check_class_loaded($modname) and not keys %subs |
line | l | !l | condition |
---|---|---|---|
30 | 0 | 19 | $type ||= {} |
37 | 22 | 1 | $sub ||= sub { } |
190 | 2 | 1 | $_[2] || '' |
204 | 1 | 5 | $num ||= 1 |
312 | 2 | 5 | do { $modname . '::' }->{'VERSION'} ||= -1 |
317 | 4 | 1 | &reftype($subs{$sub}) || '' |
379 | 65 | 15 | $calls{_get_key(shift())} ||= [] |
393 | 167 | 14 | $subs{_get_key(shift())} ||= {} |
410 | 22 | 11 | $logs{$key} ||= {} |
440 | 6 | 4 | $isas{_get_key(shift())} ||= {} |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
266 | 0 | 2 | 0 | $name ||= "object called '${sub}'" |
273 | 0 | 3 | 0 | $name ||= "object called '${sub}' at position $pos" |
285 | 0 | 1 | 0 | $name ||= "object sent expected args to sub at position $pos" |
292 | 0 | 1 | 0 | $name ||= "object sent expected arg '${arg}' to sub at position $pos" |