| line |
true |
false |
branch |
|
50
|
0 |
8 |
unless my $output = $args{'output'} |
|
62
|
4 |
792 |
if ($line =~ /^Registered kernel control modules/) { } |
|
|
78 |
714 |
elsif ($line =~ /^tcp/ and $tcp) { } |
|
|
48 |
666 |
elsif ($line =~ /^udp/ and $udp) { } |
|
|
93 |
573 |
elsif ($in_unix and $unix) { } |
|
|
8 |
565 |
elsif ($in_unix_header) { } |
|
|
8 |
557 |
elsif ($line =~ /^Active (UNIX|LOCAL \(UNIX\)) domain sockets/) { } |
|
67
|
0 |
78 |
unless $line =~ m[^(?Ptcp(?:4|6|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 |
|
79
|
0 |
48 |
unless $line =~ m[^(?Pudp(?:4|6|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 |
|
94
|
0 |
93 |
unless $line =~ /^(?P\S+) \s+ (?P\S+) \s+
(?P\d+) \s+ (?P\d+) \s+ (?P[0-9a-f]+) \s+ (?P[0-9a-f]+) \s+
(?P[0-9a-f]+) \s+ (?P[0-9a-f]+)
(?:
\s+
(?P.+)
)?
\s*$/x |