blib/lib/Exception/Class/TryCatch.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 21 | 22 | 95.4 |
line | true | false | branch |
---|---|---|---|
23 | 19 | 11 | @error_stack ? : |
24 | 15 | 15 | if (UNIVERSAL::isa($err, 'Exception::Class::Base')) { } |
12 | 3 | elsif ($err eq '') { } | |
34 | 27 | 3 | unless (ref $_[0] eq 'ARRAY') |
38 | 18 | 12 | if ($e) |
39 | 2 | 16 | if (defined $_[0] and ref $_[0] eq 'ARRAY') |
40 | 2 | 0 | unless grep {$e->isa($_);} @{$_[0];} |
43 | 1 | 1 | $e ? : |
2 | 26 | wantarray ? : | |
55 | 1 | 1 | ref $v eq 'ARRAY' ? : |
2 | 17 | if wantarray |