Yet Another CPAN Grep

WebService-Wedata ( K/KO/KOYACHI/WebService-Wedata-v0.0.4.tar.gz, KOYACHI, 2008; MetaCPAN )

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

package WebService::Wedata;

use warnings;
use strict;
use Carp;
use LWP::UserAgent;
use JSON::XS;
use WebService::Wedata::Database;

use version; our $VERSION = qv('0.0.4');
our $URL_BASE = 'http://w

.json" : '/databases.json';
    $page ||= '';
    my $url = $URL_BASE . $path;
    my $response = $self->{ua}->get($url, page => $page);
    if ($response->is_success) {
        my $data = decode_json

ams(name)

=item Return Value: none

=back

Delte database.


=head1 DEPENDENCIES

LWP::UserAgent
JSON::XS


=head1 AUTHOR

Tsutomu KOYACHI  C<< <rtk2106@gmail.com> >>


=head1 LICENCE AND COPYRIGHT

WebService-Wedata ( K/KO/KOYACHI/WebService-Wedata-v0.0.4.tar.gz, KOYACHI, 2008; MetaCPAN )

WebService-Wedata/lib/WebService/Wedata/Database.pm ( view source; MetaCPAN )

package WebService::Wedata::Database;
use strict;
use warnings;
use Carp;
use JSON::XS;
use WebService::Wedata::Item;
use base qw/Class::Accessor::Fast/;
__PACKAGE__->mk_accessors(qw/ua api_key name d

 .= '/databases/' . $params->{database_name} . '/items.json';
    }
    elsif ($params->{id}){
        $url .= '/items/' . $params->{id} . '.json';
    }
    else {
        croak "specify item_id or d

= $self->ua->get($url, page => $page);
    if ($response->is_success) {
        my $data = decode_json($response->content);
        if ($params->{database_name}) {
            my $result = [];