Commit | Line | Data |
7824616e |
1 | package DBIx::Class::Schema::Loader::Compat::v0_040; |
2 | |
3 | use strict; |
4 | use warnings; |
5 | use Class::C3; |
254ba31c |
6 | |
7 | use base 'DBIx::Class::Schema::Loader::Base'; |
8 | |
7824616e |
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) = @_; |
9cfd45b7 |
20 | $self->{relbuilder} ||= |
21 | DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_040->new( |
22 | $self->schema, $self->inflect_plural, $self->inflect_singular |
23 | ); |
7824616e |
24 | } |
25 | |
26 | 1; |