sub selectrow_array {
        my $this = shift();
        my ( @ret, $ret );
        eval {
            if (wantarray)
            {

                # list
                @ret = $this->SUPER::selectrow_array(@_);
            }
            elsif ( defined(wantarray) ) {

                # scalar
                $ret = $this->SUPER::selectrow_array(@_);
            }
            else {

                # void - nonsense
                $this->SUPER::selectrow_array(@_);

            }
        };
        croak $@ if $@;
        return   if !defined wantarray;
        return wantarray ? @ret : $ret;
    }

##</code><code>##

DBD::mysql::db selectrow_array failed: Table 'devel.no_such_table' doesn't exist at simple.pl line 17.
DBD::mysql::db selectrow_array failed: Table 'devel.no_such_table' doesn't exist at simple.pl line 17.
 at simple.pl line 43