| blib/lib/Net/BitTorrent/Protocol.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 18 | 77.7 |
| line | true | false | branch |
|---|---|---|---|
| 71 | 4 | 39 | if (not $data or ref $data ne 'SCALAR' or not $$data) |
| 76 | 1 | 38 | if (unpack('c', $$data) == 19) { } |
| 38 | 0 | elsif (defined unpack('N', $$data) and unpack('N', $$data) =~ /\d/) { } | |
| 78 | 1 | 0 | if @payload |
| 88 | 37 | 1 | if ($packet_length + 4 <= length $$data) { } |
| 92 | 35 | 2 | if (defined $parse_packet_dispatch->{$type}) { } |
| 0 | 2 | elsif (eval 'require Data::Dump') { } | |
| 96 | 18 | 17 | defined $payload ? : |
| 0 | 35 | ref $payload eq 'HASH' && defined $payload->{'error'} ? : |