- # set default for the callback...
- ##
-
- my $default;
- my $orig_default = $self->default;
- if ( $driver_class->can("_column_value_needs_quoting") ) {
- if ( $driver_class->_column_value_needs_quoting($self)
- && !ref($self->default)
- )
- {
- $default = $dbh->quote($self->default);
- } else {
- $default = ref($self->default) ? ${$self->default} : $self->default;
- }
- } elsif ( defined($self->default) && !ref($self->default) && $self->default ne ''
- && ref($dbh)
- # false laziness: nicked from FS::Record::_quote
- && ( $self->default !~ /^\-?\d+(\.\d+)?$/
- || $type =~ /(char|binary|blob|text)$/i
- )
- ) {
- $default = $dbh->quote($self->default);
- } else {
- $default = ref($self->default) ? ${$self->default} : $self->default;
- }
- $self->default($default);
-
- ##