-package DBIx::Class::Schema::Loader::DBI::Oracle;
+package # hide from pause/cpan for now, as there's a permissions
+ # issue and it's screwing the rest of the package
+ DBIx::Class::Schema::Loader::DBI::Oracle;
use strict;
use warnings;
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.03999_01';
+our $VERSION = '0.04004';
=head1 NAME
=cut
+sub _setup {
+ my $self = shift;
+
+ $self->next::method(@_);
+
+ my $dbh = $self->schema->storage->dbh;
+ $self->{db_schema} ||= $dbh->selectrow_array('SELECT USER FROM DUAL', {});
+}
+
+
sub _table_columns {
my ($self, $table) = @_;