Yet Another CPAN Grep

Finance-Crypto-Exchange-Kraken ( W/WA/WATERKIP/Finance-Crypto-Exchange-Kraken-0.004.tar.gz, WATERKIP, 2025; MetaCPAN )

Finance-Crypto-Exchange-Kraken/bin/kraken-cli.pl ( view source; MetaCPAN )


use File::Spec::Functions qw(catfile);
use File::Basename;
use YAML::Tiny;
use Data::Dumper;
use JSON;

my @opts = qw(
    help
    create-config
    list
    command=s@
);
my %opts = (
    config =>

ub _exec_kraken {
    my $command = shift;

    if ($kraken->can($command)) {
        print JSON::encode_json($kraken->$command), $/;
        return;
    }
    die sprintf(
        "Unable to execute

Finance-Crypto-Exchange-Kraken ( W/WA/WATERKIP/Finance-Crypto-Exchange-Kraken-0.004.tar.gz, WATERKIP, 2025; MetaCPAN )

Finance-Crypto-Exchange-Kraken/lib/Finance/Crypto/Exchange/Kraken.pm ( view source; MetaCPAN )

e Moose;
use namespace::autoclean;
use LWP::UserAgent;
use MooseX::Types::URI qw(Uri);
use JSON qw(decode_json);
use Try::Tiny;
use MIME::Base64 3.11 qw(decode_base64url);
use Time::HiRes qw(gettimeof

r(Accept => 'application/json');

    my $response = $self->ua->request($req);

    if ($response->is_success) {
        my $data;
        try {
            $data = decode_json($response->decoded_cont

ent);
        }
        catch {
            die "Unable to decode JSON from Kraken!", $/;
        };

        if (@{$data->{error}}) {
            if (@{$data->{error}} > 1) {
                die "Mul