sub retrieve_from_sql {
        my ($class, $sql, @vals) = @_;
        $sql =~ s/^\s*(WHERE)\s*//i;
        return $class->sth_to_objects($class->sql_Retrieve($sql), \@vals);
}

...

sub sth_to_objects {
        my ($class, $sth, $args) = @_;
        $class->_croak("sth_to_objects needs a statement handle") unless $sth;
        unless (UNIVERSAL::isa($sth => "DBI::st")) {
                my $meth = "sql_$sth";
                $sth = $class->$meth();
        }
        my (%data, @rows);
        eval {
                $sth->execute(@$args) unless $sth->{Active}; # <--------------- 1124
                $sth->bind_columns(\(@data{ @{ $sth->{NAME_lc} } }));
                push @rows, {%data} while $sth->fetch;
        };
        return $class->_croak("$class can't $sth->{Statement}: $@", err => $@)
                if $@;
        return $class->_ids_to_objects(\@rows);
}