Commit | Line | Data |
3b17d988 |
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'; |
3b17d988 |
10 | |
cb9c535f |
11 | our $VERSION = '0.07034_02'; |
3b17d988 |
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 | |
b826c589 |
24 | =cut |
25 | |
116431d6 |
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(@_); |
b826c589 |
34 | } |
35 | |
3b17d988 |
36 | =head1 SEE ALSO |
37 | |
c4a69b87 |
38 | L<DBIx::Class::Schema::Loader::DBI::ADO>, |
3b17d988 |
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; |