lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_07.pm

   1 package DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_07;
   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
   9 our $VERSION = '0.08000';
  10
  11 sub _strip__id {
  12     my ($self, $name) = @_;
  13
  14     $name =~ s/_id\z//;
  15
  16     return $name;
  17 }
  18
  19 =head1 NAME
  20
  21 DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_07 - RelBuilder for
  22 compatibility with DBIx::Class::Schema::Loader version 0.07000
  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: