Branch Coverage

blib/lib/Authen/Passphrase/BlowfishCrypt.pm
Criterion Covered Total %
branch 40 60 66.6


line true false branch
172 7 33 if ($attr eq 'key_nul') { }
11 22 elsif ($attr eq 'cost' or $attr eq 'keying_nrounds_log2') { }
1 21 elsif ($attr eq 'salt') { }
9 12 elsif ($attr eq 'salt_base64') { }
1 11 elsif ($attr eq 'salt_random') { }
1 10 elsif ($attr eq 'hash') { }
8 2 elsif ($attr eq 'hash_base64') { }
2 0 elsif ($attr eq 'passphrase') { }
173 0 7 if exists $$self{'fold'}
177 0 11 if exists $$self{'cost'}
179 0 11 unless $value == int $value and $value >= 0
183 0 1 if exists $$self{'salt'}
185 0 1 unless $value =~ /\A[\x00-\xff]{16}\z/
189 0 9 if exists $$self{'salt'}
191 0 9 unless length $value == 22
195 0 1 if exists $$self{'salt'}
199 0 1 if exists $$self{'hash'} or defined $passphrase
202 0 1 unless $value =~ /\A[\x00-\xff]{23}\z/
206 0 8 if exists $$self{'hash'} or defined $passphrase
209 0 8 unless length $value == 31
213 0 2 if exists $$self{'hash'} or defined $passphrase
221 4 7 unless exists $$self{'key_nul'}
222 0 11 unless exists $$self{'cost'}
223 0 11 unless exists $$self{'salt'}
224 2 9 if defined $passphrase
225 0 11 unless exists $$self{'hash'}
242 2 0 if ($passwd =~ /\A(\$2a?\$)/)
243 0 2 unless $passwd =~ m[\A\$2(a?)\$([0-9]{2})\$ ([./A-Za-z0-9]{22})([./A-Za-z0-9]{31})\z]x
367 0 10 if $$self{'cost'} > 99
369 2 8 $self->key_nul ? :