| line |
true |
false |
branch |
|
53
|
14 |
12 |
if ($_ eq ':warndie') { } |
|
74
|
1 |
0 |
unless @_ |
|
77
|
0 |
0 |
exists $ERROR{$pkg} ? : |
|
|
0 |
0 |
unless ref $pkg |
|
82
|
0 |
0 |
if ($obj->isa('HASH')) { } |
|
|
0 |
0 |
elsif ($obj->isa('GLOB')) { } |
|
85
|
0 |
0 |
if exists $obj->{'__Error__'} |
|
90
|
0 |
0 |
if exists do {
*$obj
}->{'__Error__'} |
|
100
|
0 |
0 |
unless (@_) |
|
107
|
0 |
0 |
unless ref $pkg |
|
109
|
0 |
0 |
if defined $ERROR{$pkg} |
|
121
|
1 |
0 |
if exists $self->{'-stacktrace'} |
|
123
|
0 |
0 |
exists $self->{'-text'} ? : |
|
125
|
0 |
0 |
unless $text =~ /\n$/s |
|
136
|
0 |
0 |
unless ref $obj |
|
138
|
0 |
0 |
if ($obj->isa('HASH')) { } |
|
|
0 |
0 |
elsif ($obj->isa('GLOB')) { } |
|
165
|
0 |
25 |
if exists $err->{'-object'} |
|
170
|
1 |
24 |
if ($Error::Debug) |
|
174
|
1 |
0 |
defined $err->{'-text'} ? : |
|
196
|
12 |
11 |
unless ref $self |
|
246
|
0 |
0 |
exists $self->{'-object'} ? : |
|
252
|
11 |
0 |
exists $self->{'-file'} ? : |
|
258
|
11 |
0 |
exists $self->{'-line'} ? : |
|
264
|
1 |
0 |
exists $self->{'-text'} ? : |
|
272
|
12 |
0 |
defined $self->{'-text'} ? : |
|
278
|
3 |
0 |
exists $self->{'-value'} ? : |
|
294
|
12 |
10 |
if $text =~ s/\s+at\s+(\S+)\s+line\s+(\d+)(?:,\s*<[^>]*>\s+line\s+\d+)?\.?\n?$//s |
|
297
|
1 |
21 |
if defined $value |
|
307
|
10 |
2 |
unless $text =~ /\n$/s |
|
333
|
9 |
14 |
unless ref $err |
|
340
|
14 |
9 |
if (defined($catch = $clauses->{'catch'})) |
|
348
|
15 |
1 |
defined $pkg ? : |
|
399
|
8 |
5 |
if (defined($owise = $clauses->{'otherwise'})) |
|
406
|
0 |
8 |
if ($wantarray) { } |
|
|
0 |
8 |
elsif (defined $wantarray) { } |
|
421
|
6 |
2 |
if ($ok) { } |
|
429
|
2 |
0 |
unless ref $err |
|
440
|
24 |
1 |
@_ ? : |
|
455
|
0 |
25 |
if ($wantarray) { } |
|
|
3 |
22 |
elsif (defined $wantarray) { } |
|
470
|
23 |
2 |
unless $ok |
|
476
|
23 |
2 |
unless $ok |
|
480
|
3 |
22 |
if defined $clauses->{'finally'} |
|
482
|
12 |
13 |
if (defined $err) |
|
484
|
11 |
1 |
if (&Scalar::Util::blessed($err) and $err->can('throw')) { } |
|
494
|
0 |
13 |
wantarray ? : |
|
535
|
1 |
0 |
if (@array == 1 and ref $array[0]) { } |
|
538
|
1 |
0 |
if UNIVERSAL::isa($ref, 'HASH') |
|
558
|
0 |
10 |
if (exists $clauses->{'otherwise'}) |
|
597
|
1 |
3 |
if defined $old_DIE |
|
599
|
0 |
4 |
if $^S |
|
602
|
1 |
3 |
if (ref $e and $e->isa('Error')) { } |
|
612
|
0 |
3 |
if $e =~ /^\nUnhandled perl error caught at toplevel:\n\n/ |
|
625
|
2 |
1 |
if ($message =~ s/ at (.*?) line (\d+)\.$//) { } |
|
649
|
1 |
2 |
if defined $old_WARN |