Yet Another CPAN Grep

WebService-OkiLab-ExtractPlace ( T/TS/TSUKAMOTO/WebService-OkiLab-ExtractPlace-0.02.tar.gz, TSUKAMOTO, 2007; MetaCPAN )

WebService-OkiLab-ExtractPlace/lib/WebService/OkiLab/ExtractPlace.pm ( view source; MetaCPAN )

arp;

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

', $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

item Can't parse response content.

It occurs when the response content is not able to parse as JSON data.
Please confirm the content of the HTTP::Request object by res().

=back

=head1 CONFIG