inc/Test/MockObject.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 8 | 41 | 19.5 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
127 | 0 | 0 | 0 | blessed $self and exists $$lookup{$sub} |
272 | 0 | 0 | 0 | defined $called && $called eq $sub |
297 | 0 | 0 | 0 | $class->check_class_loaded($modname) and not keys %subs |
line | l | !l | condition |
---|---|---|---|
27 | 0 | 63 | $type ||= {} |
34 | 95 | 0 | $sub ||= sub { } |
187 | 0 | 0 | $_[2] || '' |
201 | 0 | 0 | $num ||= 1 |
309 | 0 | 0 | ${$modname . '::';}{'VERSION'} ||= -1 |
314 | 0 | 0 | reftype($subs{$sub}) || '' |
376 | 218 | 46 | $calls{_get_key(shift())} ||= [] |
390 | 305 | 54 | $subs{_get_key(shift())} ||= {} |
407 | 41 | 54 | $logs{$key} ||= {} |
437 | 0 | 0 | $isas{_get_key(shift())} ||= {} |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
263 | 0 | 0 | 0 | $name ||= "object called '${sub}'" |
270 | 0 | 0 | 0 | $name ||= "object called '${sub}' at position $pos" |
282 | 0 | 0 | 0 | $name ||= "object sent expected args to sub at position $pos" |
289 | 0 | 0 | 0 | $name ||= "object sent expected arg '${arg}' to sub at position $pos" |