Branch Coverage

blib/lib/Net/XWhois.pm

Criterion	Covered	Total	%
branch	0	92	0.0

line	true	false	branch
435	0	0	unless $args{'Retain'}
462	0	0	if $cache
481	0	0	$ip ? :
484	0	0	if ($ip) { }
485	0	0	$$self{'Server'} ? :
491	0	0	unless ($server)
496	0	0	if $server
498	0	0	$server ? :
515	0	0	if $$self{'Domain'}
524	0	0	if defined $args{$_}
526	0	0	if $args{'Format'}
529	0	0	unless ($$self{'Server'})
535	0	0	if ($$self{'_PARSERS'}{$$self{'Server'}})
540	0	0	unless ($$self{'Parser'})
546	0	0	unless $$self{'Timeout'}
547	0	0	unless $$self{'Error'}
548	0	0	unless $$self{'Retries'}
558	0	0	if $$self{'Verbose'}
561	0	0	unless ($$self{'Nocache'})
563	0	0	if (-d $cache)
564	0	0	unless -e "$cache/$domain"
568	0	0	if ($current - $stat[9] > ${$$self{'_EXPIRE'};})
583	0	0	unless $sock
596	0	0	unless (defined $fw and $fw =~ /whois/)
598	0	0	if ($$self{'Server'} eq 'whois.arin.net') { }
	0	0	elsif ($$self{'Server'} eq 'whois.apnic.net') { }
599	0	0	if $$self{'Response'} =~ /Asia Pacific Network Information (?:Center|Centre)/gims
600	0	0	if $$self{'Response'} =~ /European Regional Internet Registry|RIPE Network Coordination Centre/gims
602	0	0	if $$self{'Response'} =~ /Latin American and Caribbean IP address Regional Registry/gims
607	0	0	if $$self{'Response'} =~ /Allocated to KRNIC/gims
608	0	0	if $$self{'Response'} =~ /Allocated to TWNIC/gims
613	0	0	unless defined $fw and length $fw > 0
616	0	0	if defined $fw and $$self{'Server'} eq $fw
618	0	0	if (defined $fw and $fw ne '')
620	0	0	if $$self{'Server'} eq $fw
623	0	0	if $$self{'Verbose'}
628	0	0	if ($$self{'Server'} eq 'whois.arin.net' and $self->multiple and $$self{'Bottom_netblock'} and $self->net_handle)
637	0	0	if (-d $cache and not $$self{'Nocache'})
649	0	0	unless $$self{'Response'}
654	0	0	unless exists ${$$self{'Parser'};}{$key}
658	0	0	if (not ref(${$$self{'Parser'};}{$key}) =~ /^CODE/) { }
671	0	0	wantarray ? :
698	0	0	unless $sock
699	0	0	if $$self{'Verbose'} and not $sock
701	0	0	unless $sock
703	0	0	if $sock