| blib/lib/Linux/Proc/Net/TCP/Base.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 28 | 21.4 |
| line | true | false | branch |
|---|---|---|---|
| 59 | 0 | 1 | if @_ & 1 |
| 69 | 0 | 1 | if %opts |
| 72 | 1 | 0 | if ($files) { } |
| 76 | 0 | 0 | unless defined $mnt |
| 78 | 0 | 0 | unless (-d $mnt and (stat _)[12] == 0) |
| 82 | 0 | 0 | unless defined $ip4 and not $ip4 |
| 83 | 0 | 0 | defined $ip6 ? : |
| 0 | 0 | if defined $ip6 ? $ip6 : -f "$mnt/net/${proto}6" | |
| 86 | 0 | 1 | unless my $regexp = $regexp{$proto} |
| 91 | 0 | 1 | unless open my $fh, '<', $fn |
| 95 | 10 | 0 | if (my(@entry) = $_ =~ /$regexp/) { } |
| 113 | 0 | 0 | if (@l == 4) { } |
| 0 | 0 | elsif (@l == 1) { } | |
| 143 | 0 | 0 | $when =~ /^(?:F{8,}|1AD7F[\dA-F]{6})$/ ? : |