File Coverage

blib/lib/OpenID/Lite/RelyingParty/Associator/ParamBuilder.pm

Criterion	Covered	Total	%
statement	15	23	65.2
branch	0	2	0.0
condition			n/a
subroutine	5	6	83.3
pod	0	1	0.0
total	20	32	62.5

package OpenID::Lite::RelyingParty::Associator::ParamBuilder;

use Any::Moose;
with 'OpenID::Lite::Role::ErrorHandler';

has 'session' => (
    is       => 'rw',
    isa      => 'OpenID::Lite::SessionHandler',
    required => 1,
);

use OpenID::Lite::Message;
use OpenID::Lite::Constants::Namespace qw(SPEC_2_0);
use OpenID::Lite::Constants::ModeType qw(ASSOCIATION);

sub build_params {
    my ( $self, $service, $assoc_type ) = @_;
    my $params = OpenID::Lite::Message->new;
    unless ( $service->requires_compatibility_mode ) {
        $params->set( ns => SPEC_2_0 );
    }
    $params->set( mode       => ASSOCIATION );
    $params->set( assoc_type => $assoc_type );
    $self->session->set_request_params( $service, $params );
    return $params;
}

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