doc: in synopsis example, move merchant_id/terminal_id from content

[Business-OnlinePayment-PaymenTech.git] / lib / Business / OnlinePayment / PaymenTech.pm

diff --git a/lib/Business/OnlinePayment/PaymenTech.pm b/lib/Business/OnlinePayment/PaymenTech.pm
index 82b50d3..8ce9a1e 100644 (file)
--- a/lib/Business/OnlinePayment/PaymenTech.pm
+++ b/lib/Business/OnlinePayment/PaymenTech.pm
@@ -8,7 +8,7 @@ use Tie::IxHash;
 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';
 
@@ -285,31 +285,31 @@ Business::OnlinePayment::PaymenTech - Chase Paymentech backend for Business::Onl
 
 =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