W::API::Bitfinex::Positions;
use WWW::API::Bitfinex::Margin;
use WWW::API::Bitfinex::Wallet;
use JSON::XS;
use Digest::SHA 'hmac_sha384_hex';
use MIME::Base64 'encode_base64';
use Data::Dumper;
has
= $args->{$_} } keys %{$args};
print Dumper encode_json($params) if $self->debug;
my $payload = encode_base64(encode_json($params), '');
my $sha384 = hmac_sha384_hex($payload,$
->res->json;
}
=head2 Public call
=cut
sub Public {
my $self = shift;
my $url = shift;
$url = $self->baseurl.'/'.$self->apiver.'/'.$url;
$self->UA->get($url)->res->json;
}
su