File Coverage

blib/lib/Crypt/Passphrase/MD5/Hex.pm

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

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

use Crypt::Passphrase -validator;

use Digest::MD5 'md5';

sub new {
	my $class = shift;
	return bless {}, $class;
}

sub accepts_hash {
	my ($self, $hash) = @_;
	return $hash =~ / ^ [a-f0-9]{32} $/xi;
}

sub verify_password {
	my ($self, $password, $hash) = @_;
	return md5($password) eq pack('H32', $hash);
}

1;

# ABSTRACT: Validate against hexed MD5 hashes with Crypt::Passphrase

__END__