Branch Coverage

lib/Mail/DMARC.pm
Criterion Covered Total %
branch 66 74 89.1


line true false branch
19 0 14 if scalar @args % 2
25 3 19 $b eq 'config_file' ? :
4 22 $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)