fix some warnings for MSSQL over ADO
[dbsrgits/DBIx-Class-Schema-Loader.git] / 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.07010';
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 sub _table_comment {
27     local $^W = 0; # invalid object warnings
28     shift->next::method(@_);
29 }
30
31 sub _column_comment {
32     local $^W = 0; # invalid object warnings
33     shift->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;