blib/lib/Tie/Constrained.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 7 | 16 | 43.7 |
line | true | false | branch |
---|---|---|---|
327 | 0 | 6 | $VERBOSE ? : |
338 | 0 | 0 | $VERBOSE ? : |
398 | 0 | 4 | ref $_[0] ne 'CODE' ? : |
401 | 0 | 1 | $out ? : |
2 | 2 | if defined $val | |
413 | 3 | 0 | $$self{'test'}($value) || $$self{'fail'}($$self{'test'}, $value, 22) ? : |
423 | 0 | 8 | if $STRICT and not &{$$self{'test'};}($$self{'value'}) |
434 | 0 | 0 | unless $_[1]->isa('Tie::Constrained') |