kimoto/DBIx-Custom at 55dc9f8eb39ee1c2e8d21f1443ac507f78a9ac22 ・ Gitprep

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

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

17 lines | 0.22kb

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 {
	10	my ($self, $param) = @_;
	11
	12	return $self->SUPER::insert(param => $param);
	13	}
	14
	15	sub list { shift->select; }
	16
	17	1;