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'} |
383
|
27 |
797 |
if (@_ == 2) { } |
|
797 |
0 |
elsif (@_ == 3) { } |
390
|
0 |
0 |
if @_ |
398
|
826 |
0 |
if $logfh |
399
|
0 |
826 |
if $log |
403
|
0 |
1 |
if $kill_caught++ |
409
|
1 |
0 |
if (not $option{'suppress'} or $option{'log'}) |
412
|
1 |
0 |
unless ($option{'suppress'}) |
415
|
0 |
1 |
if ($option{'stdout'}) { } |
420
|
0 |
0 |
'time' eq $dopt ? : |
|
1 |
0 |
'date' eq $dopt ? : |
|
0 |
1 |
'none' eq $dopt ? : |
427
|
1 |
0 |
if $date |
428
|
0 |
1 |
if $option{'logext'} =~ /^[^.]/ |
430
|
0 |
1 |
unless open $logfh, '>>', $log_path |
435
|
1 |
0 |
if flock $logfh, 2 |
436
|
0 |
0 |
if $lock_cnt > 30 |
437
|
0 |
0 |
unless $lock_cnt++ |
441
|
0 |
1 |
if $lock_cnt |
454
|
106 |
0 |
if (open my $fd, '<', $loc) |
474
|
1 |
0 |
if (open my $cpuinfo, '<', '/proc/cpuinfo') |
477
|
16 |
400 |
if /^\s*$/ |
479
|
16 |
384 |
if ($k eq 'processor') { } |
484
|
368 |
16 |
if $v =~ /\S/ |
491
|
1 |
0 |
if (open my $fd, '<', $^X) |
497
|
0 |
1 |
if (open my $fd, '<', $Config{'libc'}) |
508
|
1 |
0 |
if (open my $fd, '<', "$progdir/$progbase") |
527
|
1 |
0 |
if $logfh |