00;
use strict;
use warnings;
use parent qw/Exporter/;
use Carp;
use HTTP::Tiny;
use JSON::MaybeXS qw/decode_json/;
use Scalar::Util qw/looks_like_number/;
use WebService::TDWTF::Article;
my @subs =nse = $ht->get($url);
croak $response->{reason} unless $response->{success};
$response = decode_json $response->{content};
croak $response->{Status} if ref $response eq 'HASH' && !exists $response-L<WebService::TDWTF>. Each such object is guaranteed to
be a blessed hashref corresponding to the JSON returned by the TDWTF
API (possibly with some extra keys), so the data inside can be
obtained by