Yet Another CPAN Grep

Finance-btce ( B/BE/BENMEYER/Finance-btce-0.1.tar.gz, BENMEYER, 2013; MetaCPAN )

Finance-btce/lib/Finance/btce.pm ( view source; MetaCPAN )

package Finance::btce;

use 5.012004;
use strict;
use warnings;
use JSON;
use LWP::UserAgent;
use Carp qw(croak);
use Digest::SHA qw( hmac_sha512_hex);
use WWW::Mechanize;

require Exporter;

our @ISA

EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(new);

our $VERSION = '0.1';

our $json = JSON->new->allow_nonref;

sub BTCtoUSD
{
	return BtceConversion('btc_usd');
}

sub LTCtoBTC
{
	ret

n' => $hash);
	$mech->post($url, ['method' => 'getInfo', 'nonce' => $nonce]);
	my %apireturn = %{$json->decode($mech->content())};

	return \%apireturn;
}

sub TransHistory
{
	my ($self, $args) = @_;