1package # hide form PAUSE 2 DBIx::Class::CDBICompat::AbstractSearch; 3 4use strict; 5use warnings; 6 7=head1 NAME 8 9DBIx::Class::CDBICompat::AbstractSearch - Emulates Class::DBI::AbstractSearch 10 11=head1 SYNOPSIS 12 13See DBIx::Class::CDBICompat for usage directions. 14 15=head1 DESCRIPTION 16 17Emulates L<Class::DBI::AbstractSearch>. 18 19=cut 20 21# The keys are mostly the same. 22my %cdbi2dbix = ( 23 limit => 'rows', 24); 25 26sub search_where { 27 my $class = shift; 28 my $where = (ref $_[0]) ? $_[0] : { @_ }; 29 my $attr = (ref $_[0]) ? $_[1] : {}; 30 31 # Translate the keys 32 $attr->{$cdbi2dbix{$_}} = delete $attr->{$_} for keys %cdbi2dbix; 33 34 return $class->resultset_instance->search($where, $attr); 35} 36 371; 38