File Coverage

blib/lib/OpenID/Lite/SessionHandler.pm

Criterion	Covered	Total	%
statement	12	23	52.1
branch			n/a
condition	0	6	0.0
subroutine	4	10	40.0
pod	0	5	0.0
total	16	44	36.3

package OpenID::Lite::SessionHandler;

use Any::Moose;
with 'OpenID::Lite::Role::ErrorHandler';
use List::MoreUtils qw(any);
use OpenID::Lite::Types qw(SessionType);

has '_session_type' => (
    is      => 'ro',
    isa     => SessionType,
    default => "",
);

has '_allowed_assoc_types' => (
    is      => 'ro',
    isa     => 'ArrayRef[Str]',
    default => sub { [] },
);

# template method
sub set_request_params {
    my ( $self, $service, $params ) = @_;
}

sub match {
    my ( $self, $session_type ) = @_;
    return ( $session_type && $self->_session_type eq $session_type );
}

sub can_handle_assoc_type {
    my ( $self, $assoc_type ) = @_;
    my $allowed = $self->_allowed_assoc_types;
    return ( $assoc_type && ( any { $_ eq $assoc_type } @$allowed ) );
}

# abstract method
sub extract_secret {
    my ( $self, $params ) = @_;
    die "abstract method.";
}

sub set_response_params {
    my ( $self, $req_params, $res_params, $association ) = @_;
    die "abstract method";
}

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