[dbsrgits/DBIx-Class-Schema-Loader.git] / lib / DBIx / Class / Schema / Loader / Compat / v0_040.pm

package DBIx::Class::Schema::Loader::Compat::v0_040;

use strict;
use warnings;
use Class::C3;
use DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_040;

# Make a moniker from a table
sub _default_table2moniker {
    my ($self, $table) = @_;

    return join '', map ucfirst, split /[\W_]+/, lc $table;
}

sub _relbuilder {
	my ($self) = @_;
    $self->{relbuilder} ||=
      DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_040->new(
          $self->schema, $self->inflect_plural, $self->inflect_singular
      );
}

1;
Commit	Line	Data
7824616e	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) = @_;
9cfd45b7	17	$self->{relbuilder} \|\|=
	18	DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_040->new(
	19	$self->schema, $self->inflect_plural, $self->inflect_singular
	20	);
7824616e	21	}
	22
	23	1;