Business::OnlinePayment::PayflowPro 0.06

Business::OnlinePayment::PayflowPro is a Payflow Pro backend for Business::OnlinePayment.

SYNOPSIS

use Business::OnlinePayment;

my $tx = new Business::OnlinePayment(
'PayflowPro',
'vendor' => 'your_vendor',
'partner' => 'your_partner',
'cert_path' => '/path/to/your/certificate/file/', # just the dir
);

# See the module documentation for details of content()
$tx->content(
type => 'VISA',
action => 'Normal Authorization',
description => 'Business::OnlinePayment::PayflowPro test',
amount => '49.95',
invoice_number => '100100',
customer_id => 'jsk',
name => 'Jason Kohles',
address => '123 Anystreet',
city => 'Anywhere',
state => 'GA',
zip => '30004',
email => 'ivan-payflowpro@420.am',
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 code: ", $tx->cvv2_code, "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