—
—
—
—

              
package Parse::Dia::SQL::Output::Oracle;
# $Id: Oracle.pm,v 1.2 2009/03/02 13:41:39 aff Exp $
HideShow 12 lines of Pod
=pod
=head1 NAME 
Parse::Dia::SQL::Output::Oracle - Create SQL for Oracle.
=head1 SEE ALSO
 Parse::Dia::SQL::Output
=cut
use warnings;
use strict;
use Data::Dumper;
use File::Spec::Functions qw(catfile);
use lib q{lib};
use base q{Parse::Dia::SQL::Output}; # extends
require Parse::Dia::SQL::Logger;
require Parse::Dia::SQL::Const;
HideShow 6 lines of Pod
=head2 new
The constructor.  Arguments:
=cut
sub new {
  my ( $class, %param ) = @_;
  my $self = {};
  # Set defaults for oracle
  $param{db} = q{oracle}; 
  $param{object_name_max_length} = $param{object_name_max_length} || 30;
  $self = $class->SUPER::new(%param);
  bless( $self, $class );
  return $self;
}
HideShow 6 lines of Pod
=head2 _get_drop_index_sql
Create drop index sql for given index. Discard tablename.
=cut
sub _get_drop_index_sql {
  my ( $self, $tablename, $indexname ) = @_;
  return qq{drop index $indexname cascade constraints}
    . $self->{end_of_statement}
    . $self->{newline};
}
HideShow 6 lines of Pod
=head2 _get_drop_schema_sql
Oracle do not support keyword 'if exists' in 'drop table' statement
=cut
sub _get_drop_schema_sql {
  my ($self, $tablename) = @_;
  return
      qq{drop table $tablename}
    . $self->{end_of_statement}
    . $self->{newline};
}
1;
__END__