kimoto/DBIx-Custom at 1910b5274e0a92c03e364a11ad72d6cd2a1b37f7 ・ Gitprep

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

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

13 lines | 0.191kb

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