File Coverage

blib/lib/WebService/YahooJapan/WebMA.pm

Criterion	Covered	Total	%
statement	19	21	90.4
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	26	28	92.8

package WebService::YahooJapan::WebMA;
use 5.008001;
use strict;
use warnings;

use Carp;
use URI;
use LWP::UserAgent;
use XML::Simple ();

our $VERSION = '0.01';

our $APIBase = 'http://api.jlp.yahoo.co.jp/MAService/V1/parse';

sub new {
    my ($class, %args) = @_;
    my %self;
    $self{appid} = $args{appid} or croak 'appid is required.';
    $self{ua}    = $args{ua} || LWP::UserAgent->new(agent => __PACKAGE__ . "/$VERSION");
    bless \%self, $class;
}

sub parse {
    my ($self, %args) = @_;
    croak 'sentence is required.' unless $args{sentence};
    $self->error('');
    my %param = map { exists $args{$_} ? ( $_ => $args{$_} ) : () } qw(
        sentence results response filter ma_response ma_filter
        uniq_response uniq_by_baseform
    );
    utf8::is_utf8($param{$_}) and utf8::encode($param{$_}) for keys %param;
    my $uri = URI->new($APIBase);
    $uri->query_form(appid => $self->{appid}, %param);
    my $res = $self->{ua}->get($uri);
    unless ($res->is_success) {
        my $error = 'Request failed: ' . $res->status_line;
        if ($res->content) {
            my ($message) = $res->content =~ m!(.*)!;
            $error .= "\n$message" if defined $message;
        }
        $self->error($error);
        return;
    }
    XML::Simple::XMLin($res->content, GroupTags => { word_list => 'word' });
}

sub error {
    my $self = shift;
    if (@_) {
        $self->{error} = $_[0];
    }
    $self->{error};
}

1;
__END__