- my $db_catalog =
- scalar(eval "DBIx::DBSchema::DBD::$driver->default_db_catalog");
- my $db_schema =
- scalar(eval "DBIx::DBSchema::DBD::$driver->default_db_schema");
- my $sth = $dbh->table_info($db_catalog, $db_schema, '', 'TABLE')
- or die $dbh->errstr;
- #map { $_->{TABLE_NAME} } grep { $_->{TABLE_TYPE} eq 'TABLE' }
- # @{ $sth->fetchall_arrayref({ TABLE_NAME=>1, TABLE_TYPE=>1}) };
- map { $_->[0] } grep { $_->[1] =~ /^TABLE$/i }
- @{ $sth->fetchall_arrayref([2,3]) };