Add B::OP undocumented _info discovery hash

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

diff --git a/lib/Business/OnlinePayment/Bambora.pm b/lib/Business/OnlinePayment/Bambora.pm
index 0095665..98c402f 100755 (executable)
--- a/lib/Business/OnlinePayment/Bambora.pm
+++ b/lib/Business/OnlinePayment/Bambora.pm
@@ -17,14 +17,31 @@ use URI::Escape;
 
 use vars qw/ $VERSION $DEBUG /;
 $VERSION = '0.1';
-$DEBUG   = 1;
-
-if ( $DEBUG ) {
-    $Data::Dumper::Sortkeys = 1;
-}
+$DEBUG   = 0;
 
 =head1 INTERNAL METHODS
 
+=head2 _info
+
+=cut
+
+sub _info {{
+  info_compat       => '0.01',
+  module_version    => $VERSION,
+  supported_types   => [qw/ CC /],
+  supported_actions => {
+    CC => [
+      'Normal Authorization',
+      'Authorization Only',
+      'Post Authorization',
+      'Void',
+      'Credit',
+      'Reverse Authorization',
+      'Tokenize',
+    ],
+  },
+}}
+
 =head2 set_defaults
 
 See L<Business::OnlinePayment/set_defaults>