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'
|