File Coverage

blib/lib/WWW/Yahoo/KeywordExtractor.pm

Criterion	Covered	Total	%
statement	21	27	77.7
branch	2	4	50.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	31	39	79.4

package WWW::Yahoo::KeywordExtractor;

use strict;
use warnings;

use LWP::UserAgent;

use constant KEYWORD_API_URL => 'http://api.search.yahoo.com/ContentAnalysisService/V1/termExtraction';

our $VERSION = '0.5';

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

sub extract {
    my ($self, $content) = @_;
    if (! $content) { die 'No content specified'; }
    my $ua = LWP::UserAgent->new();
    my $response = $ua->post(
        KEYWORD_API_URL,
        { 'appid' => 'WWWYahooKeywordExtractor',
        'query' => 'null',
        'context' => $content, }
    );
    if (! $response->is_success()) {
    	die "Error getting data!\n";
    }
    my $xml = $response->content();
    my @results = ();
    while ($xml =~ m!([^<]*)!g) {
        push @results, $1;
    }
    return \@results;
}

1;
__END__