Move code having to do with adding columns out of ColumnCase.
[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / CDBICompat / Constructor.pm
1 package # hide from PAUSE
2     DBIx::Class::CDBICompat::Constructor;
3
4 use strict;
5 use warnings;
6
7 sub add_constructor {
8   my ($class, $meth, $sql) = @_;
9   $class = ref $class if ref $class;
10   no strict 'refs';
11   *{"${class}::${meth}"} =
12     sub {
13       my ($class, @args) = @_;
14       return $class->search_literal($sql, @args);
15     };
16 }
17
18 1;