package Reaction::UI::ViewPort::ListView;
use Reaction::Class;
-use aliased 'Reaction::UI::ViewPort::GridView::Entity::WithActions';
+use namespace::clean -except => [ qw(meta) ];
+extends 'Reaction::UI::ViewPort::Collection::Grid';
-class ListView is 'Reaction::UI::ViewPort::GridView', which {
+with 'Reaction::UI::ViewPort::Collection::Role::Order';
+with 'Reaction::UI::ViewPort::Collection::Role::Pager';
+with 'Reaction::UI::ViewPort::Role::Actions';
- does 'Reaction::UI::ViewPort::GridView::Role::Order';
- does 'Reaction::UI::ViewPort::GridView::Role::Pager';
- does 'Reaction::UI::ViewPort::GridView::Role::Actions';
+__PACKAGE__->meta->make_immutable;
- #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 };
-
- #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 };
- }
- };
-
-};
1;