1package DBIx::Class::Schema::Loader::DBI::Sybase::Microsoft_SQL_Server; 2 3use strict; 4use warnings; 5use base 'DBIx::Class::Schema::Loader::DBI::MSSQL'; 6use Carp::Clan qw/^DBIx::Class/; 7use Class::C3; 8 9our $VERSION = '0.05003'; 10 11=head1 NAME 12 13DBIx::Class::Schema::Loader::DBI::Sybase::Microsoft_SQL_Server - Subclass for 14using MSSQL through DBD::Sybase 15 16=head1 DESCRIPTION 17 18See L<DBIx::Class::Schema::Loader::Base>. 19 20Subclasses L<DBIx::Class::Schema::Loader::DBI::MSSQL>. 21 22=cut 23 24# Returns an array of table names 25sub _tables_list { 26 my $self = shift; 27 28 my ($table, $type) = @_ ? @_ : ('%', '%'); 29 30 my $dbh = $self->schema->storage->dbh; 31 my @tables = $dbh->tables(undef, $self->db_schema, $table, $type); 32 33 return $self->_filter_tables(@tables); 34} 35 36=head1 SEE ALSO 37 38L<DBIx::Class::Schema::Loader::DBI::Sybase>, 39L<DBIx::Class::Schema::Loader::DBI::MSSQL>, 40L<DBIx::Class::Schema::Loader::DBI> 41L<DBIx::Class::Schema::Loader>, L<DBIx::Class::Schema::Loader::Base>, 42 43=head1 AUTHOR 44 45See L<DBIx::Class::Schema::Loader/AUTHOR> and L<DBIx::Class::Schema::Loader/CONTRIBUTORS>. 46 47=head1 LICENSE 48 49This library is free software; you can redistribute it and/or modify it under 50the same terms as Perl itself. 51 52=cut 53 541; 55