| line |
true |
false |
branch |
|
680
|
8 |
10 |
unless scalar @_ |
|
681
|
0 |
10 |
if ($_[0] eq 'verbose') { } |
|
|
1 |
9 |
elsif ($_[0] eq '*STDLOG') { } |
|
|
1 |
8 |
elsif ($_[0] eq '*STDBUG') { } |
|
|
8 |
0 |
elsif ($_[0] eq '*STDERR') { } |
|
|
0 |
0 |
elsif ($_[0] eq 'fatalsToBrowser') { } |
|
685
|
1 |
0 |
unless ($CGI::LogCarp::STDLOG) |
|
686
|
0 |
1 |
unless open STDLOG, '>&STDERR' |
|
693
|
1 |
0 |
unless ($CGI::LogCarp::STDBUG) |
|
694
|
0 |
1 |
unless open STDBUG, '>&STDOUT' |
|
701
|
6 |
2 |
unless (fileno \*CGI::LogCarp::STDERR) |
|
702
|
0 |
6 |
unless open CGI::LogCarp::STDERR, '>&STDERR' |
|
734
|
0 |
6 |
unless open main::_STDERR, '>&STDERR' |
|
847
|
3 |
28 |
if (defined $value) |
|
850
|
0 |
3 |
if scalar grep({/^$value$/i;} @$NO) |
|
851
|
0 |
3 |
if scalar grep({/^$value$/i;} @$YES) |
|
852
|
0 |
3 |
if scalar grep({/^$value$/i;} @$TRACE) |
|
858
|
0 |
3 |
if $CGI::LogCarp::DEBUGLEVEL and not $CGI::LogCarp::LOGLEVEL |
|
895
|
3 |
14 |
if (defined $value) |
|
898
|
0 |
3 |
if scalar grep({/^$value$/i;} @$NO) |
|
899
|
0 |
3 |
if scalar grep({/^$value$/i;} @$YES) |
|
920
|
0 |
15 |
unless $message =~ /\n$/ |
|
924
|
3 |
12 |
if ($CGI::LogCarp::STDBUG) |
|
925
|
3 |
0 |
unless is_STDERR *main::STDBUG |
|
927
|
3 |
12 |
if ($CGI::LogCarp::STDLOG) |
|
928
|
3 |
0 |
unless is_STDERR *main::STDLOG or is_STDBUG *main::STDLOG |
|
951
|
0 |
11 |
unless $message =~ /\n$/ |
|
952
|
0 |
11 |
if $CGI::LogCARP::fatalsToBrowser and not _longmess() =~ /eval [{']/m |
|
960
|
2 |
9 |
if ($CGI::LogCarp::STDBUG) |
|
961
|
2 |
0 |
unless is_STDERR *main::STDBUG |
|
963
|
2 |
9 |
if ($CGI::LogCarp::STDLOG) |
|
964
|
0 |
2 |
unless is_STDERR *main::STDLOG or is_STDBUG *main::STDLOG |
|
985
|
0 |
0 |
if $mod_perl |
|
1067
|
0 |
0 |
unless (scalar @_) |
|
1074
|
0 |
0 |
if (&is_STDERR($fh)) { } |
|
|
0 |
0 |
elsif (&is_STDLOG($fh)) { } |
|
|
0 |
0 |
elsif (&is_STDBUG($fh)) { } |
|
1097
|
4 |
0 |
unless $message =~ /\n$/ |
|
1101
|
0 |
4 |
if ($CGI::LogCarp::STDBUG) |
|
1102
|
0 |
0 |
unless is_STDLOG *main::STDBUG |
|
1118
|
1 |
3 |
unless DEBUGLEVEL() > 0 |
|
1121
|
3 |
0 |
unless $message =~ /\n$/ |
|
1140
|
3 |
1 |
unless DEBUGLEVEL() > 1 |
|
1143
|
1 |
0 |
unless $message =~ /\n$/ |
|
1165
|
0 |
0 |
unless $message =~ /\n$/ |
|
1169
|
0 |
0 |
if ($CGI::LogCarp::STDBUG) |
|
1170
|
0 |
0 |
unless is_STDERR *main::STDBUG or is_realSTDERR *main::STDBUG |
|
1176
|
0 |
0 |
if ($CGI::LogCarp::STDLOG) |
|
1177
|
0 |
0 |
unless is_STDERR *main::STDLOG or is_STDBUG *main::STDLOG or is_realSTDERR *main::STDLOG |
|
1185
|
0 |
0 |
unless is_realSTDERR *STDERR |
|
1204
|
0 |
6 |
unless $fh = to_filehandle($fh) |
|
1205
|
1 |
5 |
if (&is_STDERR($fh)) { } |
|
1206
|
0 |
1 |
unless open STDERR, '>&main::_STDERR' |
|
1209
|
0 |
5 |
unless my $no = fileno $fh |
|
1210
|
0 |
5 |
unless open STDERR, '>&' . $no |
|
1232
|
0 |
2 |
unless $fh = to_filehandle($fh) |
|
1233
|
1 |
1 |
if (&is_STDLOG($fh)) { } |
|
1234
|
0 |
1 |
unless open main::STDLOG, '>&main::_STDERR' |
|
1237
|
0 |
1 |
unless my $no = fileno $fh |
|
1238
|
0 |
1 |
unless open main::STDLOG, '>&' . $no |
|
1260
|
0 |
2 |
unless $fh = to_filehandle($fh) |
|
1261
|
1 |
1 |
if (&is_STDBUG($fh)) { } |
|
1262
|
0 |
1 |
unless open main::STDBUG, '>&STDOUT' |
|
1265
|
0 |
1 |
unless my $no = fileno $fh |
|
1266
|
0 |
1 |
unless open main::STDBUG, '>&' . $no |
|
1280
|
0 |
0 |
$ENV{'SERVER_ADMIN'} ? : |
|
1289
|
0 |
0 |
if ($CGI::LogCarp::CUSTOM_STDERR_MSG) |
|
1290
|
0 |
0 |
if (ref $CGI::LogCarp::CUSTOM_STDERR_MSG eq 'CODE') { } |
|
1318
|
0 |
152 |
unless $thingy |
|
1319
|
152 |
0 |
if UNIVERSAL::isa($thingy, 'GLOB') |
|
1320
|
0 |
0 |
if UNIVERSAL::isa($thingy, 'FileHandle') |
|
1321
|
0 |
0 |
unless (ref $thingy) |
|
1324
|
0 |
0 |
$thingy =~ /[\':]/ ? : |
|
1325
|
0 |
0 |
if defined fileno $tmp |
|
1431
|
0 |
15 |
if ($CGI::LogCarp::CUSTOM_STDERR_MSG) |
|
1432
|
0 |
0 |
if (ref $CGI::LogCarp::CUSTOM_STDERR_MSG eq 'CODE') |
|
1455
|
0 |
11 |
if ($CGI::LogCarp::CUSTOM_STDERR_MSG) |
|
1456
|
0 |
0 |
if (ref $CGI::LogCarp::CUSTOM_STDERR_MSG eq 'CODE') |
|
1483
|
2 |
5 |
unless LOGLEVEL() > 0 |
|
1485
|
0 |
5 |
if ($CGI::LogCarp::CUSTOM_STDLOG_MSG) |
|
1486
|
0 |
0 |
if (ref $CGI::LogCarp::CUSTOM_STDLOG_MSG eq 'CODE') |
|
1508
|
1 |
8 |
unless DEBUGLEVEL() > 0 |
|
1510
|
0 |
8 |
if ($CGI::LogCarp::CUSTOM_STDBUG_MSG) |
|
1511
|
0 |
0 |
if (ref $CGI::LogCarp::CUSTOM_STDBUG_MSG eq 'CODE') |
|
1537
|
0 |
0 |
if ($CGI::LogCarp::CUSTOM_STDERR_MSG) |
|
1538
|
0 |
0 |
if (ref $CGI::LogCarp::CUSTOM_STDERR_MSG eq 'CODE') |
|
1607
|
0 |
29 |
unless $fh1 = to_filehandle($fh1) |
|
1608
|
0 |
29 |
unless $fh2 = to_filehandle($fh2) |
|
1611
|
0 |
29 |
unless defined $fno1 or defined $fno2 |
|
1612
|
3 |
26 |
unless defined $fno1 and defined $fno2 |
|
1615
|
19 |
7 |
if $device1 == $device2 |
|
1637
|
0 |
39 |
unless $fh = to_filehandle($fh) |
|
1638
|
0 |
39 |
unless my $no = fileno $fh |
|
1639
|
12 |
27 |
unless -f $fh and -w _ |
|
1658
|
0 |
45 |
unless $fh = to_filehandle($fh) |
|
1659
|
0 |
45 |
unless my $no = fileno $fh |
|
1660
|
14 |
31 |
unless -f $fh and -w _ |
|
1671
|
10 |
0 |
if ref $_[0] |
|
1673
|
0 |
10 |
@_ > 1 ? : |