- my %values = map { $_ => $params{$_} }
- grep { $params{$_} and $fields{$_} } keys %{$r->{params}};
- $r->objects([ %values ? $self->search_like(%values) : $self->retrieve_all ]);
+ 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 ]);