Parse::Dia::SQL::Const - Constants and lookup methods

Parse-Dia-SQL documentation Contained in the Parse-Dia-SQL distribution.

Index

Code Index:

NAME

Top

Parse::Dia::SQL::Const - Constants and lookup methods

SYNOPSIS

Top

    use Parse::Dia::SQL::Const;
    my $const = Parse::Dia::SQL::Const->new();
    my @rdbms = $const->get_rdbms();

DESCRIPTION

Top

This module contains constants and related lookup methods.

new

The constructor. No arguments.

get_rdbms

Return list of supported databases.

get_small_pack_gen_seq

Return list with sequence for small packages processing.

get_class_name

Database to class lookup. Used by Output->new.

Parse-Dia-SQL documentation Contained in the Parse-Dia-SQL distribution. 
package Parse::Dia::SQL::Const;

# $Id: Const.pm,v 1.8 2009/04/01 07:31:10 aff Exp $



use warnings;
use strict;

use lib q{lib};
use Parse::Dia::SQL::Logger;

# List of supported relational database management systems
my @RDBMS = qw (
  db2
  informix
  ingres
  innodb
  mssql
  mysql-myisam
  mysql-innodb
  oracle
  postgres
  sas
  sybase
  sqlite3
);

my %OUTPUT_CLASS = (
  'db2'          => 'Parse::Dia::SQL::Output::DB2',
  'informix'     => 'Parse::Dia::SQL::Output::Informix',
  'ingres'       => 'Parse::Dia::SQL::Output::Ingres',
  'innodb'       => 'Parse::Dia::SQL::Output::InnoDB',
  'mssql'        => 'Parse::Dia::SQL::Output::MSSQL',
  'mysql-innodb' => 'Parse::Dia::SQL::Output::MySQL::InnoDB',
  'mysql-myisam' => 'Parse::Dia::SQL::Output::MySQL::MyISAM',
  'oracle'       => 'Parse::Dia::SQL::Output::Oracle',
  'postgres'     => 'Parse::Dia::SQL::Output::Postgres',
  'sas'          => 'Parse::Dia::SQL::Output::SAS',
  'sybase'       => 'Parse::Dia::SQL::Output::Sybase',
  'sqlite3'      => 'Parse::Dia::SQL::Output::SQLite3',
);

# Each statement type must be generated in correct order
my @SMALL_PACK_GEN_SEQ = qw (
  pre
  post
  table
  pk
  columns
  index
  typemap
  macropre
  macropost
);



sub new {
  my ( $class, %param ) = @_;
  my $self = {};

  bless( $self, $class );
  return $self;
}


sub get_rdbms {
  my $self = shift;
  return @RDBMS;
}


sub get_small_pack_gen_seq {
  my $self = shift;
  return @SMALL_PACK_GEN_SEQ;
}



sub get_class_name {
  my ($self, $db) = @_;
  if (exists($OUTPUT_CLASS{$db})) {
		return $OUTPUT_CLASS{$db};
  } else {
		return;
  }
}

1;

__END__