Revision history for Perl extension DBIx::Class::Schema::Loader
+ - fix missing trailing _id stripping for some relationship
+ names (rbuels)
+ - fixed accessor POD bug, was not dereferencing scalar refs
+ before printing (rbuels)
+
0.05002 2010-02-15 10:17:47
- support for SQLAnywhere via DBD::SQLAnywhere and ODBC
- fix picking up quoted tables for SQLite (RT#54538) patch from schwern
$self->_pod( $class,
join "\n", map {
my $s = $attrs->{$_};
- $s = !defined $s ? 'undef' :
- length($s) == 0 ? '(empty string)' :
- $s;
+ $s = !defined $s ? 'undef' :
+ length($s) == 0 ? '(empty string)' :
+ ref($s) eq 'SCALAR' ? $$s :
+ $s
+ ;
" $_: $s"
} sort keys %$attrs,
# col names to distinguish
if($counters{$remote_moniker} > 1) {
my $colnames = q{_} . join(q{_}, @$local_cols);
- $local_relname = $self->_inflect_plural(
- lc($local_table) . $colnames
- );
+ my $old_relname = #< TODO: remove me after 0.05003 release
+ $local_relname = lc($local_table) . $colnames;
+ my $stripped_id = $local_relname =~ s/_id$//; #< strip off any trailing _id
+ $local_relname = $self->_inflect_plural( $local_relname );
$remote_relname .= $colnames if keys %cond > 1;
+
+ # TODO: remove me after 0.05003 release
+ $old_relname = $self->_inflect_plural( $old_relname );
+ warn __PACKAGE__." $VERSION: warning, stripping trailing _id from ${remote_class} relation '$old_relname', renaming to '$local_relname'. This behavior is new as of 0.05003.\n"
+ if $stripped_id;
} else {
$local_relname = $self->_inflect_plural(lc $local_table);
}
$warn_count++ for grep /^Bad table or view/, @loader_warnings;
+ $warn_count++ for grep /stripping trailing _id/, @loader_warnings;
+
my $vendor = $self->{vendor};
$warn_count++ for grep /${vendor}_\S+ has no primary key/,
@loader_warnings;