| line |
true |
false |
branch |
|
77
|
0 |
0 |
unless Net::DRI::Util::is_hostname($domain) |
|
86
|
0 |
0 |
unless $mes->is_success |
|
91
|
0 |
0 |
unless defined $domain |
|
95
|
0 |
0 |
unless $exist |
|
109
|
0 |
0 |
if ($rd =~ /\n% WHOIS (\S+)\n% No such domain$/s) { } |
|
125
|
0 |
0 |
if grep {$_ ne 'ok';} @s |
|
126
|
0 |
0 |
if @s |
|
134
|
0 |
0 |
if defined $_ |
|
136
|
0 |
0 |
if (my($name, $ips) = $ns =~ /^(\S+) \[(\S+)\]$/) { } |
|
145
|
0 |
0 |
unless $h->is_empty |
|
166
|
0 |
0 |
if exists $$rr{$t . '-name'} and $$rr{$t . '-name'}[0] |
|
167
|
0 |
0 |
if exists $$rr{$t . '-address'} and @{$$rr{$t . '-address'};} |
|
168
|
0 |
0 |
if exists $$rr{$t . '-zipcode'} and $$rr{$t . '-zipcode'}[0] |
|
169
|
0 |
0 |
if exists $$rr{$t . '-city'} and $$rr{$t . '-city'}[0] |
|
170
|
0 |
0 |
if exists $$rr{$t . '-country'} and $$rr{$t . '-country'}[0] |
|
171
|
0 |
0 |
if exists $$rr{$t . '-email'} and $$rr{$t . '-email'}[0] |
|
177
|
0 |
0 |
if $type ne 'ORGANISATION' and $type ne 'PRIVATE' |