1 package # hide form PAUSE
2 DBIx::Class::CDBICompat::AbstractSearch;
7 # The keys are mostly the same.
14 my $where = (ref $_[0]) ? $_[0] : { @_ };
15 my $attr = (ref $_[0]) ? $_[1] : {};
18 $attr->{$cdbi2dbix{$_}} = delete $attr->{$_} for keys %cdbi2dbix;
20 return $class->resultset_instance->search($where, $attr);