+sub search :Exported {
+ return shift->SUPER::search(@_) if caller eq "Class::DBI"; # oops
+ my ($self, $r) = @_;
+ my %fields = map {$_ => 1 } $self->columns;
+ my $oper = "like"; # For now
+ use Carp; Carp::confess("Urgh") unless ref $r;
+ my %params = %{$r->{params}};
+ my %values = map { $_ => {$oper, $params{$_} } }
+ grep { $params{$_} and $fields{$_} } keys %params;
+
+ $r->objects([ %values ? $self->search_where(%values) : $self->retrieve_all ]);
+ $r->template("list");
+ $r->{template_args}{search} = 1;
+}
+
+sub list :Exported {
+ my ($self, $r) = @_;
+ if ( my $rows = $r->config->{rows_per_page}) {
+ $self = $self->pager($rows, $r->query->{page});
+ $r->{template_args}{pager} = $self;
+ }
+ $r->objects([ $self->retrieve_all ]);
+}