File Coverage

blib/lib/Crypt/Passphrase/Encoder.pm

Criterion	Covered	Total	%
statement	20	22	90.9
branch	2	4	50.0
condition	2	3	66.6
subroutine	6	7	85.7
pod	3	3	100.0
total	33	39	84.6

package Crypt::Passphrase::Encoder;
$Crypt::Passphrase::Encoder::VERSION = '0.021';
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 '|', $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__