| line |
true |
false |
branch |
|
342
|
1 |
3 |
if (@name = grep(/^name=/, @_)) |
|
350
|
0 |
4 |
if $routines{'fatalsToBrowser'} or $routines{'wrap'} |
|
351
|
0 |
4 |
if $routines{'warningsToBrowser'} |
|
356
|
0 |
4 |
if $routines{'fatalsToBrowser'} |
|
357
|
1 |
3 |
if $routines{'noTimestamp'} |
|
374
|
0 |
18 |
if (defined $PROGNAME) { } |
|
382
|
17 |
1 |
unless ($FULL_PATH) |
|
385
|
2 |
16 |
if $NO_TIMESTAMP |
|
399
|
5 |
1 |
unless $message =~ /\n$/ |
|
400
|
3 |
3 |
if $WARN |
|
408
|
3 |
3 |
if ($EMIT_WARNINGS) { } |
|
426
|
0 |
10 |
if exists $ENV{'MOD_PERL'} |
|
431
|
0 |
23 |
exists $ENV{'MOD_PERL'} ? : |
|
|
10 |
13 |
unless exists $ENV{'MOD_PERL'} ? 0 : $^S |
|
437
|
1 |
2 |
$@ ? : |
|
|
18 |
3 |
@_ ? : |
|
442
|
0 |
21 |
if $DIE_HANDLER |
|
448
|
2 |
19 |
if @rest |
|
452
|
11 |
10 |
unless ref $arg or $arg =~ /\n$/ |
|
454
|
12 |
9 |
if ineval() |
|
455
|
8 |
0 |
if $WRAP and $TO_BROWSER |
|
457
|
9 |
0 |
if $arg =~ /\n$/ or not exists $ENV{'MOD_PERL'} |
|
459
|
5 |
4 |
unless $arg =~ /\n$/ |
|
498
|
0 |
1 |
unless defined $no |
|
501
|
0 |
1 |
unless open STDERR, ">&$no" |
|
506
|
16 |
0 |
@_ ? : |
|
514
|
5 |
10 |
if ref $msg |
|
522
|
3 |
12 |
$ENV{'SERVER_ADMIN'} ? : |
|
531
|
2 |
13 |
if ($CUSTOM_MSG) |
|
532
|
1 |
1 |
if (ref $CUSTOM_MSG eq 'CODE') { } |
|
533
|
1 |
0 |
unless $mod_perl |
|
538
|
0 |
1 |
if ($@) |
|
555
|
2 |
12 |
if ($mod_perl) { } |
|
557
|
1 |
1 |
if ($ENV{'MOD_PERL_API_VERSION'} and $ENV{'MOD_PERL_API_VERSION'} == 2) { } |
|
574
|
1 |
1 |
if ($r->bytes_sent) { } |
|
576
|
1 |
0 |
$mod_perl == 2 ? : |
|
579
|
1 |
0 |
if (defined $ENV{'HTTP_USER_AGENT'} and $ENV{'HTTP_USER_AGENT'} =~ /MSIE/) |
|
586
|
0 |
12 |
if (defined $bytes_written and $bytes_written > 0) { } |
|
593
|
0 |
12 |
if (defined $ENV{'HTTP_USER_AGENT'} and $ENV{'HTTP_USER_AGENT'} =~ /MSIE/) |
|
607
|
0 |
6 |
unless $thingy |
|
608
|
3 |
3 |
if UNIVERSAL::isa($thingy, 'GLOB') |
|
609
|
0 |
3 |
if UNIVERSAL::isa($thingy, 'FileHandle') |
|
610
|
3 |
0 |
unless (ref $thingy) |
|
613
|
2 |
1 |
$thingy =~ /[\':]/ ? : |
|
614
|
2 |
1 |
if defined fileno $tmp |