Fix introspection with a complicated supported_actions

[Business-OnlinePayment.git] / OnlinePayment.pm

diff --git a/OnlinePayment.pm b/OnlinePayment.pm
index 8c421e1..0c9d2ff 100644 (file)
--- a/OnlinePayment.pm
+++ b/OnlinePayment.pm
@@ -56,10 +56,10 @@ sub _info {
   },
   'supported_actions' => sub {
     my( $class, $v ) = @_;
-    return $v if ref($v) eq 'HASH';
+    return %$v if ref($v) eq 'HASH';
     $v = [ $v ] unless ref($v);
     my $types = $class->info('supported_types') || {};
-    { map { $_ => $v } keys %$types };
+    ( map { $_ => $v } keys %$types );
   },
 );