1 BEGIN { $| = 1; print "1..1\n"; }
3 use Business::OnlinePayment;
5 my $tx = new Business::OnlinePayment("Cardcom", terminalnumber => 1000);
7 #$Business::OnlinePayment::Cardcom::DEBUG = 2;
13 action => 'Normal Authorization',
16 card_number => '4580000000000000',
17 expiration => '01/14',
19 $tx->test_transaction(1); # test, dont really charge
22 if($tx->is_success()) {
25 warn $tx->server_response."\n";
26 warn $tx->error_message. "\n";