Condition Coverage

blib/lib/Net/Whois/IANA.pm
Criterion Covered Total %
condition 72 177 40.6


and 2 conditions

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 ()

and 3 conditions

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/

or 2 conditions

line l !l condition
176 2 0 {%IANA} || (return 0)

or 3 conditions

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