File Coverage

blib/lib/HTML/Selector/XPath/Simple.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	2	2	100.0
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	38	38	100.0

package HTML::Selector::XPath::Simple;

use warnings;
use strict;
use Carp;

use version; our $VERSION = qv('0.0.3');

use HTML::Selector::XPath;
use HTML::TreeBuilder::XPath;

sub new {
    my $class = shift;
    bless {
	tree => HTML::TreeBuilder::XPath->new->parse( shift )->eof,
    }, $class;
}

sub select {
    my $self = shift;
    my $xpath = HTML::Selector::XPath->new( shift )->to_xpath;
    my @results = map { @{ $_->content } }
	               $self->{tree}->findnodes($xpath);
    return wantarray ? @results : $results[0];
}

1; # Magic true value required at end of module
__END__