File Coverage

lib/Dancer2/Plugin/Argon2/Passphrase.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	2	3	66.6
total	33	34	97.0

package Dancer2::Plugin::Argon2::Passphrase;

use 5.008001;
use strict;
use warnings;

our $VERSION = '0.01';

use Crypt::Argon2 qw( argon2id_pass argon2id_verify );
use Crypt::URandom;

sub new {
    my ( $class, $settings ) = @_;
    return bless $settings, $class;
}

sub encoded {
    my $self = shift;
    $self->{salt} = Crypt::URandom::urandom(16);
    my @argon2_params = ( map { $self->{$_} } qw( salt cost factor parallelism size ) );
    return argon2id_pass( $self->{password}, @argon2_params );
}

sub matches {
    my ( $self, $passphrase ) = @_;
    return argon2id_verify( $passphrase, $self->{password} );
}

1;
__END__