The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
KIMOTO / DBIx-Custom-0.41 / t / common_fullqualified / MyModel6 / main / table3.pm 
package MyModel6::main::table3;

use base 'MyModel6';

__PACKAGE__->attr(filter => sub {
  [
    key1 => {in => sub { uc $_[0] }}
  ]
});

1;