lib/DBIx/Class/Schema/Loader/Compat/v0_040.pm

   1 package DBIx::Class::Schema::Loader::Compat::v0_040;
   2
   3 use strict;
   4 use warnings;
   5 use Class::C3;
   6 use DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_040;
   7
   8 # Make a moniker from a table
   9 sub _default_table2moniker {
  10     my ($self, $table) = @_;
  11
  12     return join '', map ucfirst, split /[\W_]+/, lc $table;
  13 }
  14
  15 sub _relbuilder {
  16         my ($self) = @_;
  17     $self->{relbuilder} ||= DBIx::Class::Schema::Loader::RelBuilder::v04Compat->new(
  18         $self->schema, $self->inflect_plural, $self->inflect_singular
  19     );
  20 }
  21
  22 1;