DBIx::Class::Schema::Loader::DBI::MSSQL
/;
use mro 'c3';
-use Carp::Clan qw/^DBIx::Class/;
-use namespace::clean;
-our $VERSION = '0.07007';
+our $VERSION = '0.07023';
=head1 NAME
See L<DBIx::Class::Schema::Loader::Base> for usage information.
+=cut
+
+# Silence ADO "Changed database context" warnings
+sub _switch_db {
+ my $self = shift;
+ my $warn_handler = $SIG{__WARN__} || sub { warn @_ };
+ local $SIG{__WARN__} = sub {
+ $warn_handler->(@_) unless $_[0] =~ /Changed database context/;
+ };
+ return $self->next::method(@_);
+}
+
=head1 SEE ALSO
+L<DBIx::Class::Schema::Loader::DBI::ADO>,
L<DBIx::Class::Schema::Loader::DBI::MSSQL>,
L<DBIx::Class::Schema::Loader>, L<DBIx::Class::Schema::Loader::Base>,
L<DBIx::Class::Schema::Loader::DBI>