Branch Coverage
lib/Crypt/Perl/KeyBase.pm
Criterion
Covered
Total
%
branch
3
4
75.0
line
true
false
branch
11
0
6
unless length $hash_alg
14
1
5
unless (my $hash_cr = $hash_alg =~ /\Asha[0-9]+\z/ && 'Digest::SHA'->can($hash_alg))