File Coverage

blib/lib/WWW/GoKGS/Scraper/Declare.pm

Criterion	Covered	Total	%
statement	15	22	68.1
branch	1	2	50.0
condition	1	2	50.0
subroutine	5	6	83.3
pod	0	1	0.0
total	22	33	66.6

package WWW::GoKGS::Scraper::Declare;
use strict;
use warnings;
use parent qw/Web::Scraper/;
use HTML::TreeBuilder::XPath;

sub _tree_builder_class {
    my $self = shift;
    $self->{_tree_builder_class} = shift if @_;
    $self->{_tree_builder_class} ||= 'HTML::TreeBuilder::XPath';
}

sub build_tree {
    my ( $self, $html ) = @_;
    my $tree = $self->_tree_builder_class->new;
    $tree->store_comments(1);
    $tree->ignore_unknown(0);
    $tree->parse($html);
    $tree->eof;
    $tree;
}

1;