diff options
| author | ivan <ivan> | 2002-02-26 08:24:00 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-02-26 08:24:00 +0000 |
| commit | 9f2d3d1b12812e494ef502ccb4bd9f25b8d76b40 (patch) | |
| tree | 20d08689d698e60e151a89ca3b9e8e70cd23d1f9 /LinkPoint.pm | |
| parent | 563e5cf00aa4a7eb8697ce831e3e62cbb117d8b9 (diff) | |
be less verbose by default
Diffstat (limited to 'LinkPoint.pm')
| -rw-r--r-- | LinkPoint.pm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/LinkPoint.pm b/LinkPoint.pm index 9a77236..88a8ac2 100644 --- a/LinkPoint.pm +++ b/LinkPoint.pm @@ -1,6 +1,6 @@ package Business::OnlinePayment::LinkPoint; -# $Id: LinkPoint.pm,v 1.1 2002-02-15 01:19:27 ivan Exp $ +# $Id: LinkPoint.pm,v 1.2 2002-02-26 08:24:00 ivan Exp $ use strict; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); @@ -15,7 +15,7 @@ require Exporter; @ISA = qw(Exporter AutoLoader Business::OnlinePayment); @EXPORT = qw(); @EXPORT_OK = qw(); -$VERSION = '0.01'; +$VERSION = '0.02'; sub set_defaults { my $self = shift; @@ -139,8 +139,7 @@ sub submit { name email phone address city state zip country /); - print "$_ => $post_data{$_}\n" foreach keys %post_data; - #die; + #print "$_ => $post_data{$_}\n" foreach keys %post_data; my %response = $lperl->$action(\%post_data); @@ -210,7 +209,7 @@ For detailed information see L<Business::OnlinePayment>. =head1 COMPATIBILITY This module implements an interface to the LinkPoint Perl Wrapper -http://www.linkpoint.com/product_solutions/internet/inet_index.html +http://www.linkpoint.com/product_solutions/internet/lperl/lperl_main.html =head1 BUGS |