| line |
true |
false |
branch |
|
260
|
0 |
6 |
if (-e $rcfile and open my $fh, $rcfile) |
|
265
|
0 |
6 |
unless &GetOptionsFromArray(\@_, %opts) |
|
271
|
0 |
6 |
if $strings |
|
273
|
0 |
6 |
if $debug |
|
284
|
0 |
6 |
if $version |
|
286
|
0 |
6 |
if ($registry and $registrar) { } |
|
|
0 |
9 |
elsif ($registry and $both) { } |
|
296
|
3 |
0 |
unless ($registry or $both) |
|
300
|
1 |
5 |
unless $object |
|
302
|
0 |
6 |
if $help or length $object < 1 |
|
304
|
1 |
5 |
unless ($type) |
|
305
|
0 |
1 |
if ($object =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/l) { } |
|
|
0 |
1 |
elsif ($object =~ m[^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/\d{1,2}$]l) { } |
|
|
0 |
1 |
elsif ($object =~ /^[0-9a-f:]+:[0-9a-f:]*$/il) { } |
|
|
0 |
1 |
elsif ($object =~ m[^[0-9a-f:]+:[0-9a-f:]*/\d{1,3}$]il) { } |
|
|
0 |
1 |
elsif ($object =~ /^asn?\d+$/il) { } |
|
|
0 |
1 |
elsif ($object =~ m[^(file|https)?://]l) { } |
|
|
0 |
1 |
elsif ($object =~ /^([a-z]{2,}|xn--[a-z0-9\-]+)$/il) { } |
|
316
|
0 |
6 |
if $auth |
|
318
|
0 |
6 |
if ($search) { } |
|
332
|
0 |
6 |
if ('ip' eq $type) { } |
|
|
0 |
6 |
elsif ('autnum' eq $type) { } |
|
|
6 |
0 |
elsif ('domain' eq $type) { } |
|
|
0 |
0 |
elsif ('nameserver' eq $type) { } |
|
|
0 |
0 |
elsif ('entity' eq $type) { } |
|
|
0 |
0 |
elsif ('tld' eq $type) { } |
|
|
0 |
0 |
elsif ('url' eq $type) { } |
|
335
|
0 |
0 |
unless $ip |
|
339
|
0 |
0 |
if $reverse |
|
374
|
0 |
0 |
if "help" eq lc(($uri->path_segments)[-1]) |
|
405
|
0 |
0 |
if ('domain' eq $type) { } |
|
429
|
0 |
0 |
unless (exists $$servers{$url->as_string}) |
|
438
|
0 |
0 |
unless lc $suffix eq $_ |
|
|
0 |
0 |
if $suffix ne "*" |
|
444
|
0 |
0 |
if ($result->isa('Net::RDAP::Error')) { } |
|
|
0 |
0 |
elsif ($result->isa('Net::RDAP::SearchResult')) { } |
|
481
|
0 |
0 |
if exists $result->{'domainSearchResults'} |
|
482
|
0 |
0 |
if exists $result->{'nameserverSearchResults'} |
|
483
|
0 |
0 |
if exists $result->{'entitySearchResults'} |
|
489
|
0 |
33 |
if ($object->isa('Net::RDAP::Error')) { } |
|
490
|
0 |
0 |
if ($nofatal) { } |
|
499
|
6 |
15 |
if "related" eq $_->rel |
|
501
|
3 |
30 |
if ($registrar) { } |
|
505
|
0 |
3 |
if (not $link) { } |
|
511
|
0 |
3 |
if ($result->isa('Net::RDAP::Error')) { } |
|
518
|
0 |
3 |
if $both |
|
526
|
0 |
30 |
if ($raw) { } |
|
|
0 |
30 |
elsif ($object->isa('Net::RDAP::SearchResult')) { } |
|
543
|
0 |
30 |
unless $object->class |
|
544
|
0 |
30 |
unless $$funcs{$object->class} |
|
549
|
6 |
24 |
if $indent < 1 |
|
550
|
6 |
24 |
if $indent < 1 and $object->self |
|
552
|
6 |
24 |
if ($object->can("name")) |
|
554
|
6 |
0 |
if $name->can("name") |
|
556
|
6 |
0 |
$object->can('unicodeName') ? : |
|
558
|
0 |
6 |
if ($xname ne $name) { } |
|
583
|
30 |
0 |
unless ($short) |
|
597
|
3 |
27 |
if (scalar @fields > 0) |
|
609
|
6 |
24 |
if $indent < 1 |
|
615
|
0 |
0 |
if $ip->handle |
|
616
|
0 |
0 |
if $ip->version |
|
617
|
0 |
0 |
if $ip->domain |
|
618
|
0 |
0 |
if $ip->type |
|
619
|
0 |
0 |
if $ip->country |
|
620
|
0 |
0 |
if $ip->parentHandle |
|
621
|
0 |
0 |
if $ip->range |
|
631
|
0 |
0 |
if $asn->handle |
|
632
|
0 |
0 |
if $asn->start > 0 and $asn->end > 0 and $asn->end > $asn->start |
|
633
|
0 |
0 |
if $asn->type |
|
639
|
3 |
3 |
if $domain->handle |
|
642
|
0 |
12 |
if ($short) { } |
|
659
|
0 |
6 |
if $domain->{'artRecord_record'} |
|
660
|
0 |
6 |
if $domain->{'platformNS_nameservers'} |
|
662
|
0 |
6 |
if $domain->{'regType_regType'} |
|
665
|
0 |
6 |
if scalar @types > 0 |
|
689
|
0 |
24 |
if $entity->handle and $indent < 1 |
|
696
|
24 |
0 |
if ($jcard) |
|
714
|
12 |
87 |
if ('ADR' eq uc $property->type) { } |
|
721
|
18 |
69 |
if ('KIND' eq uc $property->type) { } |
|
|
18 |
51 |
elsif ('TEL' eq uc $property->type) { } |
|
726
|
3 |
15 |
if "ARRAY" ne ref $types |
|
728
|
0 |
18 |
if (&any(sub {
'fax' eq lc $_;
}
, @{$types;})) { } |
|
738
|
36 |
51 |
$property->may_be_uri ? : |
|
750
|
0 |
12 |
if ($property->param('label')) { } |
|
759
|
36 |
24 |
if ($property->value->[$i]) |
|
760
|
0 |
36 |
if ('ARRAY' eq ref $property->value->[$i]) { } |
|
773
|
12 |
0 |
if ($property->param("cc")) |
|
781
|
6 |
6 |
if $nameserver->handle |
|
788
|
0 |
12 |
if scalar @types > 0 |
|
797
|
0 |
42 |
if ($event->actor) { } |
|
813
|
9 |
0 |
if ($epp and $is_domain and not $short) { } |
|
815
|
0 |
9 |
if ($friendly ne $status) { } |
|
838
|
168 |
96 |
if $seen{$i} |
|
841
|
24 |
72 |
if (&any(sub {
$role eq $_;
}
, $entity->roles)) |
|
846
|
21 |
3 |
if ($entity->handle and 'not applicable' ne $entity->handle and 'HANDLE REDACTED FOR PRIVACY' ne $entity->handle) { } |
|
865
|
18 |
0 |
$thing->isa('Net::RDAP::Notice') ? : |
|
867
|
18 |
0 |
if (1 == scalar $thing->description) { } |
|
921
|
0 |
0 |
if ($debug) |
|
949
|
0 |
393 |
if (-t $out and not $nocolor) { } |
|
980
|
0 |
0 |
if ($node->isa("PPI::Token::Magic") and "_" eq $node->content) |
|
983
|
0 |
0 |
if ($next->isa("PPI::Structure::List")) |
|
986
|
0 |
0 |
unless ($msg->isa("PPI::Token::Quote")) |