| line |
true |
false |
branch |
|
30
|
1 |
0 |
unless defined $CGI::Ex::Die::SHOW_TRACE |
|
31
|
1 |
0 |
unless defined $CGI::Ex::Die::IGNORE_EVAL |
|
32
|
1 |
0 |
if not defined $CGI::Ex::Die::EXTENDED_ERRORS |
|
39
|
1 |
1 |
if ($#_ != -1) |
|
40
|
0 |
1 |
if (($#_ + 1) % 2) |
|
49
|
1 |
0 |
if (not ref $args{'register'} or grep {/die/;} @{$args{"register"};}) |
|
52
|
0 |
1 |
if exists $args{'show_trace'} |
|
53
|
0 |
1 |
if exists $args{'ignore_eval'} |
|
54
|
0 |
1 |
if exists $args{'extended_errors'} |
|
55
|
0 |
1 |
if exists $args{'error_template'} |
|
56
|
0 |
1 |
if exists $args{'log_handler'} |
|
57
|
0 |
1 |
if exists $args{'final_handler'} |
|
67
|
0 |
0 |
if $no_recurse |
|
71
|
0 |
0 |
unless ($CGI::Ex::Die::IGNORE_EVAL) |
|
72
|
0 |
0 |
if (not $ENV{'MOD_PERL'}) { } |
|
75
|
0 |
0 |
unless $sub =~ /eval/ |
|
84
|
0 |
0 |
if not $found and $sub =~ /eval/ |
|
85
|
0 |
0 |
if $sub =~ /^(Apache|ModPerl)::(PerlRun|Registry)/ |
|
87
|
0 |
0 |
if ($found and $n - 1 != $found) |
|
94
|
0 |
0 |
if (ref $err) { } |
|
|
0 |
0 |
elsif ($CGI::Ex::Die::EXTENDED_ERRORS and $err) { } |
|
98
|
0 |
0 |
if ($copy =~ m[^Execution of ([/\w\.\-]+) aborted due to compilation errors]is) { } |
|
|
0 |
0 |
elsif ($copy =~ m[^syntax error at ([/\w.\-]+) line \d+, near]im) { } |
|
114
|
0 |
0 |
!$CGI::Ex::Die::SHOW_TRACE ? : |
|
119
|
0 |
0 |
if $LOG_HANDLER |
|
122
|
0 |
0 |
if ($ENV{'REQUEST_METHOD'}) { } |
|
130
|
0 |
0 |
if ($ERROR_TEMPLATE) |
|
133
|
0 |
0 |
substr($ERROR_TEMPLATE, 0, 1) ne '/' ? : |
|
|
0 |
0 |
UNIVERSAL::isa($ERROR_TEMPLATE, 'CODE') ? : |
|
134
|
0 |
0 |
if (open my $fh, $ERROR_TEMPLATE) |
|
139
|
0 |
0 |
if ($out) { } |
|
146
|
0 |
0 |
if (my $r = $cgix->apache_request) { } |
|
147
|
0 |
0 |
if ($r->bytes_sent) { } |
|
161
|
0 |
0 |
if $FINAL_HANDLER |