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
   7 use base 'DBIx::Class::Schema::Loader::Base';
   8
   9 use DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_040;
  10
  11 # Make a moniker from a table
  12 sub _default_table2moniker {
  13     my ($self, $table) = @_;
  14
  15     return join '', map ucfirst, split /[\W_]+/, lc $table;
  16 }
  17
  18 sub _relbuilder {
  19         my ($self) = @_;
  20     $self->{relbuilder} ||=
  21       DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_040->new(
  22           $self->schema, $self->inflect_plural, $self->inflect_singular
  23       );
  24 }
  25
  26 1;