lib/DBIx/Class/CDBICompat/Constructor.pm

   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) = @_;
  13       return $class->search_literal($sql, @args);
  14     };
  15 }
  16
  17 1;