X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FSybase%2FMSSQL.pm;h=bd833df4ddac4c47565b57938b8b5a50f507cb67;hb=8c4b6c50e873a2b5993d1bfe0f40763d994b7da4;hp=81222e93c9f021abdd81ac728e5c9a0a0a7fcee5;hpb=3520183497fd1ee92daf6c52d79f2bb9b6e99691;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/lib/DBIx/Class/Storage/DBI/Sybase/MSSQL.pm b/lib/DBIx/Class/Storage/DBI/Sybase/MSSQL.pm index 81222e9..bd833df 100644 --- a/lib/DBIx/Class/Storage/DBI/Sybase/MSSQL.pm +++ b/lib/DBIx/Class/Storage/DBI/Sybase/MSSQL.pm @@ -3,15 +3,32 @@ package DBIx::Class::Storage::DBI::Sybase::MSSQL; use strict; use warnings; -use Class::C3; -use base qw/DBIx::Class::Storage::DBI::MSSQL DBIx::Class::Storage::DBI::Sybase/; +use Carp::Clan qw/^DBIx::Class/; + +carp 'Setting of storage_type is redundant as connections through DBD::Sybase' + .' are now properly recognized and reblessed into the appropriate subclass' + .' (DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server in the' + .' case of MSSQL). Please remove the explicit call to' + .q/ $schema->storage_type('::DBI::Sybase::MSSQL')/ + .', as this storage class has been deprecated in favor of the autodetected' + .' ::DBI::Sybase::Microsoft_SQL_Server'; + + +use base qw/DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server/; +use mro 'c3'; 1; =head1 NAME -DBIx::Class::Storage::DBI::Sybase::MSSQL - Storage::DBI subclass for MSSQL via -DBD::Sybase +DBIx::Class::Storage::DBI::Sybase::MSSQL - (DEPRECATED) Legacy storage class for MSSQL via DBD::Sybase + +=head1 NOTE + +Connections through DBD::Sybase are now correctly recognized and reblessed +into the appropriate subclass (L +in the case of MSSQL). Please remove the explicit storage_type setting from your +schema. =head1 SYNOPSIS @@ -29,6 +46,8 @@ after connecting. Brandon L Black +Justin Hunter + =head1 LICENSE You may distribute this code under the same terms as Perl itself.