Fix NAME in POD

[catagits/Reaction.git] / lib / Reaction / UI / ViewPort / ListView.pm

diff --git a/lib/Reaction/UI/ViewPort/ListView.pm b/lib/Reaction/UI/ViewPort/ListView.pm
index 3d21ad6..356fc18 100644 (file)
--- a/lib/Reaction/UI/ViewPort/ListView.pm
+++ b/lib/Reaction/UI/ViewPort/ListView.pm
@@ -1,30 +1,31 @@
 package Reaction::UI::ViewPort::ListView;
 
 use Reaction::Class;
-use aliased 'Reaction::UI::ViewPort::GridView::Entity::WithActions';
-
-class ListView is 'Reaction::UI::ViewPort::GridView', which {
-
-  does 'Reaction::UI::ViewPort::GridView::Role::Order';
-  does 'Reaction::UI::ViewPort::GridView::Role::Pager';
-  does 'Reaction::UI::ViewPort::GridView::Role::Actions';
-
-
-  #If I decide that object actions and collection actions should be
-  #lumped together i oculd move these into the collection action role
-  #ooor we could create a third role that does this, but gah, no?
-  implements build_entity_class => as { WithActions };
+use aliased 'Reaction::UI::ViewPort::Collection::Grid::Member::WithActions';
+
+use namespace::clean -except => [ qw(meta) ];
+extends 'Reaction::UI::ViewPort::Collection::Grid';
+
+with 'Reaction::UI::ViewPort::Collection::Role::Order';
+with 'Reaction::UI::ViewPort::Collection::Role::Pager';
+with 'Reaction::UI::ViewPort::Role::Actions';
+
+#If I decide that object actions and collection actions should be
+#lumped together i oculd move these into the collection action role
+#ooor we could create a third role that does this, but gah, no?
+sub _build_member_class { WithActions };
+
+#You'se has to goes aways. sorry.
+#if i saved the args as an attribute i could probably get around this....
+sub object_action_count {
+  my $self = shift;
+  for ( @{ $self->members } ) {
+    #pickup here, and of to the widget for listview
+    return scalar @{ $_->action_prototypes };
+  }
+};
 
-  #You'se has to goes aways. sorry.
-  #if i saved the args as an attribute i could probably get around this....
-  implements object_action_count => as {
-    my $self = shift;
-    for ( @{ $self->entities } ) {
-      #pickup here, and of to the widget for listview
-      return scalar @{ $_->action_prototypes };
-    }
-  };
+__PACKAGE__->meta->make_immutable;
 
-};
 
 1;