File Coverage

blib/lib/Crypt/Passphrase/Fallback.pm

Criterion	Covered	Total	%
statement	9	16	56.2
branch			n/a
condition	0	3	0.0
subroutine	3	7	42.8
pod	2	3	66.6
total	14	29	48.2

package Crypt::Passphrase::Fallback;
$Crypt::Passphrase::Fallback::VERSION = '0.021';
use strict;
use warnings;

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

sub new {
	my ($class, %args) = @_;
	return bless {
		callback => $args{callback},
		acceptor => $args{acceptor} // sub { 1 },
	}, $class;
}

sub accepts_hash {
	my ($self, $hash) = @_;
	return $self->{acceptor}->($hash);
}

sub verify_password {
	my ($self, $password, $hash) = @_;
	return $self->{callback}->($password, $hash);
}

1;

#ABSTRACT: a fallback validator for Crypt::Passphrase

__END__