NAME
Business::OnlinePayment::PaperlessTrans - Interface to Paperless Transaction Corporation BackOffice API
VERSION
version 0.001006
SYNOPSIS
use
Try::Tiny;
my
$tx
= Business::OnlinePayment->new(
'PaperlessTrans'
);
$tx
->test_transaction(1);
$tx
->content(
login
=>
'TerminalID'
,
password
=>
'TerminalKey'
,
debug
=>
'1'
,
# 0, 1, 2
type
=>
'ECHECK'
,
action
=>
'Normal Authorization'
,
check_number
=>
'132'
,
amount
=> 1.32,
currency
=>
'USD'
,
routing_code
=> 111111118,
account_name
=>
'Caleb Cushing'
,,
account_number
=> 12121214,
name
=>
'Caleb Cushing'
,
address
=>
'400 E. Royal Lane #201'
,
city
=>
'Irving'
,
state
=>
'TX'
,
zip
=>
'75039-2291'
,
country
=>
'US'
,
);
try
{
$tx
->submit;
}
catch
{
# log errors
};
if
(
$tx
->is_success ) {
# do stuff with
$tx
->order_number;
$tx
->authorization;
}
else
{
# log
$tx
->error_message;
}
# start all over again credit cards
$tx
->content(
login
=>
'TerminalID'
,
password
=>
'TerminalKey'
,
debug
=>
'1'
,
# 0, 1, 2
type
=>
'CC'
,
action
=>
'Authorization Only'
,
amount
=> 1.00,
currency
=>
'USD'
,
name
=>
'Caleb Cushing'
,
card_number
=>
'5454545454545454'
,
expiration
=>
'1215'
,
cvv2
=>
'111'
,
);
## ...
SEE ALSO
AUTHOR
Caleb Cushing <xenoterracide@gmail.com>
COPYRIGHT AND LICENSE
This software is Copyright (c) 2013 by Caleb Cushing.
This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)