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 use DBIx::Class::Schema::Loader::Utils qw/sigwarn_silencer/;
  11
  12 use namespace::clean;
  13
  14 our $VERSION = '0.07047';
  15
  16 =head1 NAME
  17
  18 DBIx::Class::Schema::Loader::DBI::ADO::Microsoft_SQL_Server - ADO wrapper for
  19 L<DBIx::Class::Schema::Loader::DBI::MSSQL>
  20
  21 =head1 DESCRIPTION
  22
  23 Proxy for L<DBIx::Class::Schema::Loader::DBI::MSSQL> when using L<DBD::ADO>.
  24
  25 See L<DBIx::Class::Schema::Loader::Base> for usage information.
  26
  27 =cut
  28
  29 # Silence ADO "Changed database context" warnings
  30 sub _switch_db {
  31     my $self = shift;
  32     local $SIG{__WARN__} = sigwarn_silencer(qr/Changed database context/);
  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 AUTHORS
  44
  45 See L<DBIx::Class::Schema::Loader/AUTHORS>.
  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;