File Coverage

blib/lib/Crypt/Passphrase/Encoder.pm

Criterion	Covered	Total	%
statement	21	23	91.3
branch	2	4	50.0
condition	2	3	66.6
subroutine	6	7	85.7
pod	3	3	100.0
total	34	40	85.0

package Crypt::Passphrase::Encoder;
$Crypt::Passphrase::Encoder::VERSION = '0.023';
use strict;
use warnings;

use parent 'Crypt::Passphrase::Validator';

use Crypt::SysRandom;

sub random_bytes {
	my ($self, $count) = @_;
	return Crypt::SysRandom::random_bytes($count);
}

sub crypt_subtypes;

sub accepts_hash {
	my ($self, $hash) = @_;
	return !!0 if not defined $hash;
	$self->{accepts_hash} //= do {
		my $string = join '|', map { quotemeta } $self->crypt_subtypes or return;
		qr/ \A \$ (?: $string ) [\$,] /x;
	};
	return scalar $hash =~ $self->{accepts_hash};
}

sub recode_hash {
	my ($self, $hash, @args) = @_;
	return $hash;
}

1;

#ABSTRACT: Base class for Crypt::Passphrase encoders

__END__