use warnings;
use base 'DBIx::Class::Schema::Loader::DBI::Sybase::Common';
use Carp::Clan qw/^DBIx::Class/;
-use Class::C3;
+use mro 'c3';
-our $VERSION = '0.05003';
+our $VERSION = '0.07001';
=head1 NAME
=cut
-sub _is_case_sensitive { 1 }
+sub _setup {
+ my $self = shift;
+
+ $self->next::method(@_);
+
+ if (not defined $self->preserve_case) {
+ $self->preserve_case(1);
+ }
+}
sub _rebless {
my $self = shift;
sub _table_uniq_info {
my ($self, $table) = @_;
+ # FIXME - remove blind mask (can't test sybase yet)
local $SIG{__WARN__} = sub {};
my $dbh = $self->schema->storage->dbh;