| line |
true |
false |
branch |
|
72
|
0 |
0 |
unless (-e $opt{'binary'}) |
|
75
|
0 |
0 |
unless (-x $opt{'binary'} and -f $opt{'binary'}) |
|
83
|
0 |
0 |
if ($@) |
|
84
|
0 |
0 |
$err ? : |
|
89
|
0 |
0 |
if (wantarray) { } |
|
98
|
0 |
0 |
if ($opt{'suppress_errors'}) { } |
|
107
|
0 |
0 |
if ($opt{'suppress_errors'}) { } |
|
123
|
0 |
0 |
if (ref $$arg[-1] eq ref {}) |
|
126
|
0 |
0 |
if (exists $$manopt{$k}) |
|
139
|
0 |
21 |
if (-f $p . '/lsof' and -x _) |
|
157
|
0 |
0 |
if (exists $translate{$arg}) { } |
|
158
|
0 |
0 |
if defined $translate{$arg} |
|
163
|
0 |
0 |
scalar @cmd_line ? : |
|
174
|
0 |
0 |
if (not $ident) { } |
|
|
0 |
0 |
elsif ($ident eq 'p') { } |
|
|
0 |
0 |
elsif ($ident eq 'f') { } |
|
195
|
0 |
0 |
if (ref $args[0] eq ref []) { } |
|
209
|
0 |
0 |
unless $fident |
|
212
|
0 |
0 |
if ($fident eq 'T') { } |
|
213
|
0 |
0 |
if ($opt{'tcp_tpi_parse'} eq 'array') { } |
|
217
|
0 |
0 |
$opt{'tcp_tpi_parse'} eq 'part' ? : |