File Coverage

blib/lib/OpenID/Lite/SessionHandlers.pm

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

package OpenID::Lite::SessionHandlers;

use strict;
use warnings;

use OpenID::Lite::Constants::SessionType qw(:all);

use OpenID::Lite::SessionHandler::NoEncryption;
use OpenID::Lite::SessionHandler::DH::SHA1;
use OpenID::Lite::SessionHandler::DH::SHA256;

# dispatch table
my %handlers = (
    NO_ENCRYPTION() => OpenID::Lite::SessionHandler::NoEncryption->new,
    DH_SHA1()       => OpenID::Lite::SessionHandler::DH::SHA1->new,
    DH_SHA256()     => OpenID::Lite::SessionHandler::DH::SHA256->new,
);

sub select_session {
    my ( $class, $type ) = @_;
    return $handlers{$type};
}

1;