view release on metacpan or  search on metacpan

lib/Crypto/Exchange/Binance/Spot/API.pm  view on Meta::CPAN

        path   => '/api/v3/account',
        events => {
            keys => [ qw( timestamp signature ) ],
        },
    },
    response => {
        key  => 'balances',
        row  => {
            coin      => 'asset',
            available => 'free',
            in_order  => 'locked',
        },
        row_filter => sub {
            my ($self, $row) = @_;
            if ($row->{available} == 0 && $row->{in_order} == 0) {
                return 'next';
            }
        },
        array2hash => 'coin',
        post_row => sub {
            my ($self, $row, $rows) = @_;

t/002-balance.t  view on Meta::CPAN

{package Binance;
    use Moo;
    extends 'Crypto::Exchange::Binance::Spot::API';
    sub send {}
    sub json_response {{
        balances => [
            {
                asset => 'XRP',
                free  => 1234,
                locked => 0,
            },
            {
                asset => 'GBP',
                free  => 888,
                locked => 999,
            },
            {
                asset => 'LDXRP',
                free  => 4567,
                locked => 0,
            },
            {
                asset => 'LDGBP',
                free  => 1888,
                locked => 0,
            },
        ],
    }}
}

my $binance = Binance->new;

my $data = $binance->balances;

is_deeply $data, {