Branch Coverage

blib/lib/Mail/STS/Policy.pm
Criterion Covered Total %
branch 0 32 0.0


line true false branch
56 0 0 unless (defined $key and defined $value)
59 0 0 if ($key eq 'version') { }
0 0 elsif ($key eq 'mode') { }
0 0 elsif ($key eq 'max_age') { }
0 0 elsif ($key eq 'mx') { }
60 0 0 unless ($value eq 'STSv1')
66 0 0 unless ($value =~ /^(testing|enforce|none)$/)
72 0 0 unless ($value =~ /^(\d+)$/)
78 0 0 unless ($value =~ /^(\*\.)?[0-9a-zA-Z\-]+(\.[0-9a-zA-Z\-]+)*$/)
110 0 0 unless defined $value
111 0 0 unless (ref $value)
114 0 0 if (ref $value eq 'ARRAY')
124 0 0 if ($host eq $mx)
127 0 0 if (my($domain) = $mx =~ /^\*\.(.+)$/)
128 0 0 if $host eq $domain
131 0 0 if substr($host, -$suffix_len) eq $suffix