batman.pl

my $ua = Mojo::UserAgent->new();

# Add completely non-standard Authorization: HTTP header to each request
$ua->on(start => sub {
  my ($ua, $tx) = @_;
  $tx->req->headers->header('Authorization' => $auth_header);

  # Print (naive) curl output if desired
  if ($curl_debug) {
    my $h = $tx->req->headers->to_hash;
    my @curl = ('curl');

    for my $k (keys %$h) {
      # Skip printing any superflous headers
      next if $k =~ /User-Agent/i;
      next if $k =~ /Accept-Encoding/i;
      push @curl, "-H" => qq("$k: $h->{$k}");
    }

    if (my $body = $tx->req->body) {
      $body =~ s!\n!\\n!g;
      push @curl, "-d" => qq("$body");
    }
    say join ' ', @curl, $tx->req->url->to_abs;
  }
});


sub Query {
  my %json = @_;
  my $tx = $ua->post($url => json => \%json);
  if ($tx->res->json->{error}) {
    # Ran into some error on the remote side
    print "API returned error:\n";
    print $tx->res->json->{error}{message}, "\n";
    exit 0;
  }
  return($tx);
}

1;