...
my $query_handle = $db_handle->prepare($query);
eval {
   $query_handle->execute();
};
if ( $@ ) {
   confess "Query Error $DBI::errstr\nQuery: $query\n";
}
[download]

I would, and did, when I execute my own queries... But with CDBI, it's all done so many layers lower than my code, that I'm not even sure where the eventual execute happens! I do believe RaiseError is set though, since the code does die when the error occures.

-- zigdon

The reason I thought it was the bind variable is that that's the only array I can see involved in this query - see the code below. The stack, afaik, is something like this:

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

Class::DBI::AbstractSearch->search_where:
  return $class->retrieve_from_sql("( id = ? )", "8880-1"); # 

Class::DBI->retrieve_from_sql:
  $class->sth_to_objects($class->sql_Retrieve("id = ?")), ["8880-1"]);

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

Here's the relevant lines in the PMs. Class::DBI::AbstractSearch:

sub search_where {
    my $class = shift;
    my $where = (ref $_[0]) ? $_[0]          : { @_ };
    my $attr  = (ref $_[0]) ? $_[1]          : undef;
    my $order = ($attr)     ? delete($attr->{order_by}) : undef;

    # order is deprecated, but still backward compatible
    if ($attr && exists($attr->{order})) {
        $order = delete($attr->{order});
    }

    $class->can('retrieve_from_sql') or do {
        require Carp;
        Carp::croak("$class should inherit from Class::DBI >= 0.90");
    };
    my $sql = SQL::Abstract->new(%$attr);
    my($phrase, @bind) = $sql->where($where, $order);
    $phrase =~ s/^\s*WHERE\s*//i;
    return $class->retrieve_from_sql($phrase, @bind); # <-------------
+--31
}
[download]

Class::DBI:

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

...

sub sth_to_objects {
        my ($class, $sth, $args) = @_;
        $class->_croak("sth_to_objects needs a statement handle") unle
+ss $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}: $@", er
+r => $@)
                if $@;
        return $class->_ids_to_objects(\@rows);
}
[download]

-- zigdon

I just tried to add a

  warn Dumper $args;
[download]

right before the ->execute line... When everything works, it returns what you'd expect ( [ "8880-1" ] ), but when it dies, it didn't output anything? This is just messing me up!

-- zigdon

Update:
Just installed most recent Class::DBI, which is 3.0.1. Now that I see how old the version I was I was using, I'll have to do some more testing and see what it looks like now.

Yet another update.
Now that I see my error again (3.0.1 didn't help), I'm not so sure it is the same problem as yours. Mine is reported from DBD::mysql :

 DBD::mysql::st fetchrow_array failed: fetch() 
 without execute() [for Statement "SELECT active, name, 
 directory, start\nFROM   Course\nWHERE  id=?\n"] at 
 /Library/Perl/5.8.6/DBIx/ContextualFetch.pm line 87.\n
[download]

I've seen such errors only when the script lost it's handle to the DB... Since I have it verify at the beginning of processing that the handle is still valid, reloading always seems to solve that issue for me.

-- zigdon