| line |
true |
false |
branch |
|
205
|
0 |
3 |
ref $_[0] ? : |
|
221
|
0 |
3 |
if (defined $opts->{'pids'}) |
|
222
|
0 |
0 |
if (ref $opts->{'pids'} ne 'ARRAY') |
|
227
|
0 |
0 |
unless ($pid =~ /^\d+\z/) |
|
239
|
0 |
3 |
if ($opts->{'pages_to_bytes'}) |
|
254
|
0 |
3 |
unless (exists $self->{'init'}) |
|
285
|
30 |
0 |
if (defined $stat) |
|
313
|
0 |
210 |
unless (defined $data) |
|
318
|
60 |
150 |
if ($key eq 'statm' or $key eq 'stat') { } |
|
338
|
0 |
3 |
unless (defined $istat->{'time'} and defined $lstat->{'time'}) |
|
342
|
0 |
3 |
unless ($istat->{'time'} =~ /^-{0,1}\d+(?:\.\d+){0,1}\z/ and $lstat->{'time'} =~ /^-{0,1}\d+(?:\.\d+){0,1}\z/) |
|
357
|
30 |
0 |
if ($ipid and $ipid->{'sttime'} == $lpid->{'sttime'}) { } |
|
361
|
0 |
240 |
unless (defined $ipid->{$k}) |
|
364
|
0 |
240 |
unless ($ipid->{$k} =~ /^-{0,1}\d+(?:\.\d+){0,1}\z/ and $lpid->{$k} =~ /^-{0,1}\d+(?:\.\d+){0,1}\z/) |
|
371
|
8 |
232 |
if ($lpid->{$k} > 0 and $time > 0) { } |
|
385
|
21 |
189 |
if (defined $ipid->{'io'}{$k} and defined $lpid->{'io'}{$k}) |
|
386
|
0 |
21 |
unless ($ipid->{'io'}{$k} =~ /^-{0,1}\d+(?:\.\d+){0,1}\z/ and $lpid->{'io'}{$k} =~ /^-{0,1}\d+(?:\.\d+){0,1}\z/) |
|
393
|
6 |
15 |
if ($lpid->{'io'}{$k} > 0 and $time > 0) { } |
|
412
|
0 |
0 |
if ($p_uptime > 0) { } |
|
428
|
0 |
0 |
if ($p_uptime > 0) { } |
|
448
|
0 |
30 |
unless open my $fh, '<', "$file->{'path'}/$pid/$file->{'statm'}" |
|
453
|
0 |
30 |
if (@line < 7) |
|
459
|
0 |
30 |
if ($ptb) { } |
|
476
|
0 |
60 |
unless open my $fh, '<', "$file->{'path'}/$pid/$file->{'stat'}" |
|
481
|
0 |
60 |
if (@line < 38) |
|
508
|
0 |
30 |
unless open my $fh, '<', "$file->{'path'}/$pid/$file->{'status'}" |
|
512
|
30 |
210 |
if ($line =~ /^Uid:(?:\s+|\t+)(\d+)/) |
|
526
|
0 |
30 |
unless open my $fh, '<', "$file->{'path'}/$pid/$file->{'cmdline'}" |
|
532
|
0 |
30 |
unless (defined $cmdline) |
|
547
|
0 |
30 |
unless open my $fh, '<', "$file->{'path'}/$pid/$file->{'wchan'}" |
|
553
|
0 |
30 |
unless (defined $wchan) |
|
566
|
60 |
0 |
if (open my $fh, '<', "$file->{'path'}/$pid/$file->{'io'}") |
|
568
|
42 |
0 |
if ($line =~ /^([a-z_]+):\s+(\d+)/) |
|
584
|
30 |
0 |
if (opendir my $dh, "$file->{'path'}/$pid/$file->{'fd'}") |
|
586
|
18 |
123 |
if (my $target = readlink "$file->{'path'}/$pid/$file->{'fd'}/$link") |
|
600
|
0 |
6 |
if ($self->{'pids'}) |
|
605
|
0 |
6 |
unless opendir my $dh, $file->{'path'} |
|
616
|
66 |
0 |
$file->{'path'} ? : |
|
617
|
0 |
66 |
unless open my $fh, '<', $filename |
|
626
|
0 |
60 |
if $s >= 86400 and $d = sprintf('%i', $s / 86400) |
|
627
|
0 |
60 |
if $s >= 3600 and $h = sprintf('%i', $s / 3600) |
|
628
|
0 |
60 |
if $s >= 60 and $m = sprintf('%i', $s / 60) |