bd35c82 13 years ago
1 contributor
10 lines | 0.178kb
package MyModel8::table2;
use MyModel8 -base;

has filter => sub {
    {
        key3 => {out => sub { $_[0] * 2}, in => sub { $_[0] * 3}, end => sub { $_[0] * 4 }}
    }
};

1;