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