[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / CDBICompat / Constructor.pm

package DBIx::Class::CDBICompat::Constructor;

use strict;
use warnings;

sub add_constructor {
  my ($class, $meth, $sql) = @_;
  $class = ref $class if ref $class;
  no strict 'refs';
  *{"${class}::${meth}"} =
    sub {
      my ($class, @args) = @_;
      return $class->search_literal($sql, @args);
    };
}

1;
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;