File Coverage

blib/lib/OpenID/Lite/RelyingParty/DirectCommunication.pm

Criterion	Covered	Total	%
statement	12	21	57.1
branch	0	2	0.0
condition			n/a
subroutine	4	5	80.0
pod	0	1	0.0
total	16	29	55.1

package OpenID::Lite::RelyingParty::DirectCommunication;

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

use HTTP::Request;
use OpenID::Lite::Message;

sub send_request {
    my ( $self, $url, $params ) = @_;
    my $req = HTTP::Request->new( POST => $url );
    $req->header( 'Content-Type' => q{application/x-www-form-urlencoded} );
    $req->content( $params->to_post_body );
    my $res = $self->agent->request($req);
    if ($res->is_success) {
        my $params = OpenID::Lite::Message->from_key_value($res->content);
        return $params;
    }
    return $self->ERROR($res->status_line);
}

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