sub find_user {
    my ( $self, $user ) = @_;
    
    my $stmt = q{
        SELECT *
        FROM   user
        WHERE  user = ?
    };
    my @bind = ( $user );
    
    $self->dbh->prepare($stmt);
    $self->exec(@bind);
    
    # u.s.w.
}