first part of fix for attributes and roles mess. metclass coompat bug still lurks

[catagits/Reaction.git] / lib / Reaction / UI / Controller / Collection / CRUD / Search.pm

package Reaction::UI::Controller::Collection::CRUD::Search;

use Reaction::Class;
BEGIN { extends 'Reaction::UI::Controller::Collection::CRUD'; }

use aliased 'Reaction::UI::ViewPort::SearchableListViewContainer';

use namespace::clean -except => 'meta';

override _build_action_viewport_map => sub {
    my ($self) = @_;

    my $map = super;

    $map->{list} = SearchableListViewContainer;

    return $map;
};

override _build_action_viewport_args => sub {
    my ($self) = @_;

    my $args = super;

    $args->{list}{layout} = 'searchable_list_view_container';

    return $args;
};

1;