use DBIx::ContextualFetch;
use Sub::Name ();
-use base qw/DBIx::Class/;
+use base qw(Class::Data::Inheritable);
__PACKAGE__->mk_classdata('sql_transformer_class' =>
'DBIx::Class::CDBICompat::SQLTransformer');
$self->throw_exception( "No relationship to JOIN from ${from_class} to ${to_class}" )
unless $rel_obj;
my $join = $from_class->storage->sql_maker->_join_condition(
- $from_class->result_source_instance->resolve_condition(
- $rel_obj->{cond}, $to, $from) );
+ scalar $from_class->result_source_instance->_resolve_condition(
+ $rel_obj->{cond}, $to, $from
+ )
+ );
return $join;
}
-
+
} );
sub db_Main {
sub {
my $sql = $sql;
my $class = shift;
- return $class->storage->sth($class->transform_sql($sql, @_));
+ return $class->storage->_sth($class->transform_sql($sql, @_));
};
if ($sql =~ /select/i) {
my $search_name = "search_${name}";
sub transform_sql {
my ($class, $sql, @args) = @_;
-
+
my $tclass = $class->sql_transformer_class;
$class->ensure_class_loaded($tclass);
my $t = $tclass->new($class, $sql, @args);