| blib/lib/Error.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 20 | 34 | 58.8 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 346 | 5 | 11 | 0 | do { $err->isa($pkg) if builtin::blessed($err) } && do { $code = $$catch[$i + 1]; while (1) { my $more = 0; local($Error::THROWN, $@); my $ok = eval { do { $@ = $err; if ($wantarray) { @{$result;} = &$code($err, \$more); } elsif (defined $wantarray) { @{$result;} = (); $result->[0] = &$code($err, \$more); } else { &$code($err, \$more); } ; 1 } }; if ($ok) { next CATCHLOOP if $more; undef $err; } else { $err = $@ || $Error::THROWN; $err = &$Error::ObjectifyCallback({'text', $err}) unless ref $err; } ; last CATCH; } } |
| 482 | 1 | 0 | 11 | builtin::blessed($err) and $err->can("throw") |
| 533 | 0 | 0 | 1 | @array == 1 and ref $array[0] |
| 600 | 3 | 0 | 1 | ref $e and $e->isa("Error") |
| line | l | !l | condition |
|---|---|---|---|
| 231 | 6 | 10 | shift() || {} |
| 232 | 3 | 13 | $clauses->{'catch'} ||= [] |
| 527 | 0 | 1 | shift() || {} |
| 528 | 0 | 1 | $clauses->{'catch'} ||= [] |
| 554 | 0 | 10 | shift() || {} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 425 | 2 | 0 | 0 | $@ || $Error::THROWN |
| 468 | 23 | 0 | 0 | $@ || $Error::THROWN |
| 595 | 1 | 3 | 0 | $old_DIE || sub { die @_; } |
| 646 | 1 | 2 | 0 | $old_WARN || sub { warn @_; } |