| line |
true |
false |
branch |
|
34
|
0 |
23 |
if defined $prms{'Key'} |
|
42
|
0 |
17 |
unless @_ == 1 |
|
50
|
17 |
0 |
if ($string =~ /^(domainkey-signature:)(.*)/is) |
|
82
|
23 |
68 |
if (@_) |
|
87
|
87 |
4 |
defined $a && $a ne '' ? : |
|
93
|
0 |
61 |
if @_ > 1 |
|
95
|
23 |
38 |
if (@_) |
|
110
|
23 |
60 |
if (@_) |
|
115
|
66 |
17 |
defined $d ? : |
|
120
|
0 |
15 |
if @_ |
|
132
|
0 |
17 |
unless grep {$_ eq $c;} @known |
|
146
|
30 |
2 |
if $protocol and $protocol eq "dns" |
|
158
|
0 |
38 |
unless @_ == 1 |
|
161
|
38 |
0 |
$algorithm eq 'rsa-sha1' ? : |
|
174
|
13 |
0 |
$algorithm eq 'rsa-sha1' ? : |
|
184
|
0 |
28 |
if @_ |
|
191
|
0 |
0 |
if @_ |
|
218
|
23 |
36 |
if @_ |
|
223
|
2 |
57 |
!defined($self->get_tag('q')) ? : |