| line |
true |
false |
branch |
| 336 |
1 |
1 |
if (@name = grep(/^name=/, @_)) |
| 344 |
0 |
2 |
if $routines{'fatalsToBrowser'} or $routines{'wrap'} |
| 345 |
0 |
2 |
if $routines{'warningsToBrowser'} |
| 350 |
0 |
2 |
if $routines{'fatalsToBrowser'} |
| 369 |
0 |
17 |
if (defined $PROGNAME) { } |
| 390 |
3 |
11 |
unless $message =~ /\n$/ |
| 391 |
11 |
3 |
if $WARN |
| 399 |
11 |
1 |
if ($EMIT_WARNINGS) { } |
| 416 |
0 |
2 |
if exists $ENV{'MOD_PERL'} |
| 422 |
0 |
4 |
exists $ENV{'MOD_PERL'} ? : |
| |
2 |
2 |
unless exists $ENV{'MOD_PERL'} ? 0 : $^S |
| 428 |
0 |
2 |
if ($DIE_HANDLER) |
| 432 |
1 |
1 |
if (ineval()) |
| 433 |
1 |
0 |
if (not ref $arg) { } |
| 436 |
1 |
0 |
unless $arg =~ /\n$/ |
| 444 |
1 |
0 |
if (not ref $arg) |
| 447 |
1 |
0 |
unless $arg =~ /\n$/ |
| 448 |
0 |
1 |
if $WRAP |
| 449 |
1 |
0 |
if ($arg =~ /\n$/ or not exists $ENV{'MOD_PERL'}) |
| 453 |
1 |
0 |
if (not $arg =~ /\n$/) |
| 494 |
0 |
0 |
unless defined $no |
| 497 |
0 |
0 |
unless open STDERR, ">&$no" |
| 502 |
6 |
0 |
@_ ? : |
| 513 |
2 |
2 |
$ENV{'SERVER_ADMIN'} ? : |
| 523 |
1 |
3 |
if ($CUSTOM_MSG) |
| 524 |
0 |
1 |
if (ref $CUSTOM_MSG eq 'CODE') { } |
| 525 |
0 |
0 |
unless $mod_perl |
| 543 |
0 |
4 |
if ($mod_perl) { } |
| 545 |
0 |
0 |
if ($ENV{'MOD_PERL_API_VERSION'} and $ENV{'MOD_PERL_API_VERSION'} == 2) { } |
| 562 |
0 |
0 |
if ($r->bytes_sent) { } |
| 564 |
0 |
0 |
$mod_perl == 2 ? : |
| 567 |
0 |
0 |
if ($ENV{'HTTP_USER_AGENT'} =~ /MSIE/) |
| 574 |
0 |
4 |
if (defined $bytes_written and $bytes_written > 0) { } |
| 590 |
0 |
5 |
unless $thingy |
| 591 |
2 |
3 |
if UNIVERSAL::isa($thingy, 'GLOB') |
| 592 |
0 |
3 |
if UNIVERSAL::isa($thingy, 'FileHandle') |
| 593 |
3 |
0 |
if (not ref $thingy) |
| 596 |
2 |
1 |
$thingy =~ /[':]/ ? : |
| 597 |
2 |
1 |
if defined fileno $tmp |