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;