use strict;
use warnings;
+use base 'DBIx::Class::Schema::Loader::DBI';
use mro 'c3';
-our $VERSION = '0.07010';
+our $VERSION = '0.07029';
=head1 NAME
elsif ($def =~ /^\((-?\d.*?)\)(?:::[\w\s]+)?\z/) {
$info->{default_value} = $1;
}
- elsif ($def =~ /^(\d.*?)(?:::[\w\s]+)?\z/) {
+ elsif ($def =~ /^(-?\d.*?)(?:::[\w\s]+)?\z/) {
$info->{default_value} = $1;
}
elsif ($def =~ /^NULL:?/i) {
- $info->{default_value} = \'null';
+ my $null = 'null';
+ $info->{default_value} = \$null;
}
else {
$info->{default_value} = \$def;