| blib/lib/Net/ParseWhois.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 18 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 0 | 0 | if $opt |
| 57 | 0 | 0 | unless ($$self{'base_server_addr'}) |
| 59 | 0 | 0 | if $a |
| 62 | 0 | 0 | unless $$self{'base_server_addr'} |
| 64 | 0 | 0 | if $self->debug |
| 66 | 0 | 0 | unless my $sock = 'IO::Socket::INET'->new('PeerAddr', $$self{'base_server_addr'}, 'PeerPort', 'whois', 'Proto', 'tcp') |
| 77 | 0 | 0 | if $@ |
| 86 | 0 | 0 | if (not $text_to_send) { } |
| 96 | 0 | 0 | unless $sock_text |