summaryrefslogtreecommitdiff
path: root/IPPay.pm
diff options
context:
space:
mode:
Diffstat (limited to 'IPPay.pm')
-rw-r--r--IPPay.pm27
1 files changed, 26 insertions, 1 deletions
diff --git a/IPPay.pm b/IPPay.pm
index 9c35919..bc97446 100644
--- a/IPPay.pm
+++ b/IPPay.pm
@@ -11,10 +11,34 @@ use Business::OnlinePayment::HTTPS;
use vars qw($VERSION $DEBUG @ISA $me);
@ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.04';
+$VERSION = '0.05_01';
+$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
+
$DEBUG = 0;
$me = 'Business::OnlinePayment::IPPay';
+sub _info {
+ {
+ 'info_version' => '0.01',
+ 'module_version' => $VERSION,
+ 'supported_types' => [ qw( CC ECHECK ) ],
+ 'supported_actions' => { 'CC' => [
+ 'Normal Authorization',
+ 'Authorization Only',
+ 'Post Authorization',
+ 'Void',
+ 'Credit',
+ ],
+ 'ECHECK' => [
+ 'Normal Authorization',
+ 'Void',
+ 'Credit',
+ ],
+ },
+ 'CC_void_requires_card' => 1,
+ };
+}
+
sub set_defaults {
my $self = shift;
my %opts = @_;
@@ -397,6 +421,7 @@ sub _xmlwrite {
}
1;
+
__END__
=head1 NAME