| line |
true |
false |
branch |
|
50
|
0 |
4 |
unless my $output = $args{'output'} |
|
61
|
4 |
120 |
if ($line =~ /^UDP: IPv([46])/) { } |
|
|
4 |
116 |
elsif ($line =~ /^TCP: IPv([46])/) { } |
|
|
4 |
112 |
elsif ($line =~ /^Active UNIX domain sockets/) { } |
|
|
18 |
94 |
elsif ($proto =~ /udp/ and $udp) { } |
|
|
27 |
67 |
elsif ($proto =~ /tcp/ and $tcp) { } |
|
|
36 |
31 |
elsif ($proto eq 'unix' and $unix) { } |
|
72
|
3 |
15 |
if $line =~ /^\s*$/ |
|
73
|
3 |
12 |
if $line =~ /^\s+/ |
|
74
|
3 |
9 |
if $line =~ /^[- ]+$/ |
|
75
|
0 |
9 |
unless $line =~ /^(?P\S+?)\.(?P\w+)\s+
(?P\S+?)\.(?P\w+|\*)\s+
(?P\S+)
\s*$/x |
|
87
|
3 |
24 |
if $line =~ /^\s*$/ |
|
88
|
3 |
21 |
if $line =~ /^\s+/ |
|
89
|
3 |
18 |
if $line =~ /^[- ]+$/ |
|
90
|
0 |
18 |
unless $line =~ /^(?P\S+?)\.(?P\w+)\s+
(?P\S+?)\.(?P\w+|\*)\s+
(?P\d+) \s+
(?P\d+) \s+
(?P\d+) \s+
(?P\d+) \s+
(?P\S+)
\s*$/x |
|
105
|
0 |
36 |
if $line =~ /^\s*$/ |
|
106
|
3 |
33 |
if $line =~ /^Address\s/ |
|
108
|
0 |
33 |
unless $line =~ /^(?P[0-9a-f]+)\s+
(?P\S+)\s+
(?P[0-9a-f]+)\s+
(?P[0-9a-f]+)\s+
(?:
(?P\S+)\s+
(?:
(?P\S+)\s+
)?
)?
\s*$/x |