Yet Another CPAN Grep

WebService-Lingr ( M/MI/MIYAGAWA/WebService-Lingr-0.02.tar.gz, MIYAGAWA, 2007; MetaCPAN )

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

0.02';

use Carp;
use Data::Visitor::Callback;
use HTTP::Request::Common;
use LWP::UserAgent;
use JSON::Syck;
use URI;

our $APIBase = "http://www.lingr.com/api";

# scraped from Lingr wiki page
our $

arp "Don't know method '$method'. Defaults to GET";
        "GET";
    };

    $args->{format} = 'json';

    my $req;
    if ($req_method eq 'GET') {
        $uri->query_form(%$args);
        $req =

->is_success or croak "Request failed: " . $res->status_line;

    local $JSON::Syck::ImplicitUnicode = 1;
    my $data = JSON::Syck::Load($res->content);
    $data->{status} eq 'ok' or croak "Respons