Select Code to Download

MyApp::Sets:
  my @res = Peeron2::Sets->search_where({ID => "8880-1"});
...

Class::DBI->sth_to_objects:
  $sth->execute("8880-1") unless $sth->{Active};

sub search_where {
    my $class = shift;
...
    $phrase =~ s/^\s*WHERE\s*//i;
    return $class->retrieve_from_sql($phrase, @bind); # <-------------
+--31
}

sub retrieve_from_sql {
        my ($class, $sql, @vals) = @_;
...
                if $@;
        return $class->_ids_to_objects(\@rows);
}