File Coverage

blib/lib/Mojolicious/Plugin/Scrypt.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	2	100.0
condition	5	10	50.0
subroutine	5	5	100.0
pod	1	1	100.0
total	35	40	87.5

package Mojolicious::Plugin::Scrypt;
use Mojo::Base 'Mojolicious::Plugin';
use Crypt::ScryptKDF qw/scrypt_hash scrypt_hash_verify/;

our $VERSION = '0.01';

sub register {
    my ( $self, $app, $conf ) = @_;
    my $salt_len = $conf->{salt_length}    || 32;
    my $N        = $conf->{cost}           || 16384;
    my $r        = $conf->{block_size}     || 8;
    my $p        = $conf->{parallelism}    || 1;
    my $len      = $conf->{derived_length} || 32;

    $app->helper(
        scrypt => sub {
            my $c = shift;
            my ( $secret, $salt ) = @_;
            unless ($salt) {
                return scrypt_hash( $secret, \$salt_len, $N, $r, $p, $len );
            }
            return scrypt_hash( $secret, $salt, $N, $r, $p, $len );
        }
    );

    $app->helper(
        scrypt_verify => sub {
            my $c = shift;
            my ( $plain, $encoded ) = @_;

            #returns: 1 (ok) or 0 (fail)
            return scrypt_hash_verify( $plain, $encoded );
        }
    );
}

1;
__END__