lib/DBIx/Class/Schema/Loader/DBI/ADO/Microsoft_SQL_Server.pm

   1 package DBIx::Class::Schema::Loader::DBI::ADO::Microsoft_SQL_Server;
   2
   3 use strict;
   4 use warnings;
   5 use base qw/
   6     DBIx::Class::Schema::Loader::DBI::ADO
   7     DBIx::Class::Schema::Loader::DBI::MSSQL
   8 /;
   9 use mro 'c3';
  10
  11 our $VERSION = '0.07036_01';
  12
  13 =head1 NAME
  14
  15 DBIx::Class::Schema::Loader::DBI::ADO::Microsoft_SQL_Server - ADO wrapper for
  16 L<DBIx::Class::Schema::Loader::DBI::MSSQL>
  17
  18 =head1 DESCRIPTION
  19
  20 Proxy for L<DBIx::Class::Schema::Loader::DBI::MSSQL> when using L<DBD::ADO>.
  21
  22 See L<DBIx::Class::Schema::Loader::Base> for usage information.
  23
  24 =cut
  25
  26 # Silence ADO "Changed database context" warnings
  27 sub _switch_db {
  28     my $self = shift;
  29     my $warn_handler = $SIG{__WARN__} || sub { warn @_ };
  30     local $SIG{__WARN__} = sub {
  31         $warn_handler->(@_) unless $_[0] =~ /Changed database context/;
  32     };
  33     return $self->next::method(@_);
  34 }
  35
  36 =head1 SEE ALSO
  37
  38 L<DBIx::Class::Schema::Loader::DBI::ADO>,
  39 L<DBIx::Class::Schema::Loader::DBI::MSSQL>,
  40 L<DBIx::Class::Schema::Loader>, L<DBIx::Class::Schema::Loader::Base>,
  41 L<DBIx::Class::Schema::Loader::DBI>
  42
  43 =head1 AUTHOR
  44
  45 See L<DBIx::Class::Schema::Loader/AUTHOR> and L<DBIx::Class::Schema::Loader/CONTRIBUTORS>.
  46
  47 =head1 LICENSE
  48
  49 This library is free software; you can redistribute it and/or modify it under
  50 the same terms as Perl itself.
  51
  52 =cut
  53
  54 1;