cleanup of hard to read layout_args code
groditi [Fri, 2 Oct 2009 20:10:38 +0000 (20:10 +0000)]
lib/Reaction/UI/ViewPort/Role/Actions.pm

index 778115b..f2d40fb 100644 (file)
@@ -63,17 +63,21 @@ sub _build_actions {
     my $label = exists $proto->{label} ? $proto->{label} : $proto_name;
     my $layout = exists $proto->{layout} ? $proto->{layout} : 'uri';
 
+    my $layout_args;
+    if( exists $proto->{layout_args} ){
+      if( ref($proto->{layout_args}) eq 'CODE' ){
+        $layout_args = $proto->{layout_args}->($target, $ctx);
+      } else {
+        $layout_args = $proto->{layout_args};
+      }
+    }
+
     my $action = Reaction::UI::ViewPort::URI->new(
       location => join ('-', $loc, 'action', $i++),
       uri => ( ref($uri) eq 'CODE' ? $uri->($target, $ctx) : $uri ),
       display => ( ref($label) eq 'CODE' ? $label->($target, $ctx) : $label ),
       layout => $layout,
-      exists $proto->{layout_args} ?
-        ( ref($proto->{layout_args}) eq 'CODE' ? 
-            $proto->{layout_args}->($target, $ctx) 
-            : 
-            $proto->{layout_args} ) 
-        : ()
+      ( ref($layout_args) eq ' HASH' ? layout_args => $layout_args : () ),
     );
     push(@act, $action);
   }