package My::Class::DBI;
use base 'Class::DBI';

sub search_in {
  my $class = shift;
  my %args = ref $_[0] eq 'HASH' ? ${ $_[0] } : @_;

  # Normalize columns
  my @columns = keys %args;
  $_ = $class->_normalized($_) for @columns;

  # Check columns
  $class->_check_columns(@columns);

  # Keep list of all values (for each column)
  # that'll be used in the IN clause -- we'll
  # later bind these values to an SQL statement
  # so that the DBI can take care of the quoting
  my @values;
  my $sql = join ' AND ', map {
    # Grab values for IN clause
    my @vals = @{ $args{$_} };
    push @values, @vals;
    
    my $in_str = join(',', ('?') x @vals);
    "$_ IN ($in_str)" if @vals;
  } @columns;
 
  return unless @values;
  return $class->retrieve_from_sql($sql, @values);
}