Branch Coverage

blib/lib/Net/DNS/Resolver/Mock.pm
Criterion Covered Total %
branch 16 16 100.0


line true false branch
67 3 13 if $self->{'_mock_debug'}
69 1 15 if (exists $$die_on{"$name $type"})
73 14 1 unless $name eq "."
78 4 11 if (lc $type eq "ptr")
79 3 1 if (index(lc $name, ".in-addr.arpa") == -1)
80 2 1 if ($name =~ /^\d+\.\d+\.\d+\.\d+$/)
91 6 26 if (lc $itemname eq lc $name and lc $itemtype eq lc $type) { }
1 50 elsif (lc $itemname eq lc $name and lc $itemtype eq 'cname') { }