1 BEGIN { $| = 1; print "1..1\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 => '08/2004',
23 referer => 'http://cleanwhisker.420.am/',
27 if($tx->is_success()) {
30 # warn '***** '. $tx->error_message. " *****\n";