X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FDBI%2FODBC%2FMicrosoft_SQL_Server.pm;h=1c3dfddf0c3a100cece6aee54c837b9d462896f6;hb=dc783fab900d073db1fb0e86b709cbb65bd364b7;hp=5b956ab793fdcc3074e0fd95122fdd58df4ddec0;hpb=995edf3f035cbd35082df6d41230e84472ba4270;p=dbsrgits%2FDBIx-Class-Schema-Loader.git diff --git a/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Microsoft_SQL_Server.pm b/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Microsoft_SQL_Server.pm index 5b956ab..1c3dfdd 100644 --- a/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Microsoft_SQL_Server.pm +++ b/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Microsoft_SQL_Server.pm @@ -1,16 +1,41 @@ package DBIx::Class::Schema::Loader::DBI::ODBC::Microsoft_SQL_Server; -use base 'DBIx::Class::Schema::Loader::DBI::MSSQL'; +use strict; +use warnings; +use base qw/ + DBIx::Class::Schema::Loader::DBI::ODBC + DBIx::Class::Schema::Loader::DBI::MSSQL +/; +use mro 'c3'; -sub _tables_list { - my $self = shift; +our $VERSION = '0.07045'; - my $dbh = $self->schema->storage->dbh; - my @tables = $dbh->tables(undef, $self->db_schema); - s/\Q$self->{_quoter}\E//g for @tables; - s/^.*\Q$self->{_namesep}\E// for @tables; +=head1 NAME - return @tables; -} +DBIx::Class::Schema::Loader::DBI::ODBC::Microsoft_SQL_Server - ODBC wrapper for +L + +=head1 DESCRIPTION + +Proxy for L when using L. + +See L for usage information. + +=head1 SEE ALSO + +L, +L, L, +L + +=head1 AUTHORS + +See L. + +=head1 LICENSE + +This library is free software; you can redistribute it and/or modify it under +the same terms as Perl itself. + +=cut 1;