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

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

diff --git a/lib/DBIx/Class/CDBICompat/Constructor.pm b/lib/DBIx/Class/CDBICompat/Constructor.pm
new file mode 100644 (file)
index 0000000..2b4b1e9
--- /dev/null
+++ b/lib/DBIx/Class/CDBICompat/Constructor.pm
@@ -0,0 +1,17 @@
+package DBIx::Class::CDBICompat::Constructor;
+
+use strict;
+use warnings;
+
+sub add_constructor {
+  my ($class, $meth, $sql) = @_;
+  $class = ref $class if ref $class;
+  no strict 'refs';
+  *{"${class}::${meth}"} =
+    sub {
+      my ($class, @args) = @_;
+      return $class->retrieve_from_sql($sql, @args);
+    };
+}
+
+1;