File Coverage

blib/lib/WebService/OkiLab/ExtractPlace.pm

Criterion	Covered	Total	%
statement	18	60	30.0
branch	0	18	0.0
condition	0	6	0.0
subroutine	6	13	46.1
pod	7	7	100.0
total	31	104	29.8

package WebService::OkiLab::ExtractPlace;

use warnings;
use strict;
use Carp;

our $VERSION = 0.02;

use HTTP::Request::Common qw(GET POST);
use LWP::UserAgent;
use JSON;

sub new {
	my $class = shift;
	my $self  = bless {}, $class;
	$self->url('http://okilab.jp/project/location/api/v1/extract_place/');
	my $ua = LWP::UserAgent->new();
	$ua->env_proxy();
	$self->ua($ua);
	return $self;
}

sub param {
	my $self = shift;
	if (@_) {
		my $key  = shift;
		$self->{"_$key"} = shift if (@_);
		return $self->{"_$key"};
	} else {
		my @keys = sort map { substr($_, 1) } grep { /^_/ } keys(%{$self});
		return @keys;
	}
}

sub ua  { my $self = shift; return $self->param('ua',  @_); }
sub url { my $self = shift; return $self->param('url', @_); }
sub res { my $self = shift; return $self->param('res', @_); }
sub req { my $self = shift; return $self->param('req', @_); }

sub extract {
	my $self = shift;
	my $text = shift;
	my $ua   = $self->ua();
	my $url  = URI->new($self->url());
	return $self->error("Can't load LWP::UserAgent object.") if (not UNIVERSAL::isa($ua, 'LWP::UserAgent'));
	return $self->error("Web service url is invalid. ($url)") if ($url->scheme ne 'http');
	return $self->error("Text is empty.") if ($text !~ /\S/);
	# create HTTP::Response
	my $method = uc($self->param('method')) || 'POST';
	$url->query_form('text' => $text) if ($method eq 'GET');
	my $req = ($method eq 'GET') ? GET($url) : POST($url, ['text' => $text]);
	# do reqeust
	$self->req($req);
	my $res = $ua->request($req);
	$self->res($res) || return $self->error('Response is empty.');
	$res->is_success || return $self->error(sprintf('Request failed. (%s)', $res->status_line));
	# parse result
	my $json = $res->content() || return $self->error('Response content is empty.');
	my $result = jsonToObj($json) || return $self->error("Can't parse response content.");
	return $result;
}

1;
__END__