MyStuff::Blob can't SELECT blob_num, blob_name, blob_type, user_id, description, create_timestamp, modify_timestamp, blob_subtype, perms, blob_access, access_timestamp, read_entitlement, index_family FROM blob WHERE blob_num = ? : Can't use an undefined value as an ARRAY reference at /path/to/mods/Class/DBI.pm line 1140. #### 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}; $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); }