Revision history for Perl extension DBIx::Class::Schema::Loader
+ - don't set result_namespace if it's 'Result'
- support for MSSQL databases with case sensitive collation
- do not try to detect driver and rebless when used with a custom
loader_class
# Always remember to do all digits for the version even if they're 0
# i.e. first release of 0.XX *must* be 0.XX000. This avoids fBSD ports
# brain damage and presumably various other packaging systems too
-our $VERSION = '0.05003';
+our $VERSION = '0.06000';
__PACKAGE__->mk_group_accessors('inherited', qw/
_loader_args
use File::Slurp 'slurp';
require DBIx::Class;
-our $VERSION = '0.05003';
+our $VERSION = '0.06000';
__PACKAGE__->mk_group_ro_accessors('simple', qw/
schema
=cut
-my $CURRENT_V = 'v5';
+my $CURRENT_V = 'v6';
my @CLASS_ARGS = qw(
schema_base_class result_base_class additional_base_classes
Set the 'naming' attribute or the SCHEMA_LOADER_BACKCOMPAT environment variable
to disable this warning.
-See perldoc DBIx::Class::Schema::Loader::Manual::UpgradingFromV4 for more
-details.
+See perldoc DBIx::Class::Schema::Loader::Manual::UpgradingFromV4 if upgrading
+from version 0.04006.
EOF
}
else {
if ($self->use_namespaces) {
$schema_text .= qq|__PACKAGE__->load_namespaces|;
my $namespace_options;
- for my $attr (qw(result_namespace
- resultset_namespace
- default_resultset_class)) {
+
+ my @attr = qw/resultset_namespace default_resultset_class/;
+
+ unshift @attr, 'result_namespace' unless (not $self->result_namespace) || $self->result_namespace eq 'Result';
+
+ for my $attr (@attr) {
if ($self->$attr) {
$namespace_options .= qq| $attr => '| . $self->$attr . qq|',\n|
}
use Class::C3;
use Carp::Clan qw/^DBIx::Class/;
-our $VERSION = '0.05003';
+our $VERSION = '0.06000';
=head1 NAME
use warnings;
use Class::C3;
-our $VERSION = '0.05003';
+our $VERSION = '0.06000';
=head1 NAME
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.05003';
+our $VERSION = '0.06000';
=head1 NAME
unquoted_ddl
/);
-our $VERSION = '0.05003';
+our $VERSION = '0.06000';
=head1 NAME
case_sensitive_collation
/);
-our $VERSION = '0.05003';
+our $VERSION = '0.06000';
=head1 NAME
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.05003';
+our $VERSION = '0.06000';
=head1 NAME
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.05003';
+our $VERSION = '0.06000';
=head1 NAME
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.05003';
+our $VERSION = '0.06000';
=head1 NAME
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.05003';
+our $VERSION = '0.06000';
=head1 NAME
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.05003';
+our $VERSION = '0.06000';
=head1 NAME
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.05003';
+our $VERSION = '0.06000';
=head1 NAME
/;
use Carp::Clan qw/^DBIx::Class/;
-our $VERSION = '0.05003';
+our $VERSION = '0.06000';
=head1 NAME
use Text::Balanced qw( extract_bracketed );
use Class::C3;
-our $VERSION = '0.05003';
+our $VERSION = '0.06000';
=head1 NAME
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.05003';
+our $VERSION = '0.06000';
=head1 NAME
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.05003';
+our $VERSION = '0.06000';
=head1 NAME
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.05003';
+our $VERSION = '0.06000';
=head1 NAME
package DBIx::Class::Schema::Loader::DBI::Writing;
use strict;
-our $VERSION = '0.05003';
+our $VERSION = '0.06000';
# Empty. POD only.
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.05003';
+our $VERSION = '0.06000';
=head1 NAME
use Lingua::EN::Inflect::Number ();
use Lingua::EN::Inflect::Phrase ();
-our $VERSION = '0.05003';
+our $VERSION = '0.06000';
=head1 NAME