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

package DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_07;

use strict;
use warnings;
use Class::C3;
use base 'DBIx::Class::Schema::Loader::RelBuilder';
use Carp::Clan qw/^DBIx::Class/;

our $VERSION = '0.08000';

sub _strip__id {
    my ($self, $name) = @_;

    $name =~ s/_id\z//;

    return $name;
}

=head1 NAME

DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_07 - RelBuilder for
compatibility with DBIx::Class::Schema::Loader version 0.07000

=head1 DESCRIPTION

See L<DBIx::Class::Schema::Loader::Base/naming> and
L<DBIx::Class::Schema::Loader::RelBuilder>.

=head1 AUTHOR

See L<DBIx::Class::Schema::Loader/AUTHOR> and L<DBIx::Class::Schema::Loader/CONTRIBUTORS>.

=head1 LICENSE

This library is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.

=cut

1;
# vim:et sts=4 sw=4 tw=0:
Commit	Line	Data
f3cfe4e6	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: