projects
/
dbsrgits/DBIx-Class-Historic.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Merge 'DBIx-Class-current' into 'load_namespaces'
[dbsrgits/DBIx-Class-Historic.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;