Yet Another CPAN Grep

Webservice-Diffbot ( G/GA/GARCER/Webservice-Diffbot-0.003.tar.gz, GARCER, 2014; MetaCPAN )

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

{
  $WebService::Diffbot::VERSION = '0.003';
}

use Moo;
use namespace::clean;

use JSON qw( decode_json encode_json );
use LWP::UserAgent;

has api_url => ( is => 'ro', default => sub { 'http://api.d

serAgent->new->get($uri);

    die $response if !$response->is_success;

    my $content = decode_json $response->decoded_content;

    die $content->{error} if $content->{error};
    print STDERR $co