Branch Coverage

blib/lib/TinyDNS/Record.pm
Criterion Covered Total %
branch 22 30 73.3


line true false branch
112 25 34 if ($rec eq '+' or $rec eq '=') { }
21 13 elsif ($rec eq '6') { }
6 7 elsif ($rec eq '@') { }
2 5 elsif ($rec eq 'c' or $rec eq 'C') { }
3 2 elsif ($rec eq 't' or $rec eq 'T') { }
2 0 elsif ($rec eq '^') { }
146 3 3 if (scalar @data == 4)
154 3 3 if (scalar @data == 3)
180 3 0 if ($line =~ /([^:]+):"([^"]+)":([0-9]+)$/) { }
225 49 0 $$self{'type'} ? :
306 1 0 if (ref \$value eq 'SCALAR') { }
334 69 0 if $self->type
335 69 0 if $self->name
336 69 0 if $self->value
337 69 0 if $self->ttl