| blib/lib/Net/Whois/Norid.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 10 | 60.0 |
| line | true | false | branch |
|---|---|---|---|
| 19 | 1 | 0 | unless $lookup |
| 27 | 0 | 8 | if (exists $$self{"${key}_handle"}) |
| 30 | 0 | 0 | wantarray ? : |
| 43 | 18 | 14 | if (my($key, $value) = $line =~ /^(\w+[^.]+)\.{2,}\:\s*(.+)$/) |
| 47 | 1 | 17 | $$self{$key} ? : |