Yet Another CPAN Grep

Catalyst-Model-Bitcoin ( P/PK/PKAROUKIN/Catalyst-Model-Bitcoin-0.02.tar.gz, PKAROUKIN, 2010; MetaCPAN )

Catalyst-Model-Bitcoin/lib/Catalyst/Model/Bitcoin.pm ( view source; MetaCPAN )

Finance::Bitcoin;
use Carp qw( croak ); 

extends 'Catalyst::Model';

our $VERSION = '0.02';

has jsonrpc_uri => (is => 'rw');
has api => (is => 'rw');
has wallet => (is => 'rw');

sub new {
  my $sel

 $address, $amount) = @_;

  # This is required to force $amount to be json-coded as real type,
  # not string, in following JSON-RPC request
  $amount += 0;
  
  return $self->wallet->pay($address, $

d1 NAME

Catalyst::Model::Bitcoin - Catalyst model class that interfaces 
with Bitcoin Server via JSON RPC

=head1 SYNOPSIS

Use the helper to add a Bitcoin model to your application:

   ./script/mya