+sub search :Exported {
+ my ($self, $r) = @_;
+ my %fields = map {$_ => 1 } $self->columns;
+ my %values = map { $_ => $params{$_} }
+ grep { $params{$_} and $fields{$_} } keys %{$r->{params}};
+ $r->objects([ %values ? $self->search_like(%values) : $self->retrieve_all ]);
+ $r->template("list");
+ $r->{template_args}{search} = 1;
+}
+
+