package Business::OnlinePayment::Dummy;

use strict;
use Carp;
use Business::OnlinePayment;
use vars qw($VERSION @ISA $me);

@ISA = qw(Business::OnlinePayment);
$VERSION = '0.01';
$me = 'Business::OnlinePayment::Dummy';

sub submit {
    my($self) = @_;
    $self->authorization(time . int(rand(10000)));
    $self->is_success(1);
}

1;

__END__

=head1 NAME

Business::OnlinePayment::Dummy - Dummy for Business::OnlinePayment

=head1 SYNOPSIS

Submit always returns success.  Makes no external connections.

=head1 COPYRIGHT & LICENSE

Copyright 2015 Freeside Internet Services, Inc.

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=head1 SEE ALSO

perl(1). L<Business::OnlinePayment>.

=cut

