File Coverage

blib/lib/OpenID/Lite/RelyingParty/Discover/Fetcher/Yadis/HTMLExtractor.pm

Criterion	Covered	Total	%
statement	9	17	52.9
branch	0	2	0.0
condition	0	3	0.0
subroutine	3	5	60.0
pod	0	1	0.0
total	12	28	42.8

package OpenID::Lite::RelyingParty::Discover::Fetcher::Yadis::HTMLExtractor;

use HTML::TreeBuilder::XPath;
use URI::Escape ();
use OpenID::Lite::Constants::Yadis qw(XRDS_HEADER YADIS_HEADER);

sub extract {
    my ( $class, $content ) = @_;

    my $tree = HTML::TreeBuilder::XPath->new;
    $tree->parse(lc $content);
    my $location
        =  $tree->findvalue( $class->_build_xpath_with( XRDS_HEADER  ) )
        || $tree->findvalue( $class->_build_xpath_with( YADIS_HEADER ) );
    return unless $location;
    return URI::Escape::uri_unescape($location);
}

sub _build_xpath_with {
    my ( $class, $header ) = @_;
    return sprintf(q{/html/head/meta[@http-equiv='%s']/@content}, lc $header)
}

1;