File Coverage

blib/lib/Crypt/Passphrase/Yescrypt.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch			n/a
condition	8	17	47.0
subroutine	9	9	100.0
pod	5	5	100.0
total	47	56	83.9

package Crypt::Passphrase::Yescrypt;
$Crypt::Passphrase::Yescrypt::VERSION = '0.002';
use strict;
use warnings;

use parent 'Crypt::Passphrase::Encoder';

use Crypt::Yescrypt qw/yescrypt yescrypt_needs_rehash yescrypt_check/;

sub new {
	my ($class, %args) = @_;

	return bless {
		flags       => $args{flags}       // 0xb6,
		block_count => $args{block_count} //   16,
		block_size  => $args{block_size}  //   32,
		parallelism => $args{parallelism} //    1,
		time        => $args{time}        //    0,
		upgrades    => $args{upgrades}    //    0,
		salt_size   => $args{salt_size}   //   16,
	}, $class;
}

my @attributes = qw/flags block_count block_size parallelism time upgrades/;

sub hash_password {
	my ($self, $password) = @_;
	my $salt = $self->random_bytes($self->{salt_size});
	my $result = yescrypt($password, $salt, @{$self}{@attributes});
	return $result // Carp::croak("Can't hash password");
}

sub needs_rehash {
	my ($self, $hash) = @_;
	return yescrypt_needs_rehash($hash, @{$self}{@attributes});
}

sub crypt_subtypes {
	return qw/y 7/;
}

sub verify_password {
	my ($class, $password, $hash) = @_;
	return yescrypt_check($password, $hash);
}

1;

#ABSTRACT: A yescrypt encoder for Crypt::Passphrase

__END__