8 use Business::OnlinePayment;
10 my $merchant_id = $ENV{BAMBORA_MERCHANT_ID};
11 my $api_key = $ENV{BAMBORA_API_KEY};
14 skip 'Missing env vars BAMBORA_MERCHANT_ID and BAMBORA_API_KEY', 56
15 unless $merchant_id && $api_key;
20 login => $merchant_id,
23 action => 'Authorization Only',
30 my ( $tr, $response ) = make_api_request( \%content );
38 message => 'Approved',
40 payment_method => 'CC',
72 action => 'Post Authorization',
73 order_number => $tr->order_number,
74 amount => '8.99', # $1 Less than pre-auth
77 my ( $tr_pa, $response_pa ) = make_api_request( \%content_pa );
84 message => 'Approved',
89 authorizing_merchant_id
117 login => $content{login},
118 password => $content{password},
120 order_number => $tr_pa->order_number,
124 my ( $tr_void, $response_void ) = make_api_request( \%content_void );
131 message => 'Approved',
136 authorizing_merchant_id