Business::OnlinePayment::OCV - OCV backend for Business::OnlinePayment
use Business::OnlinePayment;
my $tx = new Business::OnlinePayment("OCV");
$tx->content(
type => 'CC',
login => 'test', #ClientID
action => 'Authorization Only',
description => 'Business::OnlinePayment test',
amount => '49.95',
invoice_number => '100100',
name => 'Tofu Beast',
card_number => '4007000000027',
expiration => '09/02',
);
$tx->submit();
if($tx->is_success()) {
print "Card processed successfully: ".$tx->authorization."\n";
} else {
print "Card was rejected: ".$tx->error_message."\n";
}
For detailed information see Business::OnlinePayment.
This module is a wrapper around Business::OCV written by Benjamin Low
<b.d.low@unsw.edu.au>. Eventually it will be self-contained. See
<INSERTURLHERE> for details.
Ivan Kohler <ivan-ocv@420.am>
perl(1). Business::OnlinePayment, Business::OCV.