Branch Coverage

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


line true false branch
56 594 707 scalar @list > 1 ? :
58 1286 15 if $rr
59 20 1 defined $_ ? :
93 1 993 unless defined $_
94 2 991 if ref $_
102 4904 3615 if defined $_
104 1 990 unless scalar @token
109 65 925 if (not defined $t2) { }
234 691 elsif ($t1 =~ /^\d/) { }
169 522 elsif ($Net::DNS::RR::classbyname{uc $t1} or $t1 =~ /^CLASS\d/i) { }
110 2 63 if $Net::DNS::RR::classbyname{uc $t1}
113 224 10 if $Net::DNS::RR::classbyname{uc $t2} or $t2 =~ /^CLASS\d/i
116 9 160 if $t2 =~ /^\d/
127 92 897 unless $populated
129 28 869 if ($#token and $token[0] =~ /^[\\]?#$/) { }
133 3 25 unless $rdlen == length $rdata
185 259 335 $name ? :
186 17 577 if defined $class
187 10 584 if defined $ttl
191 1 465 ref $value eq 'ARRAY' ? :
194 1 1 ref $self eq 'Net::DNS::RR' ? :
2 592 if $@
229 1 9758 if length $$data < $index
235 1 9757 if length $$data < $next
238 9750 7 if $next > $index or $self->type eq "OPT"
240 9676 75 wantarray ? :
261 296 816 unless defined $offset
265 68 1044 $self->_empty ? :
288 29 276 $self->_empty ? :
328 34 1125 $empty ? :
329 1 1158 if $@
331 1151 8 length $name < 72 ? :
335 314 845 unless scalar @line
337 34 1125 if $empty
372 4 3 $self->_empty ? :
378 19 16 if defined $_
401 1 7 if scalar @line > 1
417 2652 1586 defined wantarray ? :
448 816 1981 if defined $class
449 901 1080 defined $self->{'class'} ? :
470 814 633 unless defined $time
507 1 1 if ref $self eq "Net::DNS::RR"
545 20 117 $self->_empty ? :
137 30 unless @_
548 22 8 if $self->{'rdlength'} = length $data
565 19 69 $self->_empty ? :
566 1 87 if $@
672 180 11162 unless ($_LOADED{$rrname})
675 170 9 unless ($_LOADED{$rrtype})
683 1 169 unless (eval "require $subclass")
693 1 169 if $@
708 1194 10147 $default ? :
715 68 1159 if scalar @note
716 1093 66 unless $self->{'annotation'}
1159 68 wantarray ? :
724 5 4 unless $warned{join $", @note}++
745 1763 3864 if ($coln > $cols)
746 1751 12 if @fill
750 82 5545 if chomp $_
751 5594 33 if length $_
771 7 3 if ($self->can($action))
779 1 2 unless $oref
784 1 1 if $oref eq "Net::DNS::RR"