JSON qw//;
use Class::Accessor::Lite (
ro => [qw/
api_base
access_key
secret_key
/],
rw => [qw/
client
sign
timestamp
decode_json
croak "require 'access_key' and 'secret_key'.";
}
my $self = bless {
decode_json => 0,
api_base => 'https://api.bitflyer.jp',
%args,
}, $class;
$self-
__ . "/$VERSION",
default_headers => {
'Content-Type' => 'application/json',
'ACCESS-KEY' => $self->access_key,
},
timeout => 15,