File Coverage

blib/lib/Mojolicious/Plugin/BcryptSecure.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	6	6	100.0
condition	8	9	88.8
subroutine	6	6	100.0
pod	1	1	100.0
total	42	43	97.6

package Mojolicious::Plugin::BcryptSecure;
use Mojo::Base 'Mojolicious::Plugin';
use Crypt::Eksblowfish::Bcrypt ();
use Crypt::URandom ();

our $VERSION = '0.02';

sub register {
    my (undef, $app, $config) = @_;

    my $cost;
    if (exists $config->{cost}) {
        $cost = delete $config->{cost};
        Carp::confess 'cost must be a positive int <= 99' unless defined $cost and $cost =~ /^\d{1,2}$/ and $cost > 0;
    } else {
        $cost = 12;
    }

    Carp::confess 'Unknown keys/values provided: ' . Mojo::Util::dumper $config if %$config;

    my $settings_without_salt = '$2a' . sprintf '$%02i', $cost;
    $app->helper(bcrypt => sub {
        return Crypt::Eksblowfish::Bcrypt::bcrypt(
            $_[1],
            $_[2] // $settings_without_salt . '$' . Crypt::Eksblowfish::Bcrypt::en_base64(Crypt::URandom::urandom(16)),
        );
    });

    $app->helper(bcrypt_validate => sub {
        return Mojo::Util::secure_compare Crypt::Eksblowfish::Bcrypt::bcrypt($_[1], $_[2]), $_[2];
    });
}

1;
__END__