Branch Coverage

blib/lib/TinyDNS/Reader.pm
Criterion Covered Total %
branch 6 14 42.8


line true false branch
68 0 10 if ($supplied{'file'}) { }
10 0 elsif ($supplied{'text'}) { }
100 0 0 unless open my $handle, '<', $file
133 0 11 unless $line and length $line
139 0 11 unless $line and length $line
144 0 11 if $line =~ /^\s*[:.]/
155 11 0 if $rec