AutoUpdate, add_constructor, a toy set_sql emulator, object index stubs and destroy...

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / CDBICompat / ImaDBI.pm

diff --git a/lib/DBIx/Class/CDBICompat/ImaDBI.pm b/lib/DBIx/Class/CDBICompat/ImaDBI.pm
index 37495af..ed08c93 100644 (file)
--- 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;