lib/Reaction/UI/ViewPort/ListView.pm

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