Branch Coverage

blib/lib/Mail/SRS.pm
Criterion Covered Total %
branch 37 48 77.0


line true false branch
172 10 25 if ($class eq 'Mail::SRS')
177 1 24 $#_ == 0 ? :
178 24 1 unless ref $$self{'Secret'} eq 'ARRAY'
180 25 0 unless $$self{'MaxAge'}
181 25 0 unless $$self{'HashLength'}
182 25 0 unless $$self{'HashMin'}
183 9 16 unless exists $$self{'Separator'}
184 1 24 unless ($$self{'Separator'} =~ /^[-+=]$/)
206 0 137 unless $sender =~ /^(.*)\@([^\@]+)$/
209 0 137 if $senduser =~ /\@/
212 137 0 if ($alias =~ /^(.*)\@([^\@]+)$/)
217 8 129 if (lc $aliashost eq lc $sendhost)
218 4 4 unless $$self{'AlwaysRewrite'}
237 1 135 unless $address =~ /^(.*)\@([^\@])+$/
241 1 134 if $@
313 93 8 unless defined $time
338 5 100 if $$self{'IgnoreTimestamp'}
347 97 3 if $now <= $time + $$self{'MaxAge'}
361 0 0 if time <= $time + $$self{'MaxAge'} * $PRECISION
380 0 134 unless @secret
401 0 136 unless length $hash >= $$self{'HashMin'}
403 0 136 unless @secret
415 112 26 if $valid eq $hash
420 22 4 if ($hash eq lc $_)