line |
true |
false |
branch |
47
|
0 |
3 |
unless my $output = $args{'output'} |
57
|
8 |
82 |
if ($line =~ /^\s*TCP\s/ and $tcp) { } |
|
4 |
78 |
elsif ($line =~ /^\s*UDP\s/ and $udp) { } |
|
52 |
26 |
elsif ($cur) { } |
67
|
0 |
8 |
unless $line =~ /^\s*(?PTCP6?) \s+
(?P\S+?):(?P\w+)\s+
(?P\S+?):(?P\w+|\*)\s+
(?P\S+) (?: \s+ (?:
(?P\d+)
))? \s*$/x |
83
|
0 |
4 |
unless $line =~ /^\s*(?PUDP6?) \s+
(?P\S+?):(?P\w+)\s+
(?P\S+?):(?P\w+|\*)\s+
(?: \s+ (?:
(?P\d+)
))? \s*$/x |
96
|
2 |
50 |
if $line =~ /^\s*--/ |
97
|
0 |
50 |
if $line =~ /^\s*can not/i |
98
|
39 |
11 |
if $line =~ /^\s*(\S.*?)\s*$/ |