DBIx::Class::Schema::Loader::DBI::ODBC::ACCESS
/;
use mro 'c3';
-use Carp::Clan qw/^DBIx::Class/;
use Try::Tiny;
use namespace::clean;
-our $VERSION = '0.07009';
+our $VERSION = '0.07019';
=head1 NAME
while (my ($col, $info) = each %$result) {
my $data_type = $info->{data_type};
- my $col_obj;
-
- my $cols = $self->_adox_catalog->Tables->Item($table)->Columns;
-
- for my $col_idx (0..$cols->Count-1) {
- $col_obj = $cols->Item($col_idx);
- if ($self->preserve_case) {
- last if $col_obj->Name eq $col;
- }
- else {
- last if lc($col_obj->Name) eq lc($col);
- }
- }
-
- if ($col_obj->Attributes | 2 == 2) {
- $info->{is_nullable} = 1;
- }
+ my $col_obj = $self->_adox_column($table, $col);
if ($data_type eq 'long') {
$info->{data_type} = 'integer';
$info->{data_type} = 'binary';
last;
}
-
}
$info->{size} = $col_obj->DefinedSize;