|
cleanup test
|
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; |