Newer Older
10 lines | 0.178kb
cleanup test
Yuki Kimoto authored on 2011-08-06
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;