1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
package Parse::Dia::SQL::Output::MySQL::InnoDB;
# $Id: InnoDB.pm,v 1.4 2009/03/13 16:05:59 aff Exp $
=pod
=head1 NAME
Parse::Dia::SQL::Output::MySQL::InnoDB - Create SQL for MySQL InnoDB.
=head1 DESCRIPTION
Note that MySQL has support for difference storage engines. Each
storage engine has its' own properties and the respective SQL differs.
=head1 SEE ALSO
Parse::Dia::SQL::Output
Parse::Dia::SQL::Output::MySQL
Parse::Dia::SQL::Output::MySQL::InnoDB
=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::MySQL}; # extends
require Parse::Dia::SQL::Logger;
require Parse::Dia::SQL::Const;
=head2 new()
The constructor.
=cut
sub new {
my ($class, %param) = @_;
my $self = {};
$param{db} = q{mysql-innodb};
$param{table_postfix_options} = [ 'ENGINE=InnoDB', 'DEFAULT CHARSET=latin1' ],
$self = $class->SUPER::new(%param);
bless($self, $class);
#die "backticks:" . $self->{backticks};
# MySQL-InnoDB only
$self->{BACKTICK_CHAR} = q{`};
return $self;
}
# Drop all foreign keys
sub _get_fk_drop {
my $self = shift;
my $sqlstr = '';
return unless $self->_check_associations();
# drop fk
foreach my $association (@{ $self->{associations} }) {
my ($table_name, $constraint_name, undef, undef, undef, undef) =
@{$association};
# Add backticks to column name if option is enabled
$table_name = $self->_quote_identifier($table_name);
$constraint_name = $self->_quote_identifier($constraint_name);
$sqlstr .=
qq{alter table $table_name drop foreign key $constraint_name }
. $self->{end_of_statement}
. $self->{newline};
}
return $sqlstr;
}
# Add quotes (`backticks`) to identifier if option is set and db-type
# supports it (i.e. mysql-innodb). Used to enclosed table name, index
# name etc with `backticks`
sub _quote_identifier {
my ( $self, $identifier ) = @_;
# Add backticks to column name if option is enabled
if ($self->{backticks}) {
$identifier =
$self->{BACKTICK_CHAR} . $identifier . $self->{BACKTICK_CHAR};
}
return $identifier;
}
1;
__END__
|
