NAME
Business::OnlinePayment::Mock - A backend for mocking fake results for test cards
VERSION
version 0.008
SYNOPSIS
# During initilaziation of your scripts, setup the responses you want from each aciton/card number
$mock->set_mock_response({
action => 'Credit',
card_number => '4111111111111111',
error_message => 'Approved',
is_success => 1,
error_code => 0,
order_number => 1,
});
# Then later once you are ready to use the mock module
my $transaction = new Business::OnlinePayment('Mock');
$transaction->content(
type => 'Visa',
amount => '49.95',
card_number => '1234123412341238',
expiration => '06/15',
name => 'John Q Doe',
);
eval { $transaction->submit(); };
if ( $@ ) {
print "$processor error: $@\n";
} else {
if ( $transaction->is_success() ) {
print "Card processed successfully: ". $transaction->authorization()."\n";
} else {
print "Card was rejected: ". $transaction->error_message(). "\n";
}
}
DESCRIPTION
Ability to get any Business::OnlinePayment result you want using this mock driver.
METHODS
set_default_mock
Sets the default mock for the Business::OnlinePayment object
$mock->set_default_mock({
error_message => 'Declined',
is_success => 0,
error_code => 100,
order_number => 1,
});
set_mock_response
Sets the mock response the Business::OnlinePayment object
$mock->set_mock_response({
action => 'Credit',
card_number => '4111111111111111',
error_message => 'Approved',
is_success => 1,
error_code => 0,
order_number => 1,
});
test_transaction
Get/set the server used for processing transactions. Because we are mocked, this method effectively does nothing. Default: Live
#Live
$self->test_transaction(0);
#Certification
$self->test_transaction(1);
submit
Submit the content to the mocked API
$self->content(action => 'Credit' ...)
$self->submit;
NAME
Business::OnlinePayment::Mock - A backend for mocking fake results in the Business::OnlinePayment environment
AUTHOR
Jason Terry <oaxlin@gmail.com>
COPYRIGHT AND LICENSE
This software is copyright (c) 2020 by Jason Terry.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.