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