|
cleanup test
|
1 |
package MyModel6::table3; |
| 2 | ||
| 3 |
use base 'MyModel6'; |
|
| 4 | ||
| 5 |
__PACKAGE__->attr(filter => sub {
|
|
| 6 |
[ |
|
| 7 |
key1 => {in => sub { uc $_[0] }}
|
|
| 8 |
] |
|
| 9 |
}); |
|
| 10 | ||
| 11 |
1; |