::VERSION = '1.0.2.0';
use AnyEvent;
use AnyEvent::HTTP;
use URI;
use URI::QueryParam;
use JSON qw(decode_json);
use List::MoreUtils qw(zip);
use URI::Encode::XS qw( uri_encode );
use Moo;
has [qw( s
eaders) = @_;
if ( $headers->{Status} eq '200' ) {
my $data = decode_json($body);
my $series = [
map {
my $res
eaders) = @_;
if ( $headers->{Status} eq '200' ) {
my $data = decode_json($body);
my $shards = {};
for my $res ( @{ $data->{results}->[0]->