1 package DBIx::Class::Schema::Loader::DBI::Component::QuotedDefault;
7 our $VERSION = '0.05000';
11 DBIx::Class::Schema::Loader::DBI::Component::QuotedDefault -- Loader Component
12 to parse quoted default constants and functions
16 If C<COLUMN_DEF> from L<DBI/column_info> returns character constants quoted,
17 then we need to remove the quotes. This also allows distinguishing between
18 default functions without information schema introspection.
22 sub _columns_info_for {
26 my $result = $self->next::method(@_);
28 while (my ($col, $info) = each %$result) {
29 if (my $def = $info->{default_value}) {
33 if ($def =~ /^["'](.*?)['"]\z/) {
34 $info->{default_value} = $1;
37 $info->{default_value} = $def =~ /^\d/ ? $def : \$def;
49 L<DBIx::Class::Schema::Loader>, L<DBIx::Class::Schema::Loader::Base>,
50 L<DBIx::Class::Schema::Loader::DBI>
54 See L<DBIx::Class::Schema::Loader/AUTHOR> and L<DBIx::Class::Schema::Loader/CONTRIBUTORS>.
58 This library is free software; you can redistribute it and/or modify it under
59 the same terms as Perl itself.