blib/lib/Assert/Refute/T/Basic.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 47 | 68 | 69.1 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
214 | 2 | 0 | 3 | @missing && to_scalar($class, 0) . ' has no methods ' . join(', ', @missing) |
251 | 0 | 3 | 2 | UNIVERSAL::can($obj, 'isa') and not $obj->isa($class) |
272 | 4 | 0 | 1 | $got ne $sig && "Unexpected subcontract signature.\nGot: $got\nExpected: $sig\nExecution log:\n" . $c->get_tap |
line | l | !l | condition |
---|---|---|---|
102 | 1 | 0 | $@ || '(unknown error)' |
116 | 1 | 0 | $@ || '(unknown error)' |
231 | 2 | 0 | $args ||= [] |
341 | 31 | 20 | $path ||= '$deep' |
382 | 30 | 0 | $known ||= {} |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
62 | 1 | 20 | 18 | not defined $got or $got eq $exp |
76 | 1 | 1 | 1 | not defined $got or $got eq $exp |
143 | 2 | 0 | 1 | &looks_like_number($x) or &blessed($x) |
145 | 2 | 0 | 1 | &looks_like_number($y) or &blessed($y) |
232 | 0 | 2 | 0 | ref $class || $class |
233 | 0 | 2 | 0 | $target ||= $class |
249 | 0 | 5 | 0 | ref $class || $class |
251 | 2 | 0 | 3 | UNIVERSAL::can($obj, 'isa') and not $obj->isa($class) or not UNIVERSAL::isa($obj, $class) |
345 | 1 | 0 | 50 | ref $old ne ref $new or (defined $old xor defined $new) |
363 | 4 | 34 | 0 | $$known{-&refaddr($old)} ||= $path |
364 | 3 | 35 | 0 | $$known{&refaddr($new)} ||= $path |
line | l&&r | l&&!r | !l&&r | !l&&!r | condition |
---|---|---|---|---|---|
58 | 38 | 3 | 1 | 1 | defined $got xor defined $exp |
75 | 2 | 2 | 2 | 1 | defined $got xor defined $exp |
195 | 2 | 18 | 2 | 6 | $str =~ /$reg/ xor $reverse |
345 | 44 | 0 | 0 | 6 | defined $old xor defined $new |