/;
use mro 'c3';
-our $VERSION = '0.07010';
+our $VERSION = '0.07025';
=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>,