| line |
true |
false |
branch |
|
14
|
2 |
0 |
unless $MyDebug |
|
168
|
0 |
39 |
unless defined $value |
|
170
|
39 |
171 |
if ($key =~ /$Mapping{$canonkey}/) |
|
203
|
0 |
54 |
$caller eq '' || $caller eq $INC{'Carp.pm'} || $caller eq $INC{'CGI/Carp.pm'} ? : |
|
211
|
0 |
0 |
unless defined $message or $no_more_first |
|
212
|
54 |
0 |
if defined $message |
|
213
|
18 |
36 |
unless $first_message |
|
237
|
0 |
54 |
unless $file and -f $file |
|
240
|
54 |
0 |
if (open my $fh, '<', $file) |
|
244
|
4248 |
432 |
if $ct < $line_no - $Options{'show_lines'} |
|
245
|
54 |
378 |
if $ct > $line_no + $Options{'show_lines'} |
|
259
|
12 |
6 |
unless $flag |
|
274
|
12 |
6 |
unless $flag |
|
288
|
6 |
12 |
if (%{$href;}) |
|
309
|
0 |
18 |
if (ref $engine and $engine->can('as_html')) { } |
|
315
|
0 |
18 |
if lc $engine eq 'template' |
|
317
|
0 |
18 |
$engine =~ s/^\+// ? : |
|
320
|
6 |
12 |
if ($@) |
|
373
|
0 |
0 |
if (exists $ENV{'MOD_PERL'}) { } |
|
376
|
0 |
0 |
if ($ENV{'MOD_PERL_API_VERSION'}) { } |
|
389
|
0 |
0 |
if ($r->bytes_sent) { } |
|
391
|
0 |
0 |
$mod_perl == 2 ? : |
|
394
|
0 |
0 |
if ($ENV{'HTTP_USER_AGENT'} =~ /MSIE/) |