Commit | Line | Data |
19b7d71c |
1 | package DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_06; |
2 | |
3 | use strict; |
4 | use warnings; |
5 | use Class::C3; |
f3cfe4e6 |
6 | use base 'DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_07'; |
19b7d71c |
7 | use Carp::Clan qw/^DBIx::Class/; |
19b7d71c |
8 | |
f3cfe4e6 |
9 | our $VERSION = '0.08000'; |
19b7d71c |
10 | |
11 | sub _normalize_name { |
12 | my ($self, $name) = @_; |
13 | |
414c61a0 |
14 | $name = $self->_sanitize_name($name); |
15 | |
19b7d71c |
16 | return lc $name; |
17 | } |
18 | |
19 | =head1 NAME |
20 | |
21 | DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_06 - RelBuilder for |
f3cfe4e6 |
22 | compatibility with DBIx::Class::Schema::Loader version 0.06000 |
19b7d71c |
23 | |
24 | =head1 DESCRIPTION |
25 | |
26 | See L<DBIx::Class::Schema::Loader::Base/naming> and |
27 | L<DBIx::Class::Schema::Loader::RelBuilder>. |
28 | |
29 | =head1 AUTHOR |
30 | |
31 | See L<DBIx::Class::Schema::Loader/AUTHOR> and L<DBIx::Class::Schema::Loader/CONTRIBUTORS>. |
32 | |
33 | =head1 LICENSE |
34 | |
35 | This library is free software; you can redistribute it and/or modify it under |
36 | the same terms as Perl itself. |
37 | |
38 | =cut |
39 | |
40 | 1; |
41 | # vim:et sts=4 sw=4 tw=0: |