1 package DBIx::Class::Schema::Loader::Compat::v0_040;
6 use DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_040;
8 # Make a moniker from a table
9 sub _default_table2moniker {
10 my ($self, $table) = @_;
12 return join '', map ucfirst, split /[\W_]+/, lc $table;
17 $self->{relbuilder} ||= DBIx::Class::Schema::Loader::RelBuilder::v04Compat->new(
18 $self->schema, $self->inflect_plural, $self->inflect_singular