From f1d2acf660099ccb14f472a54aea4659f4544c17 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 16 Aug 2011 01:34:27 +0000
Subject: [PATCH] pod

---
 Cardcom.pm | 15 +++++++--------
 Changes    |  4 ++++
 2 files changed, 11 insertions(+), 8 deletions(-)

diff --git a/Cardcom.pm b/Cardcom.pm
index 3648318..20eff05 100644
--- a/Cardcom.pm
+++ b/Cardcom.pm
@@ -5,11 +5,11 @@ use Carp;
 use Tie::IxHash;
 use Business::OnlinePayment 3;
 use Business::OnlinePayment::HTTPS 0.03;
-use Data::Dumper;
+#use Data::Dumper;
 use vars qw($VERSION $DEBUG @ISA);
 
 @ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.01';
+$VERSION = '0.02';
 $DEBUG = 0;
 
 sub set_defaults {
@@ -27,7 +27,7 @@ sub set_defaults {
 sub submit {
     my($self) = @_;
 
-    warn Dumper($self) if $DEBUG > 1;
+    #warn Dumper($self) if $DEBUG > 1;
 
     $self->remap_fields(
         card_number => 'cardnumber',
@@ -153,12 +153,11 @@ Business::OnlinePayment::Cardcom - Cardcom backend module for Business::OnlinePa
   # One step transaction, the simple case.
   ####
 
-  my $tx = new Business::OnlinePayment("Cardcom");
+  my $tx = new Business::OnlinePayment("Cardcom", 'TerminalNumber'=>1234 );
   $tx->content(
       type           => 'CC',
       login          => 'Cardcom Username',
       password       => 'Cardcom Password',
-      terminalnumber => 'Cardcom Terminal Number',
       action         => 'Normal Authorization',
       amount         => '49.95',
       card_number    => '4005550000000019',
@@ -177,7 +176,7 @@ Business::OnlinePayment::Cardcom - Cardcom backend module for Business::OnlinePa
 
 =head2 CC
 
-Content required: type, login, password, action, amount, card_number, expiration, terminalnumber.
+Content required: type, login, password, action, amount, card_number, expiration.
 
 =head1 PREREQUISITES
 
@@ -189,9 +188,9 @@ For detailed information see L<Business::OnlinePayment>.
 
 =head1 AUTHOR
 
-Erik Levinson <levinse@freeside.biz>
+Original Author: Erik Levinson
 
-=head1 SEE ALSO
+Current Maintainer: Ivan Kohler C<< <ivan-cardcom@freeside.biz> >>
 
 perl(1). L<Business::OnlinePayment>.
 
diff --git a/Changes b/Changes
index d1493f4..d13c556 100644
--- a/Changes
+++ b/Changes
@@ -1,4 +1,8 @@
 Revision history for Perl extension Business::OnlinePayment::Cardcom
 
+0.02  Mon Aug 15 18:32:59 PDT 2011
+        - POD updates (maintainer, clarify terminal number usage in example)
+        - CPAN upload
+
 0.01  Wed Jun  1 01:24:40 EDT 2011
 	- original version
-- 
2.11.0