Yet Another CPAN Grep

Net-DiffBot ( B/BS/BSM/Net-DiffBot-0.02.tar.gz, BSM, 2012; MetaCPAN )

Net-DiffBot/lib/Net/DiffBot.pm ( view source; MetaCPAN )

package Net::DiffBot;

use 5.006;
use strict;
use warnings;
use LWP::UserAgent;
use JSON::XS;
use URI::Escape qw(uri_escape);
use HTTP::Request;

my $endpoint_url = 'http://www.diffbot.com/api/article

  my $data;
        eval {
            $data = decode_json($response->content);
        };
        if ($@) {
            warn "ERROR decoding JSON response";
            return undef;
        }

  my $data;
        eval {
            $data = decode_json($response->content);
        };
        if ($@) {
            warn "ERROR decoding JSON response";
            return undef;
        }