| line |
true |
false |
branch |
|
55
|
17 |
1 |
if (my $digest = $self->digest) { } |
|
87
|
3 |
38 |
unless (ref $self) |
|
89
|
1 |
2 |
$argn =~ /[^0-9]/ ? : |
|
92
|
11 |
27 |
unless defined $arg |
|
93
|
2 |
25 |
if uc $arg eq "MNEMONIC" |
|
101
|
3 |
55 |
unless (ref $self) |
|
103
|
1 |
2 |
$argn =~ /[^0-9]/ ? : |
|
106
|
30 |
25 |
unless defined $arg |
|
107
|
3 |
22 |
if uc $arg eq "MNEMONIC" |
|
114
|
22 |
13 |
unless scalar @value |
|
115
|
1 |
13 |
unless /^"*([\dA-Fa-f]*)"*$/ |
|
136
|
1 |
12 |
unless $keyrr->protocol == 3 |
|
137
|
1 |
11 |
if $keyrr->revoke |
|
138
|
1 |
10 |
unless $keyrr->zone |
|
152
|
1 |
9 |
unless $hash |
|
197
|
21 |
3 |
if defined $val |
|
198
|
2 |
1 |
$key =~ /^\d/ ? : |
|
245
|
23 |
4 |
if defined $val |
|
246
|
2 |
2 |
$key =~ /^\d/ ? : |