File Coverage

blib/lib/OpenID/Lite/RelyingParty/Discover/Fetcher/HTML.pm

Criterion	Covered	Total	%
statement	9	18	50.0
branch	0	2	0.0
condition			n/a
subroutine	3	4	75.0
pod	0	1	0.0
total	12	25	48.0

package OpenID::Lite::RelyingParty::Discover::Fetcher::HTML;

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

use OpenID::Lite::RelyingParty::Discover::FetchResult;

sub fetch {
    my ( $self, $uri ) = @_;

    my $res = $self->agent->get($uri);
    return $self->ERROR(
        sprintf q{Failed to HTML based discovery for url "%s"}, $uri )
        unless $res->is_success;

    my $result = OpenID::Lite::RelyingParty::Discover::FetchResult->new;
    $result->final_url( $res->base->as_string );
    $result->normalized_identifier( $uri );
    $result->content_type( lc $res->header('Content-Type') );
    $result->content( $res->content );

    return $result;
}

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