Binance-API
view release on metacpan or search on metacpan
lib/Binance/API.pm view on Meta::CPAN
"isWorking": true
}
]
=cut
sub all_orders {
my ($self, %params) = @_;
unless ($params{'symbol'}) {
$self->log->error('Parameter "symbol" required');
Binance::Exception::Parameter::Required->throw(
error => 'Parameter "symbol" required',
parameters => ['symbol']
);
}
my $query = {
symbol => $params{'symbol'},
orderId => $params{'orderId'},
startTime => $params{'startTime'},
endTime => $params{'endTime'},
limit => $params{'limit'},
recvWindow => $params{'recvWindow'},
};
return $self->ua->get('/api/v3/allOrders',
{ signed => 1, query => $query }
);
}
=head2 account
$api->account();
Get current account information.
B<PARAMETERS>
=over
=item recvWindow
[OPTIONAL]
=back
B<RETURNS>
A HASHref
{
"makerCommission": 15,
"takerCommission": 15,
"buyerCommission": 0,
"sellerCommission": 0,
"canTrade": true,
"canWithdraw": true,
"canDeposit": true,
"updateTime": 123456789,
"balances": [
{
"asset": "BTC",
"free": "4723846.89208129",
"locked": "0.00000000"
},
{
"asset": "LTC",
"free": "4763368.68006011",
"locked": "0.00000000"
}
]
}
=cut
sub account {
my ($self, %params) = @_;
my $query = {
recvWindow => $params{'recvWindow'},
};
return $self->ua->get('/api/v3/account', { signed => 1, query => $query } );
}
=head2 my_trades
$api->my_trades();
Get trades for a specific account and symbol.
B<PARAMETERS>
=over
=item symbol
[REQUIRED] Symbol, for example C<ETHBTC>.
=item limit
[OPTIONAL] Default 500; max 500.
=item fromId
[OPTIONAL] TradeId to fetch from. Default gets most recent
trades.
=item recvWindow
[OPTIONAL]
=back
B<RETURNS>
An ARRAYref of HASHrefs
[
{
"id": 28457,
"orderId": 100234,
"price": "4.00000100",
"qty": "12.00000000",
"commission": "10.10000000",
"commissionAsset": "BNB",
"time": 1499865549590,
"isBuyer": true,
"isMaker": false,
"isBestMatch": true
}
( run in 0.685 second using v1.01-cache-2.11-cpan-39bf76dae61 )