From 5c008be3b9bb7eb5c7423cf174399c57a19ee707 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 24 Nov 2009 02:54:42 +0000
Subject: add introspection info used in Business::OnlinePayment 3.01+

---
 IPPay.pm | 27 ++++++++++++++++++++++++++-
 1 file changed, 26 insertions(+), 1 deletion(-)

(limited to 'IPPay.pm')

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
-- 
cgit v1.2.1