File Coverage

blib/lib/OpenID/Lite/SessionHandler/DH/SHA256.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::SHA256;

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

use OpenID::Lite::Constants::AssocType qw(HMAC_SHA256);
use OpenID::Lite::Constants::SessionType qw(DH_SHA256);

use Digest::SHA ();

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

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

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

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

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