| line |
true |
false |
branch |
|
225
|
16 |
0 |
if (defined $_[1]) |
|
230
|
2 |
9 |
unless (defined $args{'foreign_host'} and defined $args{'local_host'} and defined $args{'foreign_port'} and defined $args{'local_port'} and defined $args{'state'} and defined $args{'proto'}) |
|
242
|
1 |
8 |
if (defined $args{'pid'} and not $args{'pid'} =~ /^[0-9]+$/) |
|
250
|
1 |
7 |
if (defined $args{'uid'} and not $args{'uid'} =~ /^[0-9]+$/) |
|
258
|
1 |
6 |
if (defined $args{'sendq'} and not $args{'sendq'} =~ /^[0-9]+$/) |
|
264
|
1 |
5 |
if (defined $args{'recvq'} and not $args{'recvq'} =~ /^[0-9]+$/) |
|
295
|
5 |
0 |
if (defined $args{'sendq'}) |
|
298
|
5 |
0 |
if (defined $args{'recvq'}) |
|
301
|
0 |
5 |
if (defined $args{'local_ptr'}) |
|
304
|
0 |
5 |
if (defined $args{'foreign_ptr'}) |
|
307
|
2 |
3 |
if (defined $args{'uid'}) |
|
310
|
4 |
1 |
if (defined $args{'pid'}) |
|
313
|
1 |
4 |
if (defined $args{'username'}) |
|
316
|
0 |
5 |
if (defined $args{'proc'}) |
|
319
|
0 |
5 |
if (defined $args{'wchan'}) |
|
322
|
0 |
5 |
if (defined $args{'pctmem'}) |
|
325
|
0 |
5 |
if (defined $args{'pctcpu'}) |
|
330
|
0 |
5 |
if ($args{'ports'}) { } |
|
332
|
0 |
0 |
if ($self->{'local_port'} =~ /[A-Za-z]/) { } |
|
|
0 |
0 |
elsif ($self->{'local_port'} =~ /^[0-9]+$/) { } |
|
335
|
0 |
0 |
if (defined $service) |
|
341
|
0 |
0 |
if ($self->{'foreign_port'} =~ /[A-Za-z]/) { } |
|
|
0 |
0 |
elsif ($self->{'foreign_port'} =~ /^[0-9]+$/) { } |
|
344
|
0 |
0 |
if (defined $service) |
|
352
|
0 |
5 |
if ($self->{'local_port'} =~ /[A-Za-z]/) |
|
355
|
0 |
5 |
if ($self->{'foreign_port'} =~ /[A-Za-z]/) |
|
363
|
0 |
5 |
if (defined $args{'ptrs'} and $args{'ptrs'}) { } |
|
368
|
0 |
0 |
if ($self->{'foreign_host'} =~ /[A-Za-z]/ and not $self->{'foreign_host'} =~ /\:/) { } |
|
378
|
0 |
0 |
if (defined $answer->{'answer'}[0] and ref $answer->{'answer'}[0] eq 'Net::DNS::RR::PTR') |
|
386
|
0 |
0 |
if ($self->{'local_host'} =~ /[A-Za-z]/ and not $self->{'local_host'} =~ /\:/) { } |
|
396
|
0 |
0 |
if (defined $answer->{'answer'}[0] and ref $answer->{'answer'}[0] eq 'Net::DNS::RR::PTR') |
|
406
|
0 |
5 |
if ($self->{'foreign_host'} =~ /[A-Za-z]/ and not $self->{'foreign_host'} =~ /\:/) |
|
412
|
0 |
5 |
if ($self->{'local_host'} =~ /[A-Za-z]/ and not $self->{'local_host'} =~ /\:/) |
|
421
|
1 |
4 |
if ($args{'uid_resolve'} and defined $self->{'uid'}) { } |
|
|
1 |
6 |
elsif ($args{'uid_resolve'} and not defined $self->{'uid'}) { } |
|
427
|
1 |
0 |
if (defined $pwline[0]) |
|
437
|
1 |
0 |
if (defined $pwline[2]) |