| 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) |