package Scrapar::Extractor::HTMLQuery;
use strict;
use warnings;
use HTML::Query 'Query';
use base qw(Scrapar::Extractor::_base);
sub extract {
my $self = shift;
my $content = shift;
my $params_ref = shift;
my $query_text = $params_ref->{query};
my $q = Query(text => $content);
my @r = $q->query($query_text);
return \@r;
}
1;
__END__
=pod
=head1 NAME
Scrapar::Extractor::HTMLQuery - HTML::Query extractor for Scrapar
=head1 COPYRIGHT
Copyright 2009 by Yung-chung Lin
All right reserved. This program is free software; you can
redistribute it and/or modify it under the same terms as Perl itself.
=cut