Branch Coverage

blib/lib/Parse/Netstat/linux.pm
Criterion Covered Total %
branch 10 14 71.4


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