Newer Older
10 lines | 0.178kb
test cleanup
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;