| line |
true |
false |
branch |
|
216
|
0 |
4 |
unless open my $fh, '<', $file |
|
223
|
0 |
4 |
if ref $_[0] eq 'CODE' |
|
227
|
0 |
4 |
if $accept and not &$accept($log) |
|
228
|
0 |
4 |
if $firstonly |
|
238
|
4 |
2471 |
if $line =~ /^$/ |
|
239
|
4 |
2467 |
if $line =~ /^########/ |
|
245
|
0 |
2467 |
unless scalar @keys >= 2 |
|
248
|
93 |
2374 |
if (scalar @keys == 0) { } |
|
249
|
28 |
65 |
if ($key eq 'INC') { } |
|
254
|
0 |
65 |
if exists $log->{$key} |
|
260
|
0 |
2374 |
if scalar @keys |
|
262
|
880 |
1494 |
if ($key eq 'MODULE') { } |
|
263
|
0 |
880 |
unless $modkeys{$key2} |
|
268
|
0 |
1494 |
if exists $log->{$key}{$key2} |
|
280
|
1 |
0 |
unless ref $logger eq 'CODE' |
|
303
|
0 |
1 |
if $uid ne $euid |
|
304
|
0 |
1 |
if $egid ne $gid |
|
326
|
0 |
6 |
if exists $ENV{$k} |
|
340
|
1 |
0 |
if ($_[0] =~ /^-(logname|logdir|logext|logdate)$/) { } |
|
|
0 |
0 |
elsif ($_[0] =~ /^-(stdout|suppress)$/) { } |
|
342
|
0 |
1 |
if scalar @_ == 1 |
|
357
|
0 |
1 |
if @_ and $_[0] =~ /^-/ |
|
358
|
0 |
1 |
if @_ |
|
360
|
0 |
1 |
unless exists $valid_dates{$option{'logdate'}} |
|
362
|
0 |
1 |
if $ENV{'DUMP_LOG_IMPORTS'} |
|
384
|
0 |
2445 |
unless length $_ |
|
388
|
27 |
797 |
if (@vals == 2) { } |
|
|
797 |
0 |
elsif (@vals == 3) { } |
|
395
|
0 |
0 |
if @vals |
|
403
|
826 |
0 |
if $logfh |
|
404
|
0 |
826 |
if $log |
|
408
|
0 |
1 |
if $kill_caught++ |
|
414
|
1 |
0 |
if (not $option{'suppress'} or $option{'log'}) |
|
417
|
1 |
0 |
unless ($option{'suppress'}) |
|
420
|
0 |
1 |
if ($option{'stdout'}) { } |
|
425
|
0 |
0 |
'time' eq $dopt ? : |
|
|
1 |
0 |
'date' eq $dopt ? : |
|
|
0 |
1 |
'none' eq $dopt ? : |
|
432
|
1 |
0 |
if $date |
|
433
|
0 |
1 |
if $option{'logext'} =~ /^[^.]/ |
|
435
|
0 |
1 |
unless open $logfh, '>>', $log_path |
|
440
|
1 |
0 |
if flock $logfh, 2 |
|
441
|
0 |
0 |
if $lock_cnt > 30 |
|
442
|
0 |
0 |
unless $lock_cnt++ |
|
446
|
0 |
1 |
if $lock_cnt |
|
459
|
106 |
0 |
if (open my $fd, '<', $loc) |
|
479
|
1 |
0 |
if (open my $cpuinfo, '<', '/proc/cpuinfo') |
|
482
|
16 |
400 |
if /^\s*$/ |
|
484
|
16 |
384 |
if ($k eq 'processor') { } |
|
489
|
368 |
16 |
if $v =~ /\S/ |
|
496
|
1 |
0 |
if (open my $fd, '<', $^X) |
|
502
|
0 |
1 |
if (open my $fd, '<', $Config{'libc'}) |
|
513
|
1 |
0 |
if (open my $fd, '<', "$progdir/$progbase") |
|
532
|
1 |
0 |
if $logfh |