Branch Coverage

blib/lib/NOLookup/RDAP/RDAPLookup.pm
Criterion Covered Total %
branch 30 206 14.5


line true false branch
173 0 4 unless $args->{'service_url'}
175 0 4 if ($args->{'norid_referral_ip'} and $args->{'norid_referral_ip'} =~ /^\d+$/)
179 0 0 if $ip
211 0 4 unless ($self->_validate_and_analyze($query, $check, $nameservers, $entity))
244 0 4 if ($self->{'norid_header_secret'})
249 0 4 if ($self->{'norid_header_proxy'})
256 0 4 if ($self->{'norid_referral_ip'})
258 0 0 if ($URL =~ /\?/)
267 0 4 if ($self->{'debug'})
269 0 0 if $self->{'norid_header_proxy'}
270 0 0 if $self->{'norid_header_secret'}
271 0 0 if $self->{'norid_referral_ip'}
276 2 2 if ($http_type eq 'head')
280 0 2 unless ($resp->is_success)
290 0 2 unless ($resp)
296 0 2 if ($resp->isa('NOLookup::RDAP::RDAPLookup'))
304 0 0 if (ref $err eq 'ARRAY') { }
307 0 0 if ($el eq 'errorCode') { }
0 0 elsif ($el eq 'title') { }
325 0 2 if ($resp->isa('Net::RDAP::Error'))
335 0 6 unless ($rdapConformance_vals_supported{$cfe})
373 0 0 if ($rdap_error =~ /^4\d+$/) { }
0 0 elsif ($rdap_error =~ /^5\d+$/) { }
375 0 0 if ($rdap_error == 404) { }
0 0 elsif ($rdap_error == 429) { }
385 0 0 if ($rdap_error == 501) { }
429 0 0 if ($if_info->{$key} eq '127.0.0.1')
438 0 0 if $lo_found
462 0 4 if (my $ip = $self->{'norid_referral_ip'})
463 0 0 unless (is_ip($ip))
472 4 0 if $q
474 0 4 unless ($q)
480 0 4 if ($q =~ /^\d{9}$/) { }
0 4 elsif ($q =~ /^N\.(PRI|LEG|ORG|REG)\.\d+$/i) { }
0 4 elsif ($q =~ /REG(\d+)-NORID$/i) { }
0 4 elsif ($q =~ /.+([PORH])-NORID$/i) { }
4 0 elsif ($q =~ /.+\..+$|^\.(no.*)$/i) { }
482 0 0 if ($q eq '000000000') { }
0 0 elsif (not $q =~ /^[8|9]\d{8}/) { }
494 0 0 if ($entity)
505 0 0 if ($entity)
525 0 0 if ($ot eq 'P' or $ot eq 'O') { }
0 0 elsif ($ot eq 'H') { }
530 0 0 if ($entity)
540 0 0 if ($entity)
559 0 4 if ($1)
566 0 4 if ($ns)
577 0 4 unless ($arg)
583 0 4 unless ($arg)
589 2 2 if ($check) { }
590 0 2 unless ($rdap_head_get_method_args{$arg})
599 0 0 unless ($rdap_head_get_method_args{$arg} or $rdap_get_method_args{$arg})
607 2 0 if ($rdap_head_get_method_args{$arg}) { }
637 0 0 if ($response->isa('Net::RDAP::Error')) { }
0 0 elsif ($response->isa('Net::RDAP::SearchResult')) { }
644 0 0 if $rst
645 0 0 if $errs and @$errs
652 0 0 if $rst
653 0 0 if $errs and @$errs
674 0 0 if ('entity' ne $response->class)
678 0 0 if ($xname ne $name) { }
687 0 0 if ('ip network' eq $response->class) { }
0 0 elsif ('autnum' eq $response->class) { }
0 0 elsif ('domain' eq $response->class) { }
0 0 elsif ('entity' eq $response->class) { }
0 0 elsif ('nameserver' eq $response->class) { }
692 0 0 if $response->start > 0 and $response->end > 0
693 0 0 if $response->type
697 0 0 if (scalar @ns > 0)
706 0 0 if (scalar @ds > 0)
716 0 0 if (scalar @keys > 0)
731 0 0 if (scalar @addrs > 0) { }
742 0 0 if (scalar @events)
751 0 0 if (scalar @status > 0)
755 0 0 if ($epp) { }
769 0 0 if (not $ent->vcard and $expand)
782 0 0 if ($new->isa('Net::RDAP::Error')) { }
793 0 0 if (scalar @entities > 0)
799 0 0 if (scalar @roles > 0) { }
800 0 0 if ($entity->handle) { }
814 0 0 if (not $card) { }
824 0 0 unless ($short)
826 0 0 if (scalar @links > 0)
835 0 0 if (scalar @remarks > 0)
840 0 0 if $remark->title
853 0 0 if (scalar @notices > 0)
858 0 0 if $notice->title
885 0 0 if $card->full_name
886 0 0 if $card->organization
889 0 0 if (scalar @addresses > 0)
895 0 0 'ARRAY' eq ref $element ? :
903 0 0 if ($email->{'type'}) { }
913 0 0 'ARRAY' eq ref $number->{'type'} ? :
914 0 0 &any(sub {
934 0 0 unless $name
936 0 0 if ('Net::DNS::Domain' eq ref $name) { }
956 0 0 if ($handle =~ /REG\d+-NORID$/) { }
0 0 elsif ($handle =~ /.+([O|P|R|H|D])-NORID$/) { }
960 0 0 if $1 eq 'O'
961 0 0 if $1 eq 'R'
962 0 0 if $1 eq 'P'
963 0 0 if $1 eq 'H'
964 0 0 if $1 eq 'D'