1package DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_07; 2 3use strict; 4use warnings; 5use base 'DBIx::Class::Schema::Loader::RelBuilder'; 6use mro 'c3'; 7 8=head1 NAME 9 10DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_07 - RelBuilder for 11compatibility with DBIx::Class::Schema::Loader version 0.07000 12 13=head1 DESCRIPTION 14 15See L<DBIx::Class::Schema::Loader::Base/naming> and 16L<DBIx::Class::Schema::Loader::RelBuilder>. 17 18=cut 19 20our $VERSION = '0.07033'; 21 22sub _strip_id_postfix { 23 my ($self, $name) = @_; 24 25 $name =~ s/_id\z//; 26 27 return $name; 28} 29 30=head1 AUTHOR 31 32See L<DBIx::Class::Schema::Loader/AUTHOR> and L<DBIx::Class::Schema::Loader/CONTRIBUTORS>. 33 34=head1 LICENSE 35 36This library is free software; you can redistribute it and/or modify it under 37the same terms as Perl itself. 38 39=cut 40 411; 42# vim:et sts=4 sw=4 tw=0: 43