lib/DBIx/Class/Schema/Loader/DBI/Sybase/Microsoft_SQL_Server.pm

   1 package DBIx::Class::Schema::Loader::DBI::Sybase::Microsoft_SQL_Server;
   2
   3 use strict;
   4 use warnings;
   5 use base 'DBIx::Class::Schema::Loader::DBI::MSSQL';
   6 use Carp::Clan qw/^DBIx::Class/;
   7 use Class::C3;
   8
   9 our $VERSION = '0.04999_12';
  10
  11 =head1 NAME
  12
  13 DBIx::Class::Schema::Loader::DBI::Sybase::Microsoft_SQL_Server - Subclass for
  14 using MSSQL through DBD::Sybase
  15
  16 =head1 DESCRIPTION
  17
  18 See L<DBIx::Class::Schema::Loader::Base>.
  19
  20 Subclasses L<DBIx::Class::Schema::Loader::DBI::MSSQL>.
  21
  22 =cut
  23
  24 # Returns an array of table names
  25 sub _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 @tables;
  34 }
  35
  36 =head1 SEE ALSO
  37
  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>,
  42
  43 =head1 AUTHOR
  44
  45 See 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;