06648ac 12 years ago
1 contributor
10 lines | 0.183kb
package MyModel8::dbix_custom::table2;
use MyModel8 -base;

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

1;