insertやupdate時に小文字にするComponentを書いてみる。 package DBIx::Class::LowerCaseColmuns; use strict; use warnings; use base qw/DBIx::Class/; our $VERSION = '0.01'; __PACKAGE__->mk_classdata( '_lower_case_columns' ); sub lower_case_colmuns { my $self = shift; if (@_) { map { $self->throw_exception("column $_ doesn't exist") unless $self->has_column($_) } @_; return $self->_lower_case_columns({ map { $_ => 1 }