![]() |
![]()
| ![]() |
![]()
NAMEBusiness::OnlinePayment::2CheckOut - 2CheckOut backend for Business::OnlinePayment SYNOPSISuse 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.
|