| line |
true |
false |
branch |
|
32
|
7 |
8 |
if (not $directive) { } |
|
|
1 |
7 |
elsif ($directive eq '-with_using') { } |
|
|
7 |
0 |
elsif ($directive eq '-class') { } |
|
77
|
1 |
7 |
unless ref $err |
|
83
|
8 |
0 |
if (defined($catch = $$clauses{'catch'})) |
|
89
|
0 |
9 |
if (not defined $pkg) { } |
|
|
7 |
2 |
elsif (&Scalar::Util::blessed($err) and $err->isa($pkg)) { } |
|
103
|
0 |
7 |
if ($wantarray) { } |
|
|
0 |
7 |
elsif (defined $wantarray) { } |
|
115
|
7 |
0 |
if ($ok) { } |
|
116
|
0 |
7 |
if $more |
|
121
|
0 |
0 |
unless ref $err |
|
132
|
1 |
0 |
if (defined($owise = $$clauses{'otherwise'})) |
|
139
|
0 |
1 |
if ($wantarray) { } |
|
|
0 |
1 |
elsif (defined $wantarray) { } |
|
151
|
1 |
0 |
if ($ok) { } |
|
157
|
0 |
0 |
unless ref $err |
|
169
|
8 |
0 |
@_ ? : |
|
181
|
0 |
8 |
if ($wantarray) { } |
|
|
0 |
8 |
elsif (defined $wantarray) { } |
|
193
|
8 |
0 |
unless $ok |
|
197
|
8 |
0 |
unless $ok |
|
200
|
1 |
7 |
if defined $$clauses{'finally'} |
|
203
|
0 |
8 |
if (defined $err) |
|
205
|
0 |
0 |
if (&Scalar::Util::blessed($err) and $err->can('throw')) { } |
|
215
|
0 |
8 |
wantarray ? : |
|
257
|
0 |
0 |
if (@array == 1 and ref $array[0]) { } |
|
259
|
0 |
0 |
if UNIVERSAL::isa($ref, 'HASH') |
|
277
|
0 |
3 |
if (exists $$clauses{'otherwise'}) |
|
289
|
1 |
1 |
if $value |
|
321
|
0 |
0 |
unless @_ |
|
324
|
0 |
0 |
exists $ERROR{$pkg} ? : |
|
|
0 |
0 |
unless ref $pkg |
|
329
|
0 |
0 |
if ($obj->isa('HASH')) { } |
|
|
0 |
0 |
elsif ($obj->isa('GLOB')) { } |
|
330
|
0 |
0 |
if exists $$obj{'__Error__'} |
|
335
|
0 |
0 |
if exists ${*$obj;}{'__Error__'} |
|
344
|
0 |
0 |
unless (@_) |
|
350
|
0 |
0 |
unless ref $pkg |
|
352
|
0 |
0 |
if defined $ERROR{$pkg} |
|
362
|
0 |
0 |
if exists $$self{'-stacktrace'} |
|
365
|
0 |
0 |
exists $$self{'-text'} ? : |
|
367
|
0 |
0 |
unless $text =~ /\n$/s |
|
378
|
0 |
0 |
unless ref $obj |
|
380
|
0 |
0 |
if ($obj->isa('HASH')) { } |
|
|
0 |
0 |
elsif ($obj->isa('GLOB')) { } |
|
397
|
8 |
0 |
@_ % 2 ? : |
|
405
|
0 |
8 |
if exists $$err{'-object'} |
|
411
|
0 |
8 |
if ($Exception::Debug) |
|
414
|
0 |
0 |
defined $$err{'-text'} ? : |
|
433
|
7 |
0 |
unless ref $self |
|
457
|
0 |
0 |
exists $$self{'-object'} ? : |
|
462
|
0 |
0 |
exists $$self{'-file'} ? : |
|
467
|
0 |
0 |
exists $$self{'-line'} ? : |
|
472
|
2 |
0 |
exists $$self{'-text'} ? : |
|
479
|
2 |
0 |
defined $$self{'-text'} ? : |
|
484
|
0 |
0 |
exists $$self{'-value'} ? : |