blib/lib/Test/TypeConstraints.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 12 | 14 | 85.7 |
line | true | false | branch |
---|---|---|---|
67 | 1 | 10 | if (&Scalar::Util::blessed($type) and $type->can('check')) { } |
78 | 1 | 8 | unless my $ret = ok(check_type($tc, $got, %options), $test_name || $tc->name . ' types ok') |
88 | 0 | 2 | unless my $ret = ok(!check_type($tc, $got, %options), $test_name || $tc->name . ' types ok') |
97 | 6 | 5 | if $tc->check($value) |
98 | 2 | 3 | if (my $coerce_check = $options{'coerce'}) |
100 | 1 | 1 | if ref $coerce_check |
101 | 2 | 0 | if $tc->check($new_val) |