Branch Coverage

blib/lib/Net/Abuse/Utils.pm
Criterion Covered Total %
branch 0 74 0.0


line true false branch
35 0 0 $ver == 4 ? :
48 0 0 if @RESOLVERS
51 0 0 if ($query)
53 0 0 if ($rr->type eq $rr_type)
54 0 0 if ($rr_type eq 'TXT') { }
0 0 elsif ($rr_type eq 'SOA') { }
0 0 elsif ($rr_type eq 'PTR') { }
63 0 0 unless $concat
67 0 0 if ($concat and $concat == 2) { }
92 0 0 unless $string
105 0 0 unless $ver
113 0 0 if $#bits > 0
118 0 0 unless ref $response eq 'HASH'
132 0 0 unless $ver
134 0 0 $ver == 4 ? :
138 0 0 unless my(@origin_as) = _return_rr($lookup, 'TXT', 2)
157 0 0 if ($fields[0] =~ /(\d+) \d+/)
165 0 0 if ($network[1] > $smallest_netmask)
179 0 0 unless $ver and $ver == 4
182 0 0 unless my(@origin_as) = _return_rr($lookup, 'TXT', 2)
205 0 0 if wantarray
214 0 0 unless $hash and lc($hash) =~ /^[a-z0-9]{32}$/
218 0 0 unless my $res = _return_rr($lookup, 'TXT')
230 0 0 if (my $data = _return_rr("AS$asn.asn.cymru.com", 'TXT')) { }
237 0 0 unless $ASdata[4]
242 0 0 if $ASdata[2] eq ' arin '
251 0 0 unless defined $desc
271 0 0 if (my $soa_contact = _return_rr($lookup, 'SOA'))
272 0 0 unless $soa_contact =~ /@/
282 0 0 unless $ver
284 0 0 $ver == 4 ? :
293 0 0 unless $ver and $ver == 4
307 0 0 unless $asn =~ /^\d+$/
310 0 0 if ($as_cc)
329 0 0 unless scalar @tlds
332 0 0 if (scalar @parts == 2)
336 0 0 if (grep /^\Q$parts[1].$parts[0]\E$/, @tlds) { }