File Coverage

blib/lib/Crypt/Passphrase/Bcrypt/Compat.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	2	3	66.6
total	27	28	96.4

package Crypt::Passphrase::Bcrypt::Compat;
$Crypt::Passphrase::Bcrypt::Compat::VERSION = '0.004';
use strict;
use warnings;

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

use Crypt::Eksblowfish::Bcrypt qw/bcrypt/;

sub new {
	my ($class) = @_;
	return bless {}, $class;
}

sub accepts_hash {
	my ($self, $hash) = @_;
	return $hash =~ /^\$2a?\$/;
}

sub verify_password {
	my ($class, $password, $hash) = @_;
	$class->secure_compare(bcrypt($password, $hash), $hash);
}

1;

#ABSTRACT: A bcrypt validator for Crypt::Passphrase

__END__