Branch Coverage

blib/lib/DNS/Zone/Record.pm
Criterion Covered Total %
branch 19 64 29.6


line true false branch
69 2 15 if ($type eq 'IN A') { }
0 15 elsif ($type eq 'IN CNAME') { }
0 15 elsif ($type eq 'IN HINFO') { }
8 7 elsif ($type eq 'IN MX') { }
2 5 elsif ($type eq 'IN NS') { }
0 5 elsif ($type eq 'IN PTR') { }
1 4 elsif ($type eq 'IN SOA') { }
0 4 elsif ($type eq 'IN TXT') { }
0 4 elsif ($type eq 'IN WKS') { }
150 0 0 if $id
160 0 0 if ($type eq 'IN SOA') { }
0 0 elsif ($type eq 'IN A') { }
0 0 elsif ($type eq 'IN NS') { }
0 0 elsif ($type eq 'IN MX') { }
0 0 elsif ($type eq 'IN CNAME') { }
0 0 elsif ($type eq 'IN HINFO') { }
0 0 elsif ($type eq 'IN PTR') { }
0 0 elsif ($type eq 'IN TXT') { }
0 0 elsif ($type eq 'IN WKS') { }
227 0 0 $self->ttl == $ttl_default ? :
229 0 0 if ($self->type eq 'IN SOA') { }
0 0 elsif ($self->type ne '') { }
237 0 0 if $self->comment
242 0 0 if $self->comment
245 0 0 if $self->comment
278 0 37 unless my $type = ref $self
284 0 37 unless exists $fields{$name}
286 0 37 if ($name eq 'CNAME' or $name eq 'EMAIL' or $name eq 'DOMAIN' or $name eq 'NSERVER' or $name eq 'EXCHANGE')
295 2 35 if ($value) { }
296 0 2 if ($name eq 'TYPE' or $name eq 'COMMENT')
349 0 0 if $_[0] >= 0
353 0 0 if $_[0] >= 0