Commit | Line | Data |
---|---|---|
a3018bd3 | 1 | package DBIx::Class::CDBICompat::Constructor; |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
6 | sub add_constructor { | |
7 | my ($class, $meth, $sql) = @_; | |
8 | $class = ref $class if ref $class; | |
9 | no strict 'refs'; | |
10 | *{"${class}::${meth}"} = | |
11 | sub { | |
12 | my ($class, @args) = @_; | |
656796f2 | 13 | return $class->search_literal($sql, @args); |
a3018bd3 | 14 | }; |
15 | } | |
16 | ||
17 | 1; |