Branch Coverage

blib/lib/Net/DNS/RR/DNSKEY.pm
Criterion Covered Total %
branch 42 42 100.0


line true false branch
43 9 1 if (my $keybin = $self->keybin) { }
60 19 2 if $algorithm
86 7 23 if (scalar @value)
88 4 3 unless shift @value
97 7 24 if (scalar @value)
99 4 3 unless shift @value
108 4 4 if (scalar @value)
110 2 2 unless shift @value
119 7 12 if (scalar @value)
121 4 3 unless shift @value
138 3 94 unless (ref $self)
140 1 2 $argn =~ /\D/ ? :
143 43 51 unless defined $arg
144 5 46 if uc $arg eq "MNEMONIC"
151 16 23 unless scalar @value
189 9 4 if (/^RSA/) { }
2 2 elsif (/^DSA/) { }
192 7 2 if (my $exp_length = unpack('C', $keybin)) { }
218 1 45 if $self->{'algorithm'} == 1
271 38 10 if defined $val
272 8 2 $key =~ /^\d/ ? :