1 package DBIx::Class::Schema::Loader::DBI::Sybase::Microsoft_SQL_Server;
5 use base 'DBIx::Class::Schema::Loader::DBI::MSSQL';
6 use Carp::Clan qw/^DBIx::Class/;
9 our $VERSION = '0.04999_12';
13 DBIx::Class::Schema::Loader::DBI::Sybase::Microsoft_SQL_Server - Subclass for
14 using MSSQL through DBD::Sybase
18 See L<DBIx::Class::Schema::Loader::Base>.
20 Subclasses L<DBIx::Class::Schema::Loader::DBI::MSSQL>.
24 # Returns an array of table names
28 my ($table, $type) = @_ ? @_ : ('%', '%');
30 my $dbh = $self->schema->storage->dbh;
31 my @tables = $dbh->tables(undef, $self->db_schema, $table, $type);
38 L<DBIx::Class::Schema::Loader::DBI::Sybase>,
39 L<DBIx::Class::Schema::Loader::DBI::MSSQL>,
40 L<DBIx::Class::Schema::Loader::DBI>
41 L<DBIx::Class::Schema::Loader>, L<DBIx::Class::Schema::Loader::Base>,
45 See L<DBIx::Class::Schema::Loader/CONTRIBUTORS>.
49 This library is free software; you can redistribute it and/or modify it under
50 the same terms as Perl itself.