File Coverage

blib/lib/WWW/Ruten.pm

Criterion	Covered	Total	%
statement	49	51	96.0
branch	1	2	50.0
condition	2	5	40.0
subroutine	11	11	100.0
pod	3	3	100.0
total	66	72	91.6

package WWW::Ruten;
{
  $WWW::Ruten::VERSION = '0.03';
}
# ABSTRACT: Scripting www.ruten.com.tw

use 5.008;
use strict;
use warnings;
use WWW::Mechanize 1.66;
use Encode;
use HTML::TreeBuilder::XPath;
use HTML::Selector::XPath;

sub new {
    my ($class) = @_;
    my $self = {};
    bless $self, $class;
    return $self;
}

sub search {
    my ($self, $term, @params) = @_;
    $self->{search_params} = {
        term => $term
    };

    return $self;
}

sub each {
    my ($self, $cb) = @_;
    $self->_do_search();

    foreach my $result (@{ $self->{search_results} }) {
        $cb->($result);
    }
    return $self;
}

sub _do_search {
    my ($self) = @_;
    die unless defined $self->{search_params}{term};

    $self->{mech} ||= WWW::Mechanize->new;

    my $mech = $self->{mech};
    $mech->get("http://www.ruten.com.tw");
    $mech->submit_form(
        form_name => "srch",
        fields => {
            k => $self->{search_params}{term}
        }
    );

    my $content = $mech->content;

    my @results = ();
    my $html = HTML::TreeBuilder::XPath->new;
    $html->parse($content);

    my $selector = HTML::Selector::XPath->new("ul.items h3.title a");

    for my $node ($html->findnodes($selector->to_xpath)) {
        push @results, {
            url => $node->attr("href"),
            title => join("", $node->content_list)
        }
    }

    $self->{search_results} ||=[];
    push @{  $self->{search_results} }, @results;

    return $self;
}

1;


__END__