File Coverage

blib/lib/Business/Bitcoin.pm

Criterion	Covered	Total	%
statement	51	53	96.2
branch	17	30	56.6
condition	7	10	70.0
subroutine	11	11	100.0
pod	3	3	100.0
total	89	107	83.1

# -*-cperl-*-
#
# Business::Bitcoin - Easy and secure way to accept Bitcoin payments online
# Copyright (c) Ashish Gulhati
#
# $Id: lib/Business/Bitcoin.pm v1.051 Tue Oct 16 22:26:58 PDT 2018 $

use strict;

package Business::Bitcoin;

use 5.010000;
use warnings;
use strict;

use DBI;
use Business::Bitcoin::Request;

use vars qw( $VERSION $AUTOLOAD );

our ( $VERSION ) = '$Revision: 1.051 $' =~ /\s+([\d\.]+)/;

sub new {
  my $class = shift;
  my %arg = @_;
  return undef unless $arg{XPUB};
  return undef if $arg{StartIndex} and $arg{StartIndex} =~ /\D/;
  unlink $arg{DB} if $arg{Clobber} and $arg{DB} ne ':memory:';
  my $db = DBI->connect("dbi:SQLite:dbname=$arg{DB}", undef, undef, {AutoCommit => 1});
  my @tables = $db->tables('%','%','requests','TABLE');
  unless ($tables[0]) {
    if ($arg{Create}) {
      return undef unless $db->do('CREATE TABLE requests (
		                                         reqid INTEGER PRIMARY KEY AUTOINCREMENT,
		                                         amount int NOT NULL,
                                                         address text,
                                                         reference text UNIQUE,
		                                         created int NOT NULL,
                                                         processed int,
                                                         status text
		                                        );');
      return undef unless $db->do('CREATE INDEX idx_requests_address ON requests(address);');
      return undef unless $db->do('CREATE INDEX idx_requests_reference ON requests(reference);');
      my $startindex = $arg{StartIndex} || 0;
      $startindex--;
      return unless $db->do("INSERT INTO SQLITE_SEQUENCE values ('requests',$startindex);");
    }
    else {
      return undef;
    }
  }
  bless { XPUB => $arg{XPUB}, DB => $db, PATH => $arg{Path} || 'penultimate' }, $class;
}

sub request {                      # Create a Bitcoin payment request
  my ($self, %arg) = @_;
  return undef if $arg{Amount} !~ /^\d+$/;

  # Workaround for SQLite not starting sequence from 0 when asked to in new()
  my $startindex = $self->db->selectcol_arrayref("SELECT seq from SQLITE_SEQUENCE WHERE name='requests';")->[0];
  my %forcezero; %forcezero = ( StartIndex => 0 ) if $startindex == -1;

  my $req = new Business::Bitcoin::Request (_BizBTC => $self, %arg, %forcezero);
}

sub findreq {                      # Retrieve a previously created request
  my ($self, %arg) = @_;
  my $req = _find Business::Bitcoin::Request (_BizBTC => $self, %arg);
}

sub AUTOLOAD {
  my $self = shift; (my $auto = $AUTOLOAD) =~ s/.*:://;
  return if $auto eq 'DESTROY';
  if ($auto =~ /^(xpub|path|db)$/x) {
    $self->{"\U$auto"} = shift if (defined $_[0]);
  }
  if ($auto =~ /^(xpub|path|db|version)$/x) {
    return $self->{"\U$auto"};
  }
  else {
    die "Could not AUTOLOAD method $auto.";
  }
}

1; # End of Business::Bitcoin

__END__