use Scalar::Util qw/refaddr weaken reftype blessed/;
use Context::Preserve 'preserve_context';
use SQL::Abstract qw(is_plain_value is_literal_value);
+use DBIx::Class::ResultSource::FromSpec::Util 'fromspec_columns_info';
use DBIx::Class::_Util qw(
quote_sub perlstring serialize dump_value
dbic_internal_try dbic_internal_catch
detected_reinvoked_destructor scope_guard
- mkdir_p
+ mkdir_p UNRESOLVABLE_CONDITION
);
use namespace::clean;
my $resolve_bindinfo = sub {
#my $infohash = shift;
- $colinfos ||= { %{ $self->_resolve_column_info($ident) } };
+ # shallow copy to preempt autoviv
+ $colinfos ||= { %{ fromspec_columns_info($ident) } };
my $ret;
if (my $col = $_[0]->{dbic_colname}) {
return \%result if keys %result;
}
- my $sth = $dbh->prepare($self->sql_maker->select($table, undef, \'1 = 0'));
+ my $sth = $dbh->prepare(
+ $self->sql_maker->select( $table, \'*', UNRESOLVABLE_CONDITION )
+ );
$sth->execute;
### The acrobatics with lc names is necessary to support both the legacy