| line |
true |
false |
branch |
|
60
|
0 |
419 |
unless defined $prms{'Protocol'} and $prms{'Protocol'} =~ m[^dns(/txt)?$]s |
|
64
|
2 |
417 |
unless defined $prms{'Selector'} and length $prms{'Selector'} |
|
67
|
0 |
417 |
unless defined $prms{'Domain'} and length $prms{'Domain'} |
|
69
|
2 |
415 |
unless $prms{'Callbacks'} |
|
73
|
5 |
358 |
unless (@resp) |
|
81
|
0 |
358 |
unless $rr->type eq "TXT" |
|
84
|
358 |
0 |
if ('Net::DNS'->VERSION >= 0.69) { } |
|
97
|
0 |
358 |
unless $strn |
|
122
|
335 |
21 |
if (my $v = $self->get_tag("v")) |
|
123
|
1 |
334 |
unless ($v eq "DKIM1") |
|
132
|
330 |
25 |
if (my $k = $self->get_tag("k")) |
|
133
|
1 |
329 |
unless ($k eq "rsa") |
|
140
|
0 |
354 |
unless (defined $p) |
|
143
|
1 |
353 |
if ($p eq "") |
|
146
|
0 |
353 |
unless ($p =~ m[^[A-Za-z0-9\+/\=]+$]) |
|
155
|
0 |
353 |
unless (eval {
do {
local $SIG{'__DIE__'};
$self->cork;
1
}
}) |
|
159
|
0 |
0 |
if ($E =~ /(OpenSSL error: .*?) at /) { } |
|
|
0 |
0 |
elsif ($E =~ /^(panic:.*?) at /) { } |
|
169
|
22 |
331 |
if (my $s = $self->get_tag("s")) |
|
171
|
15 |
11 |
unless $_ eq "*" |
|
|
1 |
21 |
unless (grep {$_ eq "email" unless $_ eq "*";} @list) |
|
200
|
1 |
348 |
if ($g eq "" and $empty_g_means_wildcard) |
|
206
|
54 |
295 |
if ($identity =~ /^(.*)\@([^\@]*)$/) { } |
|
216
|
348 |
1 |
if (defined $ends) { } |
|
221
|
3 |
345 |
if (length $local_part < length($begins) + length($ends) or substr($local_part, 0, length $begins) ne $begins or length $ends and substr($local_part, -length($ends)) ne $ends) |
|
238
|
1 |
0 |
if ($g eq "") |
|
242
|
0 |
0 |
unless ($local_part eq $begins) |
|
249
|
2 |
343 |
if ($self->subdomain_flag) |
|
250
|
1 |
1 |
unless (lc $domain_part eq lc $self->{'Domain'}) |
|
267
|
14 |
337 |
if (my $h = $self->get_tag("h")) |
|
269
|
2 |
12 |
unless (grep {$_ eq $hash_algorithm;} @list) |
|
284
|
0 |
353 |
unless $self->data |
|
297
|
0 |
353 |
unless my $cork = "Crypt::OpenSSL::RSA"->new_public_key($cert) |
|
319
|
0 |
0 |
unless (eval {
do {
local $SIG{'__DIE__'};
$rtrn = $self->cork->verify($prms{'Text'}, $prms{'Signature'});
1
}
}) |
|
332
|
0 |
704 |
if @_ |
|
336
|
44 |
660 |
if (defined $g) { } |
|
347
|
0 |
0 |
if @_ |
|
356
|
0 |
3770 |
if @_ |
|
362
|
3770 |
0 |
if defined $p |
|
369
|
0 |
345 |
if @_ |
|
388
|
0 |
0 |
unless $self->data |
|
399
|
0 |
0 |
if (grep {$_ eq "y";} @flaglist) |
|
420
|
0 |
341 |
unless ($rsa_pub) |
|
421
|
0 |
0 |
$@ ne '' ? : |
|
431
|
270 |
63 |
if $verify_result eq $expected |
|
441
|
60 |
3 |
if (substr($verify_result, 0, $prefix_len) eq substr($expected, 0, $prefix_len)) |