X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FImaDBI.pm;h=ed08c939961afcc85f671f1f7e70b4159d2738b5;hb=a3018bd384d02955c5a442cf2fd1ac654393a3c8;hp=37495afce5e84a686836f153ba7e11dec90ac67c;hpb=dbd7896fad83f2233729bab2cb6c12ef8369703e;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/CDBICompat/ImaDBI.pm b/lib/DBIx/Class/CDBICompat/ImaDBI.pm
index 37495af..ed08c93 100644
--- a/lib/DBIx/Class/CDBICompat/ImaDBI.pm
+++ b/lib/DBIx/Class/CDBICompat/ImaDBI.pm
@@ -20,4 +20,19 @@ sub __driver {
   return $_[0]->_get_dbh->{Driver}->{Name};
 }
 
+sub set_sql {
+  my ($class, $name, $sql) = @_;
+  my $table = $class->_table_name;
+  #$sql =~ s/__TABLE__/$table/;
+  no strict 'refs';
+  *{"${class}::sql_${name}"} =
+    sub {
+      my $sql = $sql;
+      my $class = shift;
+      my $table = $class->_table_name;
+      $sql =~ s/__TABLE__/$table/;
+      return $class->_sql_to_sth(sprintf($sql, @_));
+    };
+}
+
 1;