Branch Coverage

blib/lib/NOLookup/Whois/WhoisLookup.pm
Criterion Covered Total %
branch 5 50 10.0


line true false branch
55 0 2 unless $query
58 0 2 unless $whois_server
59 2 0 unless $whois_port
67 0 8 if (exists $$self{"${key}_handle"})
70 0 0 wantarray ? :
89 2 0 unless ($sock)
96 0 0 if ($client_ip) { }
119 0 0 if ($text =~ /\nDomain Information\n/)
139 0 0 if ($htxt)
152 0 0 if ($text =~ /\nHosts matching the search parameter\n/)
170 0 0 if (($key, $value) = $line =~ /^(DNSSEC)\.+:\s*(.+)$/) { }
0 0 elsif (($key, $ix, $value) = $line =~ /^(DS Key Tag|Algorithm|Digest Type|Digest|Key Flags|Key Protocol|Key Algorithm|Key Public)\s+(\d+)\.+:\s*(.+)$/) { }
0 0 elsif (($key, $value) = $line =~ /^(\w+[^.]+)\.{2,}\:\s*(.+)$/) { }
0 0 elsif (($key, $value) = $line =~ /^(Created|Last updated):\s*(.+)$/) { }
0 0 elsif (($key, $value) = $line =~ /^(% )(.+)$/) { }
182 0 0 $self->{'dnssec'}{$ix}{$key} ? :
191 0 0 $self->{$key} ? :
197 0 0 $self->{$key} ? :
201 0 0 if ($value =~ /(No match)$/) { }
0 0 elsif ($value =~ /(Quota exceeded)$/) { }
0 0 elsif ($value =~ /(Access denied)$/) { }
0 0 elsif ($value =~ /(Referral denied)$/) { }
0 0 elsif ($value =~ /(ERROR - )$/) { }
220 0 0 $self->{$key} ? :
240 0 0 if ($whois)