view release on metacpan or  search on metacpan

lib/Finance/BitFlip.pm  view on Meta::CPAN

sub get_request {
    my ($self, $method_args) = @_;

    log_trace("API GET request: %s(%s)", $method_args);

    my $url = "$url_prefix$method_args";
    my $res = $self->{_http}->get($url);
    die "Can't retrieve $url: $res->{status} - $res->{reason}"
        unless $res->{success};
    my $decoded;
    eval { $decoded = $self->{_json}->decode($res->{content}) };
    die "Can't decode response from $url: $@" if $@;

    log_trace("API GET response: %s", $decoded);

    die "API response not an array: $decoded" unless ref $decoded eq 'ARRAY';
    die "API response is not success: $decoded->[0] - $decoded->[1]" if defined $decoded->[0];
    $decoded;
}

sub post_request {
    my ($self, $method, %args) = @_;

    $self->{key} or die "Please supply API key in new()";
    $self->{secret} or die "Please supply API secret in new()";

    my $time = time();
    my $form = {

lib/Finance/BitFlip.pm  view on Meta::CPAN

            "Content-Length" => length($encoded_form),
            "Content-Type" => "application/json",
        },
        content => $encoded_form,
    };

    my $url = "$url_prefix$method";
    my $res = $self->{_http}->post($url, $options);
    die "Can't retrieve $url: $res->{status} - $res->{reason}"
        unless $res->{success};
    my $decoded;
    eval { $decoded = $self->{_json}->decode($res->{content}) };
    die "Can't decode response from $url: $@" if $@;

    log_trace("API POST response: %s", $decoded);

    die "API response not an array: $decoded" unless ref $decoded eq 'ARRAY';
    die "API response is not success: $decoded->[0] - $decoded->[1]" if defined $decoded->[0];
    $decoded;
}

1;
# ABSTRACT: Trade with bitflip.li using Perl

__END__

=pod

=encoding UTF-8