| line |
true |
false |
branch |
|
19
|
0 |
14 |
if scalar @args % 2 |
|
25
|
3 |
20 |
$b eq 'config_file' ? : |
|
|
4 |
23 |
$a eq 'config_file' ? : |
|
30
|
13 |
3 |
if ($self->can($key)) { } |
|
41
|
12 |
14 |
if 1 == scalar @_ |
|
42
|
2 |
12 |
unless $_[0]->is_valid_ip($_[1]) |
|
47
|
5 |
11 |
if 1 == scalar @_ |
|
48
|
1 |
10 |
unless $_[0]->is_valid_domain($_[1]) |
|
53
|
5 |
9 |
if 1 == scalar @_ |
|
54
|
0 |
9 |
unless $_[0]->is_valid_domain($_[1]) |
|
59
|
126 |
41 |
if 1 == scalar @_ |
|
60
|
4 |
37 |
unless $_[0]->is_valid_domain($_[1]) |
|
65
|
10 |
10 |
if 1 == scalar @_ |
|
71
|
0 |
0 |
if 1 == scalar @_ |
|
80
|
54 |
30 |
if (0 == scalar @args) |
|
86
|
26 |
4 |
if (1 == scalar @args) |
|
88
|
1 |
25 |
if (ref $args[0] eq "CODE") |
|
92
|
22 |
3 |
if (ref $args[0] eq "ARRAY") |
|
100
|
1 |
2 |
if (ref $args[0] eq "Mail::DKIM::Verifier") |
|
120
|
0 |
1 |
if ref $s eq "Mail::DKIM::DkSignature" |
|
125
|
0 |
1 |
if ($result eq "invalid") |
|
138
|
0 |
1 |
if ($signatures < 1) |
|
151
|
2 |
105 |
if ($self->{$key} and ref $self->{$key} eq "CODE") |
|
160
|
53 |
26 |
if (0 == scalar @args) |
|
165
|
1 |
25 |
if (1 == scalar @args and ref $args[0] eq "CODE") |
|
169
|
12 |
13 |
if (1 == scalar @args and ref $args[0] eq "ARRAY") |
|
187
|
55 |
15 |
if ref $self->{'policy'} and 0 == scalar @args |
|
193
|
29 |
9 |
if ref $self->{'report'} |
|
199
|
324 |
18 |
if ref $self->{'result'} |
|
204
|
8 |
52 |
if 1 == scalar @_ |
|
205
|
0 |
52 |
if 0 == grep({/^$_[1]$/xi;} 0, 1) |
|
215
|
5 |
15 |
unless $interval |
|
216
|
5 |
15 |
if ($min_interval) |
|
217
|
1 |
4 |
if $interval < $min_interval |
|
219
|
5 |
15 |
if ($max_interval) |
|
220
|
1 |
4 |
if $interval > $max_interval |
|
223
|
2 |
18 |
if (86400 % $interval != 0) |