| blib/lib/results/exceptions.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 12 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 1 | 5 | unless $err_kind =~ / \A (?:[[:upper:]][[:lower:]]*) (?: (?:[[:upper:]][[:lower:]]*) | [0-9]+ )* \z /ux |
| 41 | 0 | 9 | @_ == 1 ? : |
| 56 | 5 | 0 | if $role eq "results::exceptions" |
| 61 | 2 | 3 | if ('CODE' eq ref $opts->{'to_string'}) { } |
| 1 | 2 | elsif (defined $opts->{'to_string'}) { } | |
| 76 | 0 | 7 | unless eval qq[\n\t\tpackage $exception_class;\n\t\tuse overload (\n\t\t\tfallback => !!1,\n\t\t\tq[""] => q[to_string],\n\t\t\tbool => sub { !!1 },\n\t\t);\n\t\t1;\n\t] |