File Coverage

blib/lib/Yahoo/CAS.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Yahoo::CAS;

use strict;
use LWP;
use XML::Simple;

our $VERSION = '0.2';

sub new {
    my $self = shift;
    my $param = shift;
    my $appid = $param->{appid};
    my $version = 'v1';
    my $url = 'http://asia.search.yahooapis.com/cas/';
    my $request = "$url.$version/";
    bless ( {
	    version => $version,
	    url => $url,
	    appid => $appid,
	    request => $request },
	$self);
}

sub ws {
    my $self= shift;
    my $param = shift;
    my $content = $param->{content};
    my $request = { url => $self->{request}."ws", content => $content };
    my $response = XMLin($self->_get($request));
    if (exists($response->{WordSegmentationResult})) {
	return $response->{WordSegmentationResult};
    } else {
	return 0;
    }
}

sub ke {
    my $self= shift;
    my $param = shift;
    my $content = $param->{content};
    my $threshold = $param->{threshold};
    my $maxnum = $param->{maxnum};
    my $request = { url => $self->{request}."ke", content => "content=$content&threshold=$threshold&maxnum=$maxnum" };
    my $response = XMLin($self->_get($request));
    if (exists($response->{KeywordExtractionResult})) {
	return $response->{KeywordExtractionResult};
    } else {
	return 0;
    }
}

sub _get {
    my $self = shift;
    my $request = shift;
    my $req = HTTP::Request->new(POST => $request->{url});
    $req->content_type('application/x-www-form-urlencoded');
    $req->{content} = $request->{content}."&appid=".$self->{appid};
    my $res = $req->request($req);
    if ($res->is_success) {
	return $res->content;
    } else {
	return $res->status_line;
    }
}


1;

__END__