Branch Coverage

blib/lib/Authen/Passphrase/DESCrypt.pm
Criterion Covered Total %
branch 66 92 71.7


line true false branch
214 13 172 if ($attr eq 'fold') { }
1 171 elsif ($attr eq 'initial') { }
6 165 elsif ($attr eq 'initial_base64') { }
19 146 elsif ($attr eq 'nrounds') { }
12 134 elsif ($attr eq 'nrounds_base64') { }
47 87 elsif ($attr eq 'salt') { }
19 68 elsif ($attr eq 'salt_base64') { }
1 67 elsif ($attr eq 'salt_random') { }
33 34 elsif ($attr eq 'hash') { }
18 16 elsif ($attr eq 'hash_base64') { }
16 0 elsif ($attr eq 'passphrase') { }
215 0 13 if exists $$self{'fold'}
219 0 1 if exists $$self{'initial'}
221 0 1 unless $value =~ /\A[\x00-\xff]{8}\z/
225 0 6 if exists $$self{'initial'}
227 0 6 unless $value =~ m[\A[./0-9A-Za-z]{10}[.26AEIMQUYcgkosw]\z]
232 0 19 if exists $$self{'nrounds'}
234 0 19 unless $value == int $value and $value >= 0
238 0 12 if exists $$self{'nrounds'}
240 0 12 unless $value =~ m[\A[./0-9A-Za-z]{4}\z]
244 0 47 if exists $$self{'salt'}
246 0 47 unless $value == int $value and $value >= 0 and $value < 16777216
251 0 19 if exists $$self{'salt'}
253 0 19 unless $value =~ m[\A(?:[./0-9A-Za-z]{2}|[./0-9A-Za-z]{4})\z]
255 7 12 length $value == 2 ? :
259 0 1 if exists $$self{'salt'}
261 0 1 unless $value == 12 or $value == 24
265 0 33 if exists $$self{'hash'} or defined $passphrase
268 0 33 unless $value =~ /\A[\x00-\xff]{8}\z/
272 0 18 if exists $$self{'hash'} or defined $passphrase
275 0 18 unless $value =~ m[\A[./0-9A-Za-z]{10}[.26AEIMQUYcgkosw]\z]
280 0 16 if exists $$self{'hash'} or defined $passphrase
288 54 13 unless exists $$self{'fold'}
289 60 7 unless exists $$self{'initial'}
290 36 31 unless exists $$self{'nrounds'}
291 0 67 unless exists $$self{'salt'}
292 16 51 if defined $passphrase
293 0 67 unless exists $$self{'hash'}
316 1 1 if ($passwd =~ /\A[^\$].{12}\z/s) { }
1 0 elsif ($passwd =~ /\A_.{19}\z/s) { }
317 0 1 unless $passwd =~ m[\A([./0-9A-Za-z]{2})([./0-9A-Za-z]{11})\z]
322 0 1 unless $passwd =~ m[\A_([./0-9A-Za-z]{4})([./0-9A-Za-z]{4}) ([./0-9A-Za-z]{11})\z]x
421 2 43 if $salt >= 4096
472 50 120 if $$self{'fold'}
484 16 20 if (not $$self{'fold'} and $$self{'initial'} eq "\000\000\000\000\000\000\000\000" and $$self{'nrounds'} == 25 and $$self{'salt'} < 4096) { }
10 10 elsif ($$self{'fold'} and $$self{'initial'} eq "\000\000\000\000\000\000\000\000") { }