DBIx::Class::Schemaで、自動的にカラムの設定を行うハック package MySchema; use strict; use base qw(DBIx::Class::Schema::Loader); __PACKAGE__->loader_options(...); sub connection { my $class = shift; my $schema = $class->SUPER::connection(@_); my $classes = $schema->loader->classes; while (my($table, $schema_class) = each %$classes) { foreach my $column ($schema_class->columns) { # do something with $column }