Branch Coverage

lib/Net/Abuse/Utils.pm
Criterion Covered Total %
branch 0 76 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'
120 0 0 exists $response->{'abuse-mailbox'} ? :
132 0 0 unless $ver
134 0 0 $ver == 4 ? :
138 0 0 unless my $data = [_return_rr($lookup, 'TXT', 2)]
155 0 0 unless $data and @$data
158 0 0 if ($data->[0][0] =~ /^(\d+) \d+/)
171 0 0 unless $ver and $ver == 4
174 0 0 unless my(@origin_as) = _return_rr($lookup, 'TXT', 2)
197 0 0 if wantarray
206 0 0 unless $hash and lc($hash) =~ /^[a-z0-9]{32}$/
210 0 0 unless my $res = _return_rr($lookup, 'TXT')
222 0 0 if (my $data = _return_rr("AS$asn.asn.cymru.com", 'TXT')) { }
229 0 0 unless $ASdata[4]
234 0 0 if $ASdata[2] eq ' arin '
243 0 0 unless defined $desc
263 0 0 if (my $soa_contact = _return_rr($lookup, 'SOA'))
264 0 0 unless $soa_contact =~ /@/
274 0 0 unless $ver
276 0 0 $ver == 4 ? :
285 0 0 unless $ver and $ver == 4
299 0 0 unless $asn =~ /^\d+$/
302 0 0 if ($as_cc)
321 0 0 unless scalar @tlds
324 0 0 if (scalar @parts == 2)
328 0 0 if (grep /^\Q$parts[1].$parts[0]\E$/, @tlds) { }