Branch Coverage

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


line true false branch
60 8 1 unless (exists $cache->{$key})
86 3 14 if $self->{'_mock_debug'}
88 1 16 if (exists $$die_on{"$name $type"})
92 15 1 unless $name eq "."
95 4 12 if (lc $type eq "ptr")
96 3 1 if (index(lc $name, ".in-addr.arpa") == -1)
97 2 1 if ($name =~ /^\d+\.\d+\.\d+\.\d+$/)
107 1 15 if (exists $self->{'zonefile_cache'}{$cname_key}) { }
7 8 elsif (exists $self->{'zonefile_cache'}{$key}) { }