r31500@martha (orig r1229): purge | 2009-09-11 05:51:11 -0400

[catagits/Reaction.git] / lib / ComponentUI / Controller / TestModel / Foo.pm

diff --git a/lib/ComponentUI/Controller/TestModel/Foo.pm b/lib/ComponentUI/Controller/TestModel/Foo.pm
index d636c6c..04a56e8 100644 (file)
--- a/lib/ComponentUI/Controller/TestModel/Foo.pm
+++ b/lib/ComponentUI/Controller/TestModel/Foo.pm
@@ -56,16 +56,16 @@ for my $action (qw/view create update/){
 override _build_action_viewport_map => sub {
   my $map = super();
   $map->{list} = SearchableListViewContainer;
-  $map;
+  return $map;
 };
 
-sub _build_action_viewport_args {
-  my $self = shift;
-  my $args = $self->next::method(@_);
-  $args->{list}{action_prototypes}{delete_all}{label} = 'Delete All Records';
+override _build_action_viewport_args => sub {
+  my $args = super();
   $args->{list}{spec_class} = SearchSpec;
   $args->{list}{action_class} = Update;
   return $args;
-}
+};
 
 1;
+
+__END__;