use more MooseX::Types and support actionattribute in Action vp to explicitly provide...

[catagits/Reaction.git] / lib / Reaction / UI / Widget / Action.pm

diff --git a/lib/Reaction/UI/Widget/Action.pm b/lib/Reaction/UI/Widget/Action.pm
index 0994e6e..3d8b1c4 100644 (file)
--- a/lib/Reaction/UI/Widget/Action.pm
+++ b/lib/Reaction/UI/Widget/Action.pm
@@ -6,7 +6,10 @@ use namespace::clean -except => [ qw(meta) ];
 extends 'Reaction::UI::Widget::Object::Mutable';
 
 after fragment widget {
-  arg 'method' => $_{viewport}->method;
+  my $vp = $_{viewport};
+  arg 'method' => $vp->method;
+  arg 'form_id' => $vp->location;
+  arg 'action' => $vp->has_action ? $vp->action : '';
 };
 
 implements fragment message {