sub _select {
    my ($self, $sql, $where, $values, $orderby) = @_;
    my @values = $values ? @$values : undef;

    $sql .= " where $where "      if $where;
    $sql .= " order by $orderby " if $orderby;
    
my $sql2 = "select * from content where name = 'practice' ";
print $sql;
print $sql2;
print ($sql eq $sql2 ? 'equal' : 'NOT');


#    print "DEBUG: $sql w/values: " . Dumper \@values;
    my $sth = $self->dbh->prepare($sql) or die "couldn't prepare: " . $self->dbh->errstr();
 #  $sth->execute(@values) or die "couldn't execute: " . $self->dbh->errstr();
    $sth->execute() or die "could't execute: " . $self->dbh->errstr();
 
    my @rows = ();
    while (my $row = $sth->fetchrow_hashref()) {
        push (@rows, $self->new($row) ); 
    }
    return \@rows;
}