|
NAMEBusiness::OnlinePayment::2CheckOut - 2CheckOut backend for Business::OnlinePayment SYNOPSIS use Business::OnlinePayment;
my $tx = new Business::OnlinePayment("2CheckOut");
$tx->content(
login => '124',
amount => '23.00',
order_number => '100100',
first_name => 'Jason',
last_name => 'Kohles',
address => '123 Anystreet',
city => 'Anywhere',
state => 'UT',
zip => '99999',
country => 'USA',
phone => '555-55-55',
email => 'whoever@anywhere.com',
card_number => '4007000000027',
expiration => '09/02',
cvv2 => '123',
);
$tx->test_transaction(1); # test, dont really charge
$tx->submit();
if($tx->is_success()) {
print "Card processed successfully: ".$tx->authorization."\n";
}
else {
print "Card was rejected: ".$tx->error_message."\n";
}
SUPPORTED TRANSACTION TYPESVisa, MasterCard, American Express, DiscoverContent required:
DESCRIPTIONFor detailed information see Business::OnlinePayment. COMPATIBILITYThis module implements Normal Authorization mathod only. See http://www.2checkout.com/cart_specs.htm for details. AUTHORAlexey Khobov, <alex@stork.ru> SEE ALSOperl. Business::OnlinePayment.
|