use Class::C3;
use Carp::Clan qw/^DBIx::Class/;
-our $VERSION = '0.05002';
+our $VERSION = '0.05003';
=head1 NAME
my $col_name = $info->{COLUMN_NAME};
$col_name =~ s/^\"(.*)\"$/$1/;
- my $extra_info = $self->_extra_column_info($info) || {};
+ my $extra_info = $self->_extra_column_info(
+ $table, $col_name, $column_info, $info
+ ) || {};
$column_info = { %$column_info, %$extra_info };
- my $custom_info = $self->_custom_column_info( $table, $col_name, $column_info ) || {};
- $column_info = { %$column_info, %$custom_info };
-
- my $datetime_info = $self->_datetime_column_info( $table, $col_name, $column_info ) || {};
- $column_info = { %$column_info, %$datetime_info };
-
$result{$col_name} = $column_info;
}
$sth->finish;
$column_info->{size} = $2;
}
- my $extra_info = $self->_extra_column_info($table, $columns[$i], $sth, $i) || {};
+ my $extra_info = $self->_extra_column_info($table, $columns[$i], $column_info) || {};
$column_info = { %$column_info, %$extra_info };
- my $custom_info = $self->_custom_column_info( $table, $columns[$i], $column_info ) || {};
- $column_info = { %$column_info, %$custom_info };
-
- my $datetime_info = $self->_datetime_column_info( $table, $columns[$i], $column_info ) || {};
- $column_info = { %$column_info, %$datetime_info };
-
$result{$columns[$i]} = $column_info;
}
$sth->finish;