Business::OnlinePayment::TransFirsteLink 0.04

Business::OnlinePayment::TransFirsteLink is a Transfirst eLink backend for Business::OnlinePayment

SYNOPSIS

use Business::OnlinePayment;

my $tx = new Business::OnlinePayment(
'TransFirsteLink',
'merchantcustservnum' => "8005551212",
);

# See the module documentation for details of content()
$tx->content(
type => 'CC',
action => 'Normal Authorization',
description => 'Business::OnlinePayment::TransFirsteLink test',
amount => '49.95',
invoice_number => '100100',
customer_id => 'jef',
name => 'Jeff Finucane',
address => '123 Anystreet',
city => 'Anywhere',
state => 'GA',
zip => '30004',
email => 'transfirst@weasellips.com',
card_number => '4111111111111111',
expiration => '12/09',
cvv2 => '123',
order_number => 'string',
);

$tx->submit();

if ( $tx->is_success() ) {
print(
"Card processed successfully: ", $tx->authorization, "n",
"order number: ", $tx->order_number, "n",
"CVV2 response: ", $tx->cvv2_response, "n",
"AVS code: ", $tx->avs_code, "n",
);
}
else {
my $info = "";
$info = " (CVV2 mismatch)" if ( $tx->result_code == 114 );

print(
"Card was rejected: ", $tx->error_message, $info, "n",
"order number: ", $tx->order_number, "n",
);
}

Product's homepage

Requirements:

· Perl