| blib/lib/Net/BitTorrent/Protocol/BEP07.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 24 | 41.6 |
| line | true | false | branch |
|---|---|---|---|
| 15 | 2 | 0 | $_[0] ? : |
| 27 | 0 | 4 | if ($port > 65536) { } |
| 31 | 0 | 4 | unless $ip |
| 32 | 0 | 4 | if ($ip =~ /^(.+):(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/) |
| 34 | 0 | 0 | if $2 > 255 or $3 > 255 or $4 > 255 or $5 > 255 |
| 40 | 0 | 4 | if $ip =~ /[^:0-9a-fA-F]/ or $ip =~ /[0-9a-fA-F]{5,}/ |
| 45 | 0 | 4 | if $c < 7 and not $ip =~ /::/ |
| 46 | 0 | 4 | if ($c > 7) |
| 47 | 0 | 0 | unless $ip =~ s/^::/:/ or $ip =~ s/::$/:/ |
| 48 | 0 | 0 | if --$c > 7 |
| 51 | 0 | 4 | if $ip =~ /:$/ |
| 52 | 1 | 3 | if $seen{$ip . '|' . $port}++ |