File Coverage

blib/lib/Crypt/Passphrase/Encoder.pm

Criterion	Covered	Total	%
statement	20	21	95.2
branch	2	4	50.0
condition	2	3	66.6
subroutine	6	7	85.7
pod	3	3	100.0
total	33	38	86.8

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

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

use Crypt::URandom;

sub random_bytes {
	my ($self, $count) = @_;
	return Crypt::URandom::urandom($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 $hash =~ $self->{accepts_hash};
}

sub binary_safe {
	return 1;
}

1;

#ABSTRACT: Base class for Crypt::Passphrase encoders

__END__