pub/Impl: Lib/IMPL/SQL/Schema/Traits/mysql.pm comparison

comparison Lib/IMPL/SQL/Schema/Traits/mysql.pm @ 206:c8fe3f84feba

+IMPL::Web::Handlers::ViewSelector +IMPL::Web::Handlers::ErrorHandler *IMPL::Web::Handlers::RestController moved types mappings to ViewSelector

author	sergey
date	Thu, 03 May 2012 16:48:39 +0400
parents	76515373dac0
children	4ddb27ff4a0b

comparison

equal deleted inserted replaced

-:891c04080658
+:c8fe3f84feba
 $sql[$#sql].=';';
 } else {
 push @sql, ');';
 }
-return map { ("\t" x $level) . $_ } @sql;
+return map { ("    " x $level) . $_ } @sql;
 }
 sub formatDropTable {
 my ($tableName,$level) = @_;
-return "\t"x$level."DROP TABLE ".quote_names($tableName).";";
+return "    "x$level."DROP TABLE ".quote_names($tableName).";";
 }
 sub formatTableTag {
 my ($tag,$level) = @_;
-return map { "\t"x$level . "$_ = ".$tag->{$_} } grep {/^(ENGINE)$/i} keys %{$tag};
+return map { "    "x$level . "$_ = ".$tag->{$_} } grep {/^(ENGINE)$/i} keys %{$tag};
 }
 sub formatColumn {
 my ($column,$level) = @_;
 $level ||= 0;
-return "\t"x$level.quote_names($column->Name)." ".formatType($column->Type)." ".($column->CanBeNull ? 'NULL' : 'NOT NULL').($column->DefaultValue ? formatValueToType($column->DefaultValue,$column->Type) : '' ).($column->Tag ? ' '.join(' ',$column->Tag) : '');
+return "    "x$level.quote_names($column->Name)." ".formatType($column->Type)." ".($column->CanBeNull ? 'NULL' : 'NOT NULL').($column->DefaultValue ? formatValueToType($column->DefaultValue,$column->Type) : '' ).($column->Tag ? ' '.join(' ',$column->Tag) : '');
 }
 sub formatType {
 my ($type) = @_;
 my $format = $TypesFormat{uc $type->Name} or die new Exception('The unknown type name',$type->Name);
 my $name = quote_names($constraint->Name);
 my $columns = join(',',map quote_names($_->Name),@{$constraint->Columns});
 if (ref $constraint eq 'IMPL::SQL::Schema::Constraint::PrimaryKey') {
-return "\t"x$level."PRIMARY KEY ($columns)";
+return "    "x$level."PRIMARY KEY ($columns)";
 } elsif ($constraint eq 'IMPL::SQL::Schema::Constraint::Unique') {
-return "\t"x$level."UNIQUE $name ($columns)";
+return "    "x$level."UNIQUE $name ($columns)";
 } elsif ($constraint eq 'IMPL::SQL::Schema::Constraint::Index') {
-return "\t"x$level."INDEX $name ($columns)";
+return "    "x$level."INDEX $name ($columns)";
 } else {
 die new IMPL::InvalidArgumentException('The unknown constraint', ref $constraint);
 }
 }
 not $constraint->OnUpdate or grep { uc $constraint->OnUpdate eq $_ } ('RESTRICT','CASCADE','SET NULL','NO ACTION','SET DEFAULT') or die new IMPL::Exception('Invalid ON UPDATE reference',$constraint->OnUpdate);
 my $refname = quote_names($constraint->ReferencedPrimaryKey->Table->Name);
 my $refcolumns = join(',',map quote_names($_->Name),@{$constraint->ReferencedPrimaryKey->Columns});
 return (
-"\t"x$level.
+"    "x$level.
 "CONSTRAINT $name FOREIGN KEY $name ($columns) REFERENCES $refname ($refcolumns)".
 ($constraint->OnUpdate ? 'ON UPDATE'.$constraint->OnUpdate : '').
 ($constraint->OnDelete ? 'ON DELETE'.$constraint->OnDelete : '')
 );
 }
 sub formatAlterTableRename {
 my ($oldName,$newName,$level) = @_;
-return "\t"x$level."ALTER TABLE ".quote_names($oldName)." RENAME TO ".quote_names($newName).";";
+return "    "x$level."ALTER TABLE ".quote_names($oldName)." RENAME TO ".quote_names($newName).";";
 }
 sub formatAlterTableDropColumn {
 my ($tableName, $columnName,$level) = @_;
-return "\t"x$level."ALTER TABLE ".quote_names($tableName)." DROP COLUMN ".quote_names($columnName).";";
+return "    "x$level."ALTER TABLE ".quote_names($tableName)." DROP COLUMN ".quote_names($columnName).";";
 }
 =pod
 ALTER TABLE `test`.`user` ADD COLUMN `my_col` VARCHAR(45) NOT NULL AFTER `name2`
 =cut
 sub formatAlterTableAddColumn {
 my ($tableName, $column, $table, $pos, $level) = @_;
 my $posSpec = $pos == 0 ? 'FIRST' : 'AFTER '.quote_names($table->ColumnAt($pos-1)->Name);
-return "\t"x$level."ALTER TABLE ".quote_names($tableName)." ADD COLUMN ".formatColumn($column) .' '. $posSpec.";";
+return "    "x$level."ALTER TABLE ".quote_names($tableName)." ADD COLUMN ".formatColumn($column) .' '. $posSpec.";";
 }
 =pod
 ALTER TABLE `test`.`manager` MODIFY COLUMN `description` VARCHAR(256) NOT NULL DEFAULT NULL;
 =cut
 sub formatAlterTableChangeColumn {
 my ($tableName,$column,$table,$pos,$level) = @_;
 my $posSpec = $pos == 0 ? 'FIRST' : 'AFTER '.quote_names($table->ColumnAt($pos-1)->Name);
-return "\t"x$level."ALTER TABLE ".quote_names($tableName)." MODIFY COLUMN ".formatColumn($column).' '. $posSpec.";";
+return "    "x$level."ALTER TABLE ".quote_names($tableName)." MODIFY COLUMN ".formatColumn($column).' '. $posSpec.";";
 }
 =pod
 ALTER TABLE `test`.`manager` DROP INDEX `Index_2`;
 =cut
 } elsif (UNIVERSAL::isa($constraint,'IMPL::SQL::Schema::Constraint::Index')) {
 $constraintName = 'INDEX '.quote_names($constraint->Name);
 } else {
 die new IMPL::Exception("The unknow type of the constraint",ref $constraint);
 }
-return "\t"x$level."ALTER TABLE ".quote_names($tableName)." DROP $constraintName;";
+return "    "x$level."ALTER TABLE ".quote_names($tableName)." DROP $constraintName;";
 }
 =pod
 ALTER TABLE `test`.`session` ADD INDEX `Index_2`(`id`, `name`);
 =cut
 sub formatAlterTableAddConstraint {
 my ($tableName,$constraint,$level) = @_;
-return "\t"x$level."ALTER TABLE ".quote_names($tableName)." ADD ".formatConstraint($constraint,0).';';
+return "    "x$level."ALTER TABLE ".quote_names($tableName)." ADD ".formatConstraint($constraint,0).';';
 }
 sub CreateTable {
 my ($this,$tbl,%option) = @_;

Mercurial > pub > Impl

comparison Lib/IMPL/SQL/Schema/Traits/mysql.pm @ 206:c8fe3f84feba