Branch Coverage

blib/lib/Metabrik/Network/Whois.pm
Criterion Covered Total %
branch 0 20 0.0


line true false branch
42 0 0 unless $self->brik_help_run_undef_arg('target', $target)
53 0 0 unless ($info, $server) = Net::Whois::Raw::whois($target)
56 0 0 if ($@)
58 0 0 if ($@ =~ /(Connection timeout to \S+)/) { }
0 0 elsif ($@ =~ /(\S+): Invalid argument: /) { }
0 0 elsif ($@ =~ /(\S+): Connection refused: /) { }
71 0 0 unless (defined $info)
75 0 0 unless my $sp = 'Metabrik::String::Parse'->new_from_brik_init($self)
76 0 0 unless my $lines = $sp->to_array($info)
79 0 0 if (/Whois Requests exceeded the allowed limit/i or /Your request cannot be completed at this time due to query limit controls/i or /Maximum Daily connection limit reached. Lookup refused/i or /database is contained within a list of IP addresses that may have failed/i or /Connection refused: exceeded maximum connection limit from /i)