Branch Coverage

blib/lib/NOLookup/Whois/WhoisLookup.pm
Criterion Covered Total %
branch 30 50 60.0


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