kimoto/DBIx-Custom at 8af3f328f06af7a4fa7d06c1c5c528d60090b36d ・ Gitprep

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

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

10 lines | 0.178kb

test cleanup ae4189a Yuki Kimoto authored on 2011-08-15	1	package MyModel8::TABLE2;
	2	use MyModel8 -base;
	3
	4	has filter => sub {
	5	{
	6	KEY3 => {out => sub { $_[0] * 2}, in => sub { $_[0] * 3}, end => sub { $_[0] * 4 }}
	7	}
	8	};
	9
	10	1;