| blib/lib/Contract/Declare.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 24 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 24 | 6 | 0 | unless $ENV{'CONTRACT_DECLARE_KEEP_CONTRACT'} |
| 35 | 12 | 9 | if (ref $p eq "ARRAY") |
| 43 | 2 | 7 | unless builtin::blessed($arg) and $arg->can("compiled_check") |
| 47 | 10 | 0 | if ($out) |
| 48 | 0 | 10 | unless ref $out eq "ARRAY" |
| 52 | 3 | 8 | unless builtin::blessed($ret) and $ret->can("compiled_check") |
| 71 | 1 | 5 | unless $code |
| 95 | 1 | 3 | wantarray ? : |
| 108 | 3 | 9 | if @$checkers == 0 |
| 110 | 1 | 8 | if (@$values != @$checkers) |
| 115 | 8 | 2 | if $checkers->[$i]->($values->[$i]) |
| 116 | 2 | 0 | defined $values->[$i] ? : |