| blib/lib/Net/Whois/IANA.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 72 | 177 | 40.6 |
| line | l | !l | condition |
|---|---|---|---|
| 156 | 0 | 0 | @seg && @seg < $max && 1 |
| 187 | 0 | 0 | ref $source eq "HASH" and scalar grep({$_->[0][0] if ref $_ and ref $_ eq "ARRAY" and @{$_;} and ref $_->[0] and ref $_->[0] eq "ARRAY" and @{$_->[0];};} values %{$source;} == scalar keys %{$source;}) |
| 251 | 0 | 2 | $query{'abuse'} = $query{$qkey} and last |
| 311 | 0 | 0 | close $sock and return "permission", "denied" |
| 364 | 0 | 0 | close $sock and return "permission", "denied" |
| 436 | 0 | 0 | close $sock and return "permission", "denied" |
| 500 | 0 | 0 | close $sock and return "permission", "denied" |
| 505 | 0 | 0 | close $sock and return () |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 116 | 1 | 1 | 20 | $ip && $ip =~ /^([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)$/ && ($1 + 0 | $2 + 0 | $3 + 0 | $4 + 0) < 256 |
| 187 | 0 | 0 | 0 | ref $_ and ref $_ eq "ARRAY" |
| 0 | 0 | 0 | ref $_ and ref $_ eq "ARRAY" and @{$_;} | |
| 0 | 0 | 0 | ref $_ and ref $_ eq "ARRAY" and @{$_;} and ref $_->[0] | |
| 0 | 0 | 0 | ref $_ and ref $_ eq "ARRAY" and @{$_;} and ref $_->[0] and ref $_->[0] eq "ARRAY" | |
| 0 | 0 | 0 | ref $_ and ref $_ eq "ARRAY" and @{$_;} and ref $_->[0] and ref $_->[0] eq "ARRAY" and @{$_->[0];} | |
| 236 | 0 | 0 | 17 | $query_code && ref $query_code eq 'CODE' |
| 251 | 313 | 10 | 2 | $qkey =~ /abuse/i and $query{$qkey} =~ /\@/ |
| 254 | 0 | 4 | 9 | $query{'fullinfo'} and $query{'fullinfo'} =~ /(\S*abuse\S*\@\S+)/m |
| 263 | 0 | 3 | 0 | defined $query{'cidr'} and $query{'cidr'} =~ /\,/ |
| 288 | 0 | 15 | 0 | $query{'permission'} and $query{'permission'} eq "denied" |
| 326 | 0 | 4 | 0 | defined $query{'remarks'} and $query{'remarks'} =~ /The country is really world wide/ |
| 0 | 4 | 0 | defined $query{'netname'} and $query{'netname'} =~ /IANA-BLK/ | |
| 0 | 4 | 0 | defined $query{'netname'} and $query{'netname'} =~ /AFRINIC-NET-TRANSFERRED/ | |
| 0 | 4 | 0 | defined $query{'country'} and $query{'country'} =~ /world wide/ | |
| 389 | 108 | 6 | 0 | $lc_field eq "country" and defined $query{$lc_field} |
| 402 | 1 | 2 | 0 | defined $query{'remarks'} and $query{'remarks'} =~ /address range is not administered by APNIC|This network in not allocated/ |
| 0 | 3 | 0 | defined $query{'descr'} and $query{'descr'} =~ /not allocated to|by APNIC|placeholder reference/i | |
| 465 | 0 | 2 | 1 | $query{'orgid'} and $query{'orgid'} =~ /^\s*RIPE|LACNIC|APNIC|AFRINIC\s*$/ |
| 473 | 0 | 1 | 1 | defined $query{'cidr'} and $query{'cidr'} =~ /\,/ |
| 511 | 103 | 2 | 4 | $field eq "country" and $query{'country'} |
| 530 | 0 | 0 | 1 | $query{'nserver'} and $query{'nserver'} =~ /\.(\w\w)$/ |
| 0 | 0 | 0 | $query{'descr'} and $query{'descr'} =~ /\s(\w\w)$/ | |
| 558 | 2 | 0 | 0 | defined $query{'remarks'} and $query{'remarks'} =~ /country is really worldwide/ |
| 0 | 2 | 0 | defined $query{'descr'} and $query{'descr'} =~ /Here for in-addr\.arpa authentication/ |
| line | l | !l | condition |
|---|---|---|---|
| 176 | 2 | 0 | {%IANA} || (return 0) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 68 | 0 | 9 | 0 | ref $proto || $proto |
| 81 | 2 | 17 | 0 | $port ||= $WHOIS_PORT |
| 82 | 2 | 17 | 0 | $timeout ||= $WHOIS_TIMEOUT |
| 127 | 0 | 0 | 0 | $ip =~ /^:[^:]/ or $ip =~ /[^:]:$/ |
| 151 | 0 | 0 | 0 | length $seg == 0 or length $seg > 4 |
| 208 | 14 | 0 | 2 | $param{'-whois'} || $param{'-mywhois'} |
| 254 | 0 | 1 | 3 | $query{'email'} or $query{'e-mail'} |
| 1 | 0 | 3 | $query{'email'} or $query{'e-mail'} or $query{'orgtechemail'} | |
| 259 | 1 | 0 | 0 | $query{'email'} || $query{'e-mail'} || $query{'orgtechemail'} |
| 282 | 17 | 26 | 20 | $self->source_connect($source_name) || Carp::carp("Connection failed to $source_name." && (next)) |
| 312 | 44 | 36 | 83 | /^(\%|\#)/ or not /\:/ |
| 326 | 0 | 0 | 4 | defined $query{'remarks'} and $query{'remarks'} =~ /The country is really world wide/ or defined $query{'netname'} and $query{'netname'} =~ /IANA-BLK/ |
| 0 | 0 | 4 | defined $query{'remarks'} and $query{'remarks'} =~ /The country is really world wide/ or defined $query{'netname'} and $query{'netname'} =~ /IANA-BLK/ or defined $query{'netname'} and $query{'netname'} =~ /AFRINIC-NET-TRANSFERRED/ | |
| 0 | 0 | 4 | defined $query{'remarks'} and $query{'remarks'} =~ /The country is really world wide/ or defined $query{'netname'} and $query{'netname'} =~ /IANA-BLK/ or defined $query{'netname'} and $query{'netname'} =~ /AFRINIC-NET-TRANSFERRED/ or defined $query{'country'} and $query{'country'} =~ /world wide/ | |
| 0 | 4 | 0 | $query{'inet6num'} || $query{'inetnum'} | |
| 342 | 0 | 4 | 0 | $query{'inet6num'} || $query{'inetnum'} |
| 402 | 0 | 0 | 3 | defined $query{'remarks'} and $query{'remarks'} =~ /address range is not administered by APNIC|This network in not allocated/ or defined $query{'descr'} and $query{'descr'} =~ /not allocated to|by APNIC|placeholder reference/i |
| 0 | 3 | 0 | $query{'inet6num'} || $query{'inetnum'} | |
| 414 | 0 | 3 | 0 | $query{'inet6num'} || $query{'inetnum'} |
| 438 | 72 | 43 | 140 | /^\#/ or not /\:/ |
| 442 | 3 | 0 | 137 | $field eq "OrgName" or $field eq "CustName" |
| 500 | 0 | 0 | 172 | /^\%201/ or /^\% Query rate limit exceeded/ |
| 0 | 0 | 172 | /^\%201/ or /^\% Query rate limit exceeded/ or /^\% Not assigned to LACNIC/ | |
| 0 | 0 | 172 | /^\%201/ or /^\% Query rate limit exceeded/ or /^\% Not assigned to LACNIC/ or /\% Permission denied/ | |
| 507 | 40 | 23 | 109 | /^\%/ or not /\:/ |
| 558 | 0 | 0 | 2 | defined $query{'remarks'} and $query{'remarks'} =~ /country is really worldwide/ or defined $query{'descr'} and $query{'descr'} =~ /Here for in-addr\.arpa authentication/ |
| 560 | 0 | 2 | 0 | $query{'inet6num'} or $query{'inetnum'} |
| 566 | 0 | 2 | 0 | $query{'inet6num'} || $query{'inetnum'} |