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;
  27
  28 =head1 NAME
  29
  30 DBIx::Class::Schema::Loader::Compat::v0_040 - Compatibility for DBIx::Class::Schema::Loader
  31 version 0.04006
  32
  33 =head1 DESCRIPTION
  34
  35 Dumps from the old version are auto-detected, and the compat layer is turned
  36 on. See also L<DBIx::Class::Schema::Loader::Base/namingg>.
  37
  38 =cut