X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FDBI%2FMSSQL.pm;h=032e625b73f529009cc24362575a8490d5ee6efe;hb=dc767cd32c6728d4d9c3504acd259c0b2f19da2b;hp=72a0d270d4f8d00ad779db40500b34691002aeaa;hpb=8823ddfc60cd173fa8c0bd7be9810321b4c125eb;p=dbsrgits%2FDBIx-Class-Schema-Loader.git diff --git a/lib/DBIx/Class/Schema/Loader/DBI/MSSQL.pm b/lib/DBIx/Class/Schema/Loader/DBI/MSSQL.pm index 72a0d27..032e625 100644 --- a/lib/DBIx/Class/Schema/Loader/DBI/MSSQL.pm +++ b/lib/DBIx/Class/Schema/Loader/DBI/MSSQL.pm @@ -2,14 +2,11 @@ package DBIx::Class::Schema::Loader::DBI::MSSQL; use strict; use warnings; -use base qw/ - DBIx::Class::Schema::Loader::DBI - DBIx::Class::Schema::Loader::DBI::Sybase::Common -/; +use base 'DBIx::Class::Schema::Loader::DBI::Sybase::Common'; use Carp::Clan qw/^DBIx::Class/; use Class::C3; -our $VERSION = '0.04999_10'; +our $VERSION = '0.05001'; =head1 NAME @@ -38,18 +35,6 @@ sub _setup { $self->_set_quote_char_and_name_sep; } -# remove 'IDENTITY' from column data_type -sub _columns_info_for { - my $self = shift; - my $result = $self->next::method(@_); - - for my $col (keys %$result) { - $result->{$col}->{data_type} =~ s/\s* identity \s*//ix; - } - - return $result; -} - sub _table_pk_info { my ($self, $table) = @_; my $dbh = $self->schema->storage->dbh; @@ -160,7 +145,7 @@ L =head1 AUTHOR -See L. +See L and L. =head1 LICENSE