Anonymous

package DBIx::Class::Schema::Loader::DBI::Informix;

use strict;
use warnings;
use base 'DBIx::Class::Schema::Loader::DBI';
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;

sub _tables_list
{
        my $self = shift;
        my $dbh = $self->schema->storage->dbh;

        my @tables = $dbh->func('_tables');

        foreach (@tables) {
                s/\"//g;
                s/\s//g;
        }

        return grep { /^[a-z\.]+$/ } @tables;
}

1;