Dummy.pm

   1 package Business::OnlinePayment::Dummy;
   2
   3 use strict;
   4 use Carp;
   5 use Business::OnlinePayment;
   6 use vars qw($VERSION @ISA $me);
   7
   8 @ISA = qw(Business::OnlinePayment);
   9 $VERSION = '0.01';
  10 $me = 'Business::OnlinePayment::Dummy';
  11
  12 sub submit {
  13     my($self) = @_;
  14     $self->authorization(time . int(rand(10000)));
  15     $self->is_success(1);
  16 }
  17
  18 1;
  19
  20 __END__
  21
  22 =head1 NAME
  23
  24 Business::OnlinePayment::Dummy - Dummy for Business::OnlinePayment
  25
  26 =head1 SYNOPSIS
  27
  28 Submit always returns success.  Makes no external connections.
  29
  30 =head1 COPYRIGHT & LICENSE
  31
  32 Copyright 2015 Freeside Internet Services, Inc.
  33
  34 This program is free software; you can redistribute it and/or modify it
  35 under the same terms as Perl itself.
  36
  37 =head1 SEE ALSO
  38
  39 perl(1). L<Business::OnlinePayment>.
  40
  41 =cut
  42