use vars qw($VERSION $DEBUG @ISA $me);
@ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '2.02';
+$VERSION = '2.03_01';
$DEBUG = 0;
$me='Business::OnlinePayment::PaymenTech';
=head1 SYNOPSIS
-$trans = new Business::OnlinePayment('PaymenTech');
-$trans->content(
- login => "login",
- password => "password",
- merchant_id => "000111222333",
- terminal_id => "001",
- type => "CC",
- card_number => "5500000000000004",
- expiration => "0211",
- address => "123 Anystreet",
- city => "Sacramento",
- zip => "95824",
- action => "Normal Authorization",
- amount => "24.99",
-
-);
-
-$trans->submit;
-if($trans->is_approved) {
- print "Approved: ".$trans->authorization;
-
-} else {
- print "Failed: ".$trans->error_message;
-
-}
+ $trans = new Business::OnlinePayment('PaymenTech',
+ merchant_id => "000111222333",
+ terminal_id => "001",
+ currency => "USD", # CAD, MXN
+ );
+
+ $trans->content(
+ login => "login",
+ password => "password",
+ type => "CC",
+ card_number => "5500000000000004",
+ expiration => "0211",
+ address => "123 Anystreet",
+ city => "Sacramento",
+ zip => "95824",
+ action => "Normal Authorization",
+ amount => "24.99",
+ );
+
+ $trans->submit;
+ if($trans->is_approved) {
+ print "Approved: ".$trans->authorization;
+ } else {
+ print "Failed: ".$trans->error_message;
+ }
=head1 NOTES