acklight;
use Catmandu::Sane;
use Catmandu::Util qw(:is);
use REST::Client;
use URI::Escape;
use JSON::MaybeXS;
use Moo;
use feature 'state';
with 'Catmandu::Importer';
has url => (is => 'ro',
{ Accept => 'application/json' });
return undef unless ($response->responseCode eq '200');
my $json = $response->responseContent;
my $perl = decode_json($json);
$perl->{response