1 BEGIN { $| = 1; print "1..2\n"; }
3 use Business::OnlinePayment;
5 my $tx = new Business::OnlinePayment("BankOfAmerica", 'merchant_id' => 'YOURMERCHANTID' );
8 action => 'Authorization Only',
9 description => 'Business::OnlinePayment::BankOfAmerica visa test',
11 invoice_number => '100',
15 address => '123 Anystreet',
20 email => 'ivan-bofa@420.am',
21 card_number => '4007000000027',
22 expiration => '12/2002',
23 referer => 'http://cleanwhisker.420.am/',
27 if($tx->is_success()) {
29 $auth = $tx->authorization;
30 $ordernum = $tx->order_number;
31 #warn "********* $auth ***********\n";
32 #warn "********* $ordernum ***********\n";
35 # warn '***** '. $tx->error_message. " *****\n";
40 my $capture = new Business::OnlinePayment("BankOfAmerica", 'merchant_id' => 'YOURMERCHANTID' );
43 action => 'Post Authorization',
45 password => 'YOURPASSWORD',
46 order_number => $ordernum,
48 authorization => $auth,
49 description => 'Business::OnlinePayment::BankOfAmerica visa test',
54 if($capture->is_success()) {
57 # warn '***** '. $capture->error_message. " *****\n";