lib/Reaction/UI/ViewPort/ListView.pm

   1 package Reaction::UI::ViewPort::ListView;
   2
   3 use Reaction::Class;
   4 use aliased 'Reaction::UI::ViewPort::GridView::Entity::WithActions';
   5
   6 class ListView is 'Reaction::UI::ViewPort::GridView', which {
   7
   8   does 'Reaction::UI::ViewPort::GridView::Role::Order';
   9   does 'Reaction::UI::ViewPort::GridView::Role::Pager';
  10   does 'Reaction::UI::ViewPort::GridView::Role::Actions';
  11
  12
  13   #If I decide that object actions and collection actions should be
  14   #lumped together i oculd move these into the collection action role
  15   #ooor we could create a third role that does this, but gah, no?
  16   implements build_entity_class => as { WithActions };
  17
  18   #You'se has to goes aways. sorry.
  19   #if i saved the args as an attribute i could probably get around this....
  20   implements object_action_count => as {
  21     my $self = shift;
  22     for ( @{ $self->entities } ) {
  23       #pickup here, and of to the widget for listview
  24       return scalar @{ $_->action_prototypes };
  25     }
  26   };
  27
  28 };
  29
  30 1;