File Coverage

blib/lib/Kelp/Module/Bcrypt.pm

Criterion	Covered	Total	%
statement	14	16	87.5
branch			n/a
condition	2	8	25.0
subroutine	3	4	75.0
pod	1	1	100.0
total	20	29	68.9

package Kelp::Module::Bcrypt;

use Kelp::Base 'Kelp::Module';
use Crypt::Eksblowfish::Bcrypt qw(bcrypt en_base64);

our $VERSION = 0.1;

sub build {
    my ( $self, %args ) = @_;

    my $cost = sprintf( '%02d', $args{cost} // 6 );
    my $salt = $args{salt} // do {
        my $num = 999999;
        my $rnd = crypt( rand($num), rand($num) ) . crypt( rand($num), rand($num) );
        en_base64( substr( $rnd, 4, 16 ) );
    };
    my $_set = join( '$', '$2a', $cost, $salt );

    $self->register(
        bcrypt => sub {
            my ( $app, $text, $settings ) = @_;
            return bcrypt( $text, $settings // $_set );
        }
    );
}

1;

__END__