line |
true |
false |
branch |
51
|
0 |
4 |
unless my $output = $args{'output'} |
63
|
30 |
54 |
if ($line =~ /^tcp/ and $tcp) { } |
|
12 |
42 |
elsif ($line =~ /^udp/ and $udp) { } |
|
9 |
33 |
elsif ($line =~ /^unix/ and $unix) { } |
66
|
0 |
30 |
unless $line =~ m[^(?Ptcp[46]?) \s+ (?P\d+) \s+ (?P\d+)\s+
(?P\S+?):(?P\w+)\s+
(?P\S+?):(?P\w+|\*)\s+
(?P\S+) (?: \s+ (?:
(?P\d+)/(?P.+?) |
-
))? \s*$]x |
77
|
0 |
12 |
unless $line =~ m[^(?Pudp[46]?) \s+ (?P\d+) \s+ (?P\d+) \s+
(?P\S+?):(?P\w+|\*)\s+
(?P\S+?):(?P\w+|\*)
(?: \s+
(?P\S+)?
(?: \s+ (?:
(?P\d+)/(?P.+?) |
-
))?
)? \s*$]x |
92
|
0 |
9 |
unless $line =~ m(^(?Punix) \s+ (?P\d+) \s+
\[\s*(?P\S*)\s*\] \s+ (?P\S+) \s+
(?P\S+|\s+) \s+ (?P\d+) \s+
(?: (?: (?P\d+)/(?P.+?) | - ) \s+)?
(?P.*?)\s*$)x |