| blib/lib/Net/Gnutella/Packet/Reply.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 18 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 15 | 0 | 0 | unless $attr =~ /[^A-Z]/ |
| 16 | 0 | 0 | unless exists $$self{'_attr'}{lc $attr} |
| 17 | 0 | 0 | if @_ |
| 54 | 0 | 0 | if (@_) |
| 55 | 0 | 0 | if (ref $_[0] eq 'ARRAY') { } |
| 0 | 0 | elsif ($_[0] =~ /^[\d.]+$/) { } | |
| 0 | 0 | elsif ($_[0] =~ /\D/) { } | |
| 89 | 0 | 0 | if (index($name, "\000") != -1) |
| 125 | 0 | 0 | $data =~ /\x00\x00$/ ? : |