File Coverage

blib/lib/OpenID/Lite/SessionHandler/DH/SHA1.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

package OpenID::Lite::SessionHandler::DH::SHA1;

use Any::Moose;
extends 'OpenID::Lite::SessionHandler::DH';

use OpenID::Lite::Constants::AssocType qw(HMAC_SHA1);
use OpenID::Lite::Constants::SessionType qw(DH_SHA1);

use Digest::SHA ();

has '+_session_type' => (
    default => DH_SHA1,
);

has '+_allowed_assoc_types' => (
    default => sub { [ HMAC_SHA1 ] },
);

has '+_secret_length' => (
    default => 20,
);

override '_hash' => sub {
    my ( $self, $dh_sec ) = @_;
    return Digest::SHA::sha1( $dh_sec );
};

no Any::Moose;
__PACKAGE__->meta->make_immutable;
1;