Branch Coverage

blib/lib/Net/DNS/RR.pm
Criterion Covered Total %
branch 142 142 100.0


line true false branch
56 590 733 scalar @list > 1 ? :
58 1299 24 if $rr
59 29 1 defined $_ ? :
92 1 1019 unless defined $string
93 2 1017 if ref $string
102 5161 4100 if defined $_
104 1 1016 unless scalar @token
109 70 946 if (not defined $t2) { }
495 451 elsif ($t1 =~ /^\d/) { }
53 398 elsif ($Net::DNS::RR::classbyname{uc $t1} or $t1 =~ /^CLASS\d/i) { }
110 1 69 if $Net::DNS::RR::classbyname{uc $t1}
113 483 12 if $Net::DNS::RR::classbyname{uc $t2} or $t2 =~ /^CLASS\d/i
116 8 45 if $t2 =~ /^\d/
127 89 926 unless $populated
129 29 897 if ($#token and $token[0] =~ /^[\\]?#$/) { }
133 3 26 unless $rdlen == length $rdata
187 258 332 $name ? :
188 23 567 if defined $class
189 16 574 if defined $ttl
194 903 473 unless defined $value
195 1 472 ref $value eq 'ARRAY' ? :
198 1 1 ref $self eq __PACKAGE__ ? :
2 588 if $@
233 1 9344 if length $$data < $index
239 1 9343 if length $$data < $next
241 9342 1 if ($next > $index or $self->type eq "OPT")
244 7 9335 if $@
247 9267 76 wantarray ? :
268 327 818 unless defined $offset
272 63 1082 $self->_empty ? :
295 29 276 $self->_empty ? :
330 838 280 defined $self->{'ttl'} ? :
331 859 259 defined $self->{'class'} ? :
336 25 1093 $empty ? :
337 1 1117 if $@
339 1112 6 length $owner < 72 ? :
343 272 846 unless scalar @line
345 25 1093 if $empty
376 1 6 defined $self->{'ttl'} ? :
377 1 6 defined $self->{'class'} ? :
381 4 3 $self->_empty ? :
387 19 16 if defined $_
404 2 6 defined $self->{'ttl'} ? :
405 2 6 defined $self->{'class'} ? :
410 1 7 if scalar @line > 1
426 707 1618 defined wantarray ? :
457 967 1560 if defined $class
458 1053 507 defined $self->{'class'} ? :
479 533 596 unless defined $time
516 1 1 if ref $self eq __PACKAGE__
554 23 116 $self->_empty ? :
139 34 unless @_
557 26 8 if $self->{'rdlength'} = length $data
574 19 69 $self->_empty ? :
575 1 87 if $@
681 184 10766 unless ($_LOADED{$rrname})
684 173 10 unless ($_LOADED{$rrtype})
692 1 172 unless (eval "require $subclass")
702 1 172 if $@
717 1222 9727 $default ? :
724 59 1118 if scalar @note
725 1061 57 unless delete $self->{'annotation'}
1118 59 wantarray ? :
733 5 4 unless $warned{join $", @note}++
754 1779 3800 if ($coln > $cols)
755 1768 11 if @fill
759 91 5488 if chomp $_
760 5529 50 if length $_
779 6 5 if ($self->can($canonical))
786 1 4 unless $oref
791 1 3 if $oref eq __PACKAGE__