kimoto/DBIx-Custom at 5dd4116b67e2c79b887a708ba871b3e409cee34f ・ Gitprep

DBIx-Custom / t / common_uc / MyModel1 / TABLE2.pm /

Newer ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ Older

17 lines | 0.214kb

cleanup test e09e08e Yuki Kimoto authored on 2011-08-15	1	package MyModel1::TABLE2;
	2
	3	use strict;
	4	use warnings;
	5
	6	use base 'DBIx::Custom::Model';
	7
	8
	9	sub insert {
cleanup 5e8d869 Yuki Kimoto authored on 2012-01-20	10	my ($self, $param) = @_;
	11
	12	return $self->SUPER::insert(param => $param);
cleanup test e09e08e Yuki Kimoto authored on 2011-08-15	13	}
	14
	15	sub list { shift->select; }
	16
	17	1;