Branch Coverage

blib/lib/Net/DNS/ZoneParse.pm
Criterion Covered Total %
branch 39 74 52.7


line true false branch
74 0 3 unless $origin
75 1 2 unless substr($origin, -1) eq '.'
76 0 3 if substr($origin, 0, 1) eq '.'
84 3 1 if ref $_[0] eq 'Net::DNS::ZoneParse'
85 0 4 unless ref $_[0]
86 3 1 if ref $_[0] eq 'GLOB'
88 1 3 if ref $_[0] eq 'HASH'
90 0 4 if ref $_[0] eq 'ARRAY'
91 0 4 if ref($_[0]) =~ /^Net::DNS::RR/
93 0 4 if ($$param{'origin'}) { }
104 4 0 if $rrs
105 1 3 if ($$param{'file'} and not $$param{'fh'})
106 0 1 unless open $$param{'fh'}, '<', $$param{'file'}
109 4 0 unless $$param{'nocache'}
110 4 0 unless $$param{'parser'}
112 4 0 unless $$param{'parser_args'}
178 4 0 unless defined $config
222 0 1 unless $prm
223 1 0 unless ($$self{$zone})
250 0 1 unless $zone
270 0 0 unless $$self{$zone}
319 1 1 if ref $_[0] eq 'Net::DNS::ZoneParse'
320 0 2 ref $_[-1] eq 'HASH' ? :
322 1 1 !ref($_[0]) ? :
324 0 1 $#_ >= 0 ? :
1 1 ref $_[0] eq 'ARRAY' ? :
328 0 2 unless $param{'rr'}
334 0 2 if $@
337 2 0 if $ret
400 0 4 unless $param
401 0 4 unless $$param{'fh'}
408 0 4 if $@
411 0 0 unless $ret
414 0 0 if ($$param{'fileopen'})
418 0 0 if (not $$param{'self'}{'dummy'} and $$param{'name'} and not $$param{'nocache'})
422 0 0 if $$param{'self'}{'dummy'}
423 0 0 if $$param{'rrs'}