X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FImaDBI.pm;h=49fc1e01c2a930543a9668d6b56ee5f6eea8f456;hb=8f4b5c084378a4c457c8893404aded4398c1d811;hp=896eca741b39a8c16f1c2ee8f692bd20a5f039cb;hpb=ddc0a6c89d212433eb5716b2aa963f63b1f348d1;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/CDBICompat/ImaDBI.pm b/lib/DBIx/Class/CDBICompat/ImaDBI.pm index 896eca7..49fc1e0 100644 --- a/lib/DBIx/Class/CDBICompat/ImaDBI.pm +++ b/lib/DBIx/Class/CDBICompat/ImaDBI.pm @@ -6,7 +6,7 @@ use warnings; 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'); @@ -55,11 +55,11 @@ __PACKAGE__->mk_classdata('_transform_sql_handlers' => $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( + $from_class->result_source_instance->_resolve_condition( $rel_obj->{cond}, $to, $from) ); return $join; } - + } ); sub db_Main { @@ -115,7 +115,7 @@ sub sth_to_objects { 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);