use strict;
use warnings;
-use Class::C3;
+use mro 'c3';
use base qw/
DBIx::Class::Schema::Loader::DBI::Component::QuotedDefault
DBIx::Class::Schema::Loader::DBI
/;
use Carp::Clan qw/^DBIx::Class/;
-our $VERSION = '0.07000';
+our $VERSION = '0.07002';
=head1 NAME
elsif ($info->{data_type} eq 'float') {
$info->{data_type} = 'real';
}
+ elsif ($info->{data_type} =~ /^uniqueidentifier(?:str)?\z/) {
+ $info->{auto_nextval} = 1;
+ }
delete $info->{default_value} if ref($info->{default_value}) eq 'SCALAR' && ${ $info->{default_value} } eq 'NULL';
if ((eval { lc ${ $info->{default_value} } }||'') eq 'current timestamp') {
${ $info->{default_value} } = 'current_timestamp';
+
+ my $orig_deflt = 'current timestamp';
+ $info->{original}{default_value} = \$orig_deflt;
}
}