• NAME
• VERSION
• SYNOPSIS
• DESCRIPTION
• METHODS
• DEPENDENCIES
• EXAMPLES
  • get current XLTC market price in EUR
  • get XLTC account balance
• Q&A
• AUTHOR and COPYRIGHT

NAME

Finance::Bank::Kraken - api.kraken.com connector

VERSION

0.3

SYNOPSIS

 require Finance::Bank::Kraken;
 $api = new Finance::Bank::Kraken;
 $api->key($mykrakenkey);
 $api->secret($mykrakensecret);
 $result = $api->call(Private, $method, [$arg1, $arg2, ..]);

DESCRIPTION

This module allows to connect to the api of the bitcoin market Kraken.

Please see the Kraken API documentation for a catalog of api methods.

METHODS

$api = new Finance::Bank::Kraken

The constructor. Returns a Finance::Bank::Kraken object.

$api->key($key)

Sets or gets the API key.

$api->secret($secret)

Sets the API secret to $secret or returns the API secret base64 decoded.

$result = $api->call(Public, $method)

$result = $api->call(Private, $method)

$result = $api->call(Private, $method, [$param1, $param2, ..])

Calls the Public or Private API method $method (with the given $params, where applicable) and returns either the JSON encoded result string or an error message (code message).

DEPENDENCIES

HTTP::Request

LWP::UserAgent

MIME::Base64

Digest::SHA

EXAMPLES

get current XLTC market price in EUR

 use Finance::Bank::Kraken;
 use JSON;
 
 my $kraken = new Finance::Bank::Kraken;
 my $res = $kraken->call(Public, 'Ticker', ['pair=XLTCZEUR,XXBTZEUR']);
 printf "1 XLTC is %f EUR\n",
         from_json($res)->{'result'}->{'XLTCZEUR'}->{'c'}[0]
         unless $res =~ /^5/;

get XLTC account balance

 use Finance::Bank::Kraken;
 use JSON;
 
 my $kraken = new Finance::Bank::Kraken;
 $kraken->key("mysupersecretkey");
 $kraken->secret("mysupersecretsecret");
 my $res = $kraken->call(Private, 'Balance');
 printf "balance: %f XLTC\n",
        from_json($res)->{'result'}->{'XLTC'} unless $res =~ /^5/;

Q&A

Why does call return a 404?

Probably you misspelled the method. Please check the API documentation and keep in mind the methods are case sensitive.

Why does call return a 500?

Maybe there's a problem with the ssl chain of trust. Either install Mozilla::CA or set (one of) the following environment variables PERL_LWP_SSL_CA_FILE, HTTPS_CA_FILE, PERL_LWP_SSL_CA_PATH, HTTPS_CA_DIR. See LWP::UserAgent for details.

AUTHOR and COPYRIGHT

Copyright Philippe Kueck <projects at unixadm dot org>