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

use base 'MyModel6';

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

1;