pub/Impl: Lib/IMPL/SQL/Schema/Traits.pm annotate

annotate Lib/IMPL/SQL/Schema/Traits.pm @ 393:69a1f1508696

minor security refactoring

author	cin
date	Fri, 14 Feb 2014 16:41:12 +0400
parents	2f06250bab5f
children

rev	line source
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	1 package IMPL::SQL::Schema::Traits;
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 44 diff changeset	2 use strict;
163 6ce1f052b90a temp commit wizard parents: 49 diff changeset	3 use IMPL::_core::version;
6ce1f052b90a temp commit wizard parents: 49 diff changeset	4 use IMPL::Exception();
6ce1f052b90a temp commit wizard parents: 49 diff changeset	5
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	6 use parent qw(IMPL::Object);
76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	7
168 6148f89bb7bf IMPL::SQL::Schema::Traits::Diff alfa version sourcer parents: 167 diff changeset	8 # required for use with typeof operator
6148f89bb7bf IMPL::SQL::Schema::Traits::Diff alfa version sourcer parents: 167 diff changeset	9 use IMPL::SQL::Schema::Constraint::PrimaryKey();
6148f89bb7bf IMPL::SQL::Schema::Traits::Diff alfa version sourcer parents: 167 diff changeset	10 use IMPL::SQL::Schema::Constraint::Index();
6148f89bb7bf IMPL::SQL::Schema::Traits::Diff alfa version sourcer parents: 167 diff changeset	11 use IMPL::SQL::Schema::Constraint::Unique();
6148f89bb7bf IMPL::SQL::Schema::Traits::Diff alfa version sourcer parents: 167 diff changeset	12 use IMPL::SQL::Schema::Constraint::ForeignKey();
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 44 diff changeset	13
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	14 ###################################################
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	15
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	16 package IMPL::SQL::Schema::Traits::Table;
76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	17 use base qw(IMPL::Object::Fields);
163 6ce1f052b90a temp commit wizard parents: 49 diff changeset	18
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	19 use fields qw(
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	20 name
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	21 columns
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	22 constraints
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	23 options
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	24 );
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	25
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	26 sub CTOR {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	27 my ($this,$table,$columns,$constraints,$options) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	28
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	29 $this->{name} = $table or die new IMPL::InvalidArgumentException(table => "A table name is required");
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	30 $this->{columns} = $columns if defined $columns;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	31 $this->{constraints} = $constraints if defined $constraints;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	32 $this->{options} = $options if defined $options;
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	33 }
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	34
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	35 ###################################################
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	36
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	37 package IMPL::SQL::Schema::Traits::Column;
76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	38 use base qw(IMPL::Object::Fields);
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	39
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	40 use fields qw(
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	41 name
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	42 type
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	43 isNullable
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	44 defaultValue
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	45 tag
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	46 );
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	47
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	48 sub CTOR {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	49 my ($this, $name, $type, %args) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	50
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	51 $this->{name} = $name or die new IMPL::InvalidArgumentException("name");
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	52 $this->{type} = $type or die new IMPL::InvalidArgumentException("type");
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	53 $this->{isNullable} = $args{isNullable} if exists $args{isNullable};
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	54 $this->{defaultValue} = $args{defaultValue} if exists $args{defaultValue};
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	55 $this->{tag} = $args{tag} if exists $args{tag};
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	56 }
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	57
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	58 ##################################################
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	59
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	60 package IMPL::SQL::Schema::Traits::Constraint;
76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	61 use base qw(IMPL::Object::Fields);
167 1f7a6d762394 SQL schema in progress sourcer parents: 165 diff changeset	62
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	63 use fields qw(
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	64 name
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	65 columns
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	66 );
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	67
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	68 sub CTOR {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	69 my ($this, $name, $columns) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	70
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	71 $this->{name} = $name;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	72 $this->{columns} = $columns; # list of columnNames
168 6148f89bb7bf IMPL::SQL::Schema::Traits::Diff alfa version sourcer parents: 167 diff changeset	73 }
6148f89bb7bf IMPL::SQL::Schema::Traits::Diff alfa version sourcer parents: 167 diff changeset	74
6148f89bb7bf IMPL::SQL::Schema::Traits::Diff alfa version sourcer parents: 167 diff changeset	75 sub constraintClass {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	76 die new IMPL::NotImplementedException();
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	77 }
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	78
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	79 ##################################################
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	80
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	81 package IMPL::SQL::Schema::Traits::PrimaryKey;
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	82
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	83 use base qw(IMPL::SQL::Schema::Traits::Constraint);
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	84
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	85 __PACKAGE__->PassThroughArgs;
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	86
168 6148f89bb7bf IMPL::SQL::Schema::Traits::Diff alfa version sourcer parents: 167 diff changeset	87 use constant { constraintClass => typeof IMPL::SQL::Schema::Constraint::PrimaryKey };
6148f89bb7bf IMPL::SQL::Schema::Traits::Diff alfa version sourcer parents: 167 diff changeset	88
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	89 ##################################################
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	90
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	91 package IMPL::SQL::Schema::Traits::Index;
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	92
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	93 use base qw(IMPL::SQL::Schema::Traits::Constraint);
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	94
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	95 __PACKAGE__->PassThroughArgs;
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	96
168 6148f89bb7bf IMPL::SQL::Schema::Traits::Diff alfa version sourcer parents: 167 diff changeset	97 use constant { constraintClass => typeof IMPL::SQL::Schema::Constraint::Index };
6148f89bb7bf IMPL::SQL::Schema::Traits::Diff alfa version sourcer parents: 167 diff changeset	98
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	99 ##################################################
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	100
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	101 package IMPL::SQL::Schema::Traits::Unique;
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	102
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	103 use base qw(IMPL::SQL::Schema::Traits::Constraint);
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	104
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	105 __PACKAGE__->PassThroughArgs;
163 6ce1f052b90a temp commit wizard parents: 49 diff changeset	106
168 6148f89bb7bf IMPL::SQL::Schema::Traits::Diff alfa version sourcer parents: 167 diff changeset	107 use constant { constraintClass => typeof IMPL::SQL::Schema::Constraint::Unique };
6148f89bb7bf IMPL::SQL::Schema::Traits::Diff alfa version sourcer parents: 167 diff changeset	108
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	109 ##################################################
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	110
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	111 package IMPL::SQL::Schema::Traits::ForeignKey;
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	112
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	113 use base qw(IMPL::SQL::Schema::Traits::Constraint);
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	114 use fields qw(
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	115 foreignTable
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	116 foreignColumns
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	117 onUpdate
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	118 onDelete
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	119 );
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	120
168 6148f89bb7bf IMPL::SQL::Schema::Traits::Diff alfa version sourcer parents: 167 diff changeset	121 use constant { constraintClass => typeof IMPL::SQL::Schema::Constraint::ForeignKey };
6148f89bb7bf IMPL::SQL::Schema::Traits::Diff alfa version sourcer parents: 167 diff changeset	122
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	123 our %CTOR = (
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	124 'IMPL::SQL::Schema::Traits::Constraint' => sub { @_[0..1] }
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	125 );
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	126
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	127 sub CTOR {
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	128 my ($this,$foreignTable,$foreignColumns,%args) = @_[0,3..$#_];
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	129
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	130 $this->{foreignTable} = $foreignTable;
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	131 $this->{foreignColumns} = $foreignColumns;
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	132
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	133 $this->{onDelete} = $args{onDelete} if $args{onDelete};
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	134 $this->{onUpdate} = $args{onUpdate} if $args{onUpdate};
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	135 }
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	136
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	137
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	138 ##################################################
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	139
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	140 package IMPL::SQL::Schema::Traits::CreateTable;
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	141
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	142 use IMPL::Const qw(:prop);
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	143 use IMPL::declare {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	144 require => {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	145 Table => '-IMPL::SQL::Schema::Traits::Table',
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	146 ArgException => '-IMPL::InvalidArgumentException',
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	147 OpException => '-IMPL::InvalidOperationException'
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	148 },
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	149 base => [
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	150 '-IMPL::SQL::Schema::Traits' => undef
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	151 ],
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	152 props => [
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	153 table => PROP_RO,
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	154 ]
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	155 };
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	156 use IMPL::lang;
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	157
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	158 sub CTOR {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	159 my ($this,$table) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	160
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	161 die ArgException->new("table", "An object of IMPL::SQL::Schema::Traits::Table type is required")
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	162 unless is($table, Table);
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	163
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	164 $this->table($table);
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	165 }
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	166
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	167 sub CanApply {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	168 my ($this,$schema) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	169
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	170 return( $schema->GetTable( $this->table->{name} ) ? 0 : 1 );
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	171 }
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	172
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	173 sub Apply {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	174 my ($this,$schema) = @_;
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	175
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	176 my $args = {%{$this->table}};
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	177
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	178 my $constraints = delete $args->{constraints} \|\| [];
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	179
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	180 my $table = $schema->AddTable($args);
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	181
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	182 $table->AddConstraint($_->constraintClass, $_) foreach @{$constraints};
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	183 }
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	184
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	185 ##################################################
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	186
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	187 package IMPL::SQL::Schema::Traits::DropTable;
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	188 use IMPL::Const qw(:prop);
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	189 use IMPL::declare {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	190 require => {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	191 ArgException => '-IMPL::InvalidArgumentException'
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	192 },
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	193 base => [
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	194 '-IMPL::SQL::Schema::Traits' => undef
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	195 ],
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	196 props => [
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	197 tableName => PROP_RO,
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	198 ]
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	199 };
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	200
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	201 sub CTOR {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	202 my ($this,$tableName) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	203
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	204 $this->tableName($tableName) or die ArgException->new("tableName is required");
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	205 }
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	206
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	207 sub CanApply {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	208 my ($this,$schema) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	209
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	210 return $schema->GetTable( $this->tableName ) ? 1 : 0;
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	211 }
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	212
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	213 sub Apply {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	214 my ($this,$schema) = @_;
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	215
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	216 $schema->RemoveTable($this->tableName);
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	217 }
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	218
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	219 ##################################################
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	220
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	221 package IMPL::SQL::Schema::Traits::RenameTable;
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	222 use IMPL::Const qw(:prop);
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	223 use IMPL::declare {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	224 require => {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	225 ArgException => '-IMPL::InvalidArgumentException'
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	226 },
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	227 base => [
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	228 '-IMPL::SQL::Schema::Traits' => undef
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	229 ],
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	230 props => [
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	231 tableName => PROP_RO,
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	232 tableNewName => PROP_RO,
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	233 ]
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	234 };
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	235
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	236 sub CTOR {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	237 my ($this, $oldName, $newName) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	238
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	239 $this->tableName($oldName) or die ArgException->new("A table name is required");
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	240 $this->tableNewName($newName) or die ArgException->new("A new table name is required");
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	241 }
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	242
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	243 sub CanApply {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	244 my ($this, $schema) = @_;
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	245
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	246 return ($schema->GetTable($this->tableName) and not $schema->GetTable($this->tableNewName) ? 1 : 0 );
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	247 }
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	248
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	249 sub Apply {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	250 my ($this,$schema) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	251
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	252 $schema->RenameTable($this->tableName, $this->tableNewName);
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	253
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	254 }
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	255
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	256 #################################################
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	257
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	258 package IMPL::SQL::Schema::Traits::AlterTableAddColumn;
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	259
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	260 use IMPL::Const qw(:prop);
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	261 use IMPL::declare {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	262 require => {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	263 Column => '-IMPL::SQL::Schema::Traits::Column',
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	264 ArgException => '-IMPL::InvalidArgumentException',
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	265 OpException => '-IMPL::InvalidOperationException'
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	266 },
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	267 base => [
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	268 '-IMPL::SQL::Schema::Traits' => undef
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	269 ],
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	270 props => [
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	271 tableName => PROP_RO,
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	272 column => PROP_RO,
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	273 position => PROP_RO
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	274 ]
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	275 };
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	276 use IMPL::lang;
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	277
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 44 diff changeset	278
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	279 sub CTOR {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	280 my ($this,$tableName,$column) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	281
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	282 $this->tableName($tableName) or die ArgException->new("A table name is required");
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	283
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	284 die ArgException->new("A column should be a IMPL::SQL::Schema::Traits::Column object")
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	285 unless is($column, Column);
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	286
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	287 $this->column($column);
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	288 }
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	289
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	290 sub CanApply {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	291 my ($this,$schema) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	292
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	293 my $table = $schema->GetTable($this->tableName)
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	294 or return 0;
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	295
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	296 return $table->GetColumn( $this->column->{name} ) ? 0 : 1;
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	297 }
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	298
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	299 sub Apply {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	300 my ($this,$schema) = @_;
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	301
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	302 my $table = $schema->GetTable($this->tableName)
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	303 or die OpException->new("The specified table doesn't exists", $this->tableName);
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	304
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	305 if ($this->position) {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	306 $table->AddColumn($this->column);
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	307 } else {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	308 $table->InsertColumn($this->column,$this->position);
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	309 }
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	310 }
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	311
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	312 #################################################
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	313
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	314 package IMPL::SQL::Schema::Traits::AlterTableDropColumn;
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	315
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	316 use IMPL::Const qw(:prop);
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	317 use IMPL::declare {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	318 require => {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	319 FK => '-IMPL::SQL::Schema::Constraint::ForeignKey',
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	320 ArgException => '-IMPL::InvalidArgumentException',
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	321 OpException => '-IMPL::InvalidOperationException'
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	322 },
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	323 base => [
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	324 '-IMPL::SQL::Schema::Traits' => undef
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	325 ],
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	326 props => [
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	327 tableName => PROP_RO,
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	328 columnName => PROP_RO,
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	329 ]
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	330 };
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	331 use IMPL::lang;
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	332
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	333
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	334 sub CTOR {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	335 my ($this,$table,$column) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	336
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	337 $this->tableName($table) or die ArgException->new(tableName => "A table name should be specified");
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	338 $this->columnName($column) or die ArgException->new(columnName => "A column name should be specified");
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	339 }
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	340
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	341 sub CanApply {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	342 my ($this,$schema) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	343
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	344 my $table = $schema->GetTable($this->tableName)
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	345 or return 0;
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	346
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	347 $table->GetColumn($this->columnName) or
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	348 return 0;
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	349
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	350 # столбец
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	351 return $table->GetColumnConstraints($this->columnName)
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	352 ? 0
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	353 : 1
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	354 ;
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	355 }
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	356
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	357 sub Apply {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	358 my ($this,$schema) = @_;
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	359
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	360 my $table = $schema->GetTable($this->tableName)
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	361 or die OpException->new("The specified table doesn't exists", $this->tableName);
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	362
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	363 $table->RemoveColumn($this->columnName);
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 44 diff changeset	364 }
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 44 diff changeset	365
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	366 #################################################
163 6ce1f052b90a temp commit wizard parents: 49 diff changeset	367
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	368 package IMPL::SQL::Schema::Traits::AlterTableChangeColumn;
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 44 diff changeset	369
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	370 use IMPL::Const qw(:prop);
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	371 use IMPL::declare {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	372 require => {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	373 Constraint => '-IMPL::SQL::Schema::Traits::Constraint',
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	374 ArgException => '-IMPL::InvalidArgumentException',
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	375 OpException => '-IMPL::InvalidOperationException'
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	376 },
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	377 base => [
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	378 '-IMPL::SQL::Schema::Traits' => undef
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	379 ],
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	380 props => [
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	381 tableName => PROP_RO,
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	382 columnName => PROP_RO,
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	383 columnType => PROP_RW,
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	384 defaultValue => PROP_RW,
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	385 isNullable => PROP_RW,
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	386 position => PROP_RW,
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	387 options => PROP_RW # hash diff format, (keys have a prefix '+' - add or update value, '-' remove value)
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	388 ]
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	389 };
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	390 use IMPL::lang;
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 44 diff changeset	391
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	392 sub CTOR {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	393 my ($this, $table,$column,%args) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	394
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	395 $this->tableName($table) or die ArgException->new(tableName => "A table name is required");
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	396 $this->columnName($column) or die ArgException->new(columnName => "A column name is required");
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	397
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	398 $this->$_($args{$_})
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	399 for (grep exists $args{$_}, qw(columnType defaultValue isNullable options));
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	400 }
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 44 diff changeset	401
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	402 sub CanApply {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	403 my ($this,$schema) = @_;
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	404
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	405 my $table = $schema->GetTable($this->tableName)
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	406 or return 0;
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	407
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	408 return $table->GetColumn($this->columnName) ? 1 : 0;
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	409 }
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	410
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	411 sub Apply {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	412 my ($this,$schema) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	413
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	414 my $table = $schema->GetTable($this->tableName)
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	415 or die OpException->new("The specified table doesn't exists", $this->tableName);
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	416
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	417 my $column = $table->GetColumn($this->columnName)
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	418 or die OpException->new("The specified column doesn't exists", $this->tableName, $this->columnName);
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	419
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	420 $column->SetType($this->columnType) if defined $this->columnType;
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	421 $column->SetNullable($this->isNullable) if defined $this->isNullable;
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	422 $column->SetDefaultValue($this->defaultValue) if defined $this->defaultValue;
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	423 $column->SetOptions($this->options) if defined $this->options;
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	424
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	425 $table->SetColumnPosition($this->position)
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	426 if ($this->position);
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	427
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	428 }
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 44 diff changeset	429
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	430 #################################################
163 6ce1f052b90a temp commit wizard parents: 49 diff changeset	431
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	432 package IMPL::SQL::Schema::Traits::AlterTableAddConstraint;
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	433
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	434 use IMPL::Const qw(:prop);
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	435 use IMPL::declare {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	436 require => {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	437 Constraint => '-IMPL::SQL::Schema::Traits::Constraint',
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	438 ArgException => '-IMPL::InvalidArgumentException',
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	439 FK => '-IMPL::SQL::Schema::Traits::ForeignKey'
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	440 },
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	441 base => [
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	442 '-IMPL::SQL::Schema::Traits' => undef
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	443 ],
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	444 props => [
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	445 tableName => PROP_RO,
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	446 constraint => PROP_RO
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	447 ]
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	448 };
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	449 use IMPL::lang;
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 44 diff changeset	450
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	451 sub CTOR {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	452 my ($this,$table,$constraint) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	453
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	454 $this->tableName($table) or die ArgException->new( tableName => "A table name is required");
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	455
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	456 die ArgException->new(constaraint => "A valid " . Constraint . " is required")
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	457 unless is($constraint, Constraint);
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	458
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	459 $this->constraint($constraint);
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	460 }
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 44 diff changeset	461
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	462 sub CanApply {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	463 my ($this, $schema) = @_;
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	464
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	465 my $table = $schema->GetTable($this->tableName)
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	466 or return 0;
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	467
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	468 my $constraint = $this->constraint;
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	469
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	470 my @columns = map $table->GetColumn($_), @{$constraint->{columns} \|\| []};
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	471
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	472 # проверяем, что в таблице есть все столбцы для создания ограничения
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	473 return 0 if grep not($_), @columns;
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	474
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	475 if (is($constraint,FK)) {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	476 my $foreignTable = $schema->GetTable($constraint->{foreignTable})
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	477 or return 0;
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	478
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	479 my @foreignColumns = map $foreignTable->GetColumn($_), @{$constraint->{foreignColumns}\|\|[]};
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	480
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	481 # внешняя таблица имеет нужные столбцы
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	482 return 0
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	483 if grep not($_), @foreignColumns;
272 47db27ed5b43 sync sergey parents: 271 diff changeset	484
47db27ed5b43 sync sergey parents: 271 diff changeset	485 # типы столбцов во внешней таблице совпадают с типами столбцов ограничения
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	486 return 0
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	487 if grep not($columns[$_]->type->SameValue($foreignColumns[$_]->type)), (0 .. $#columns);
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	488 }
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	489
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	490 return 1;
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	491 }
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	492
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	493 sub Apply {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	494 my ($this,$schema) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	495
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	496 my $table = $schema->GetTable($this->tableName)
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	497 or die IMPL::InvalidOperationException->new("The specified table doesn't exists", $this->tableName);
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	498
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	499 my $constraint = $this->constraint;
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	500
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	501 if (is($constraint,FK)) {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	502 my $args = { %$constraint };
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	503 $args->{referencedTable} = $schema->GetTable(delete $args->{foreignTable});
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	504 $args->{referencedColumns} = delete $args->{foreignColumns};
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	505 $table->AddConstraint($constraint->constraintClass, $args);
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	506 } else {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	507 $table->AddConstraint($constraint->constraintClass, $constraint);
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	508 }
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	509
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	510 }
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 44 diff changeset	511
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	512 #################################################
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 44 diff changeset	513
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	514 package IMPL::SQL::Schema::Traits::AlterTableDropConstraint;
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	515 use IMPL::Const qw(:prop);
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	516 use IMPL::declare {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	517 require => {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	518 PK => '-IMPL::SQL::Schema::Constraint::PrimaryKey'
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	519 },
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	520 base => [
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	521 '-IMPL::SQL::Schema::Traits' => undef
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	522 ],
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	523 props => [
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	524 tableName => PROP_RO,
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	525 constraintName => PROP_RO
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	526 ]
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	527 };
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	528 use IMPL::lang qw(is);
163 6ce1f052b90a temp commit wizard parents: 49 diff changeset	529
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	530 sub CTOR {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	531 my ($this,$table,$constraint) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	532
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	533 die new IMPL::InvalidArgumentException( tableName => "A table name is required" ) unless $table;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	534 die new IMPL::InvalidArgumentException( constraintName => "A constraint name is required" ) unless $constraint;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	535
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	536 $this->tableName($table);
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	537 $this->constraintName($constraint);
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	538 }
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 44 diff changeset	539
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	540 sub CanApply {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	541 my ($this,$schema) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	542
283 2f06250bab5f IMPL::SQL::MySQL fixed issues with foreign keys and drop table sergey* parents: 272 diff changeset	543 my $table = $schema->GetTable($this->tableName)
2f06250bab5f IMPL::SQL::MySQL fixed issues with foreign keys and drop table sergey* parents: 272 diff changeset	544 or return 0;
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	545
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	546 my $constraint = $table->GetConstraint($this->constraintName)
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	547 or return 0;
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	548
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	549 # есть ли внешние ключи на данную таблицу
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	550 return (
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	551 is($constraint,PK)
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	552 && values( %{$constraint->connectedFK \|\| {}} )
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	553 ? 0
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	554 : 1
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	555 );
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	556 }
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	557
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	558 sub Apply {
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	559 my ($this,$schema) = @_;
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	560
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	561 my $table = $schema->GetTable($this->tableName)
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	562 or die IMPL::InvalidOperationException->new("The specified table doesn't exists", $this->tableName);
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	563
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	564 $table->RemoveConstraint($this->constraintName);
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	565 }
163 6ce1f052b90a temp commit wizard parents: 49 diff changeset	566
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 44 diff changeset	567
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 44 diff changeset	568 1;
163 6ce1f052b90a temp commit wizard parents: 49 diff changeset	569
6ce1f052b90a temp commit wizard parents: 49 diff changeset	570 __END__
6ce1f052b90a temp commit wizard parents: 49 diff changeset	571
6ce1f052b90a temp commit wizard parents: 49 diff changeset	572 =pod
6ce1f052b90a temp commit wizard parents: 49 diff changeset	573
6ce1f052b90a temp commit wizard parents: 49 diff changeset	574 =head1 NAME
6ce1f052b90a temp commit wizard parents: 49 diff changeset	575
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	576 C<IMPL::SQL::Traits> - Операции над объектками SQL схемы.
163 6ce1f052b90a temp commit wizard parents: 49 diff changeset	577
6ce1f052b90a temp commit wizard parents: 49 diff changeset	578 =head1 DESCRIPTION
6ce1f052b90a temp commit wizard parents: 49 diff changeset	579
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	580 Изменения схемы могу быть представлены в виде последовательности примитивных операций.
d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	581 Правила выполнения последовательности примитывных действий могут варьироваться
d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	582 в зависимости от процессора, который их выполняет. Например C<IMPL::SQL::Schema::Traits::Processor>.
163 6ce1f052b90a temp commit wizard parents: 49 diff changeset	583
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	584 Данные, которые содержаться в примитивных операциях не могут существовать независимо от схемы.
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	585
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	586 =head1 OPERATIONS
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	587
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	588 =head2 General
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	589
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	590 Методы обще для всех примитивных операций.
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	591
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	592 =head3 C<CanApply($schema)>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	593
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	594 Определяет возможность применения операции к указанной схеме.
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	595
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	596 Возвращаемое значение:
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	597
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	598 =over
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	599
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	600 =item C<true>
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	601
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	602 Операция приминима к схеме.
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	603
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	604 =item C<false>
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	605
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	606 Операция не может быть применена к схеме.
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	607
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	608 =back
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	609
271 56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	610 =head3 C<Apply($schema)>
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	611
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	612 Применяет операцию к указанной схеме.
56364d0c4b4f +IMPL::SQL::Schema::MySQL: added basic support for MySQL cin parents: 269 diff changeset	613
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	614 =head2 Primitive operations
eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	615
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	616 =head3 C<IMPL::SQL::Schema::Traits::CreateTable>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	617
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	618 Создает таблицу
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	619
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	620 =head4 C<CTOR($table)>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	621
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	622 =head4 C<[get]table>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	623
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	624 C<IMPL::SQL::Schema::Traits::Table> - описание создаваемой таблицы
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	625
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	626 =head3 C<IMPL::SQL::Schema::Traits::DropTable>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	627
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	628 Удалает таблицу по имени
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	629
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	630 =head4 C<CTOR($tableName)>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	631
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	632 =head4 C<[get]tableName>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	633
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	634 Имя удаляемой таблицы
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	635
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	636 =head3 C<IMPL::SQL::Schema::Traits::RenameTable>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	637
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	638 =head4 C<CTOR($tableName,$tableNewName)>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	639
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	640 =head4 C<[get]tableName>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	641
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	642 Имя таблицы, которую требуется переименовать
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	643
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	644 =head4 C<[get]tableNewName>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	645
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	646 Новое имя таблицы
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	647
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	648 =head3 C<IMPL::SQL::Schema::Traits::AlterTableAddColumn>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	649
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	650 Добавляет столбец в таблицу
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	651
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	652 =head4 C<CTOR($tableName,$column,$position)>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	653
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	654 =head4 C<[get]tableName>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	655
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	656 Имя таблицы в которую нужно добавить столбец
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	657
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	658 =head4 C<[get]column>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	659
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	660 C<IMPL::SQL::Schema::Traits::Column> - описание столбца который нужно добавить
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	661
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	662 =head4 C<[get]position>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	663
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	664 Позиция на которую нужно вставить столбец
dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	665
dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	666 =head3 C<IMPL::SQL::Schema::Traits::AlterTableDropColumn>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	667
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	668 Удаляет столбец из таблицы
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	669
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	670 =head4 C<CTOR($tableName,$columnName)>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	671
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	672 =head4 C<[get]tableName>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	673
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	674 Имя таблицы в которой нужно удалить столбец
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	675
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	676 =head4 C<[get]columnName>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	677
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	678 Имя столбца для удаления
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	679
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	680 =head3 C<IMPL::SQL::Schema::Traits::AlterTableChangeColumn>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	681
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	682 Меняет описание столбца
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	683
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	684 =head4 C<CTOR($tableName,$columnName,%args)>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	685
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	686 C<%args> - хеш, ключами которого являются оставшиеся свойства создаваемого объекта.
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	687
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	688 =head4 C<[get]tableName>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	689
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	690 Имя таблицы в которой находится столбец.
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	691
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	692 =head4 C<[get]columnName>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	693
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	694 Имя столбца для изменения
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	695
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	696 =head4 C<[get]columnType>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	697
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	698 Новый тип столбца. Не задан, если тип не меняется
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	699
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	700 =head4 C<[get]defaultValue>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	701
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	702 Значение по умолчанию. Не задано, если не меняется
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	703
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	704 =head4 C<[get]isNullable>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	705
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	706 Может ли столбец содержать C<NULL>. Не задано, если не меняется.
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	707
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	708 =head4 C<[get]options>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	709
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	710 Хеш опций, не задан, если опции не меняются. Данный хеш содержит разничу между
dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	711 старыми и новыми значениями свойства C<tag> столбца.
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	712
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	713
dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	714 =head3 C<IMPL::SQL::Schema::Traits::AlterTableAddConstraint>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	715
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	716 Базовый класс для операций по добавлению ограничений
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	717
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	718 =head4 C<CTOR($tableName,$constraint)>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	719
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	720 =head4 C<[get]tableName>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	721
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	722 Имя таблицы в которую добавляется ограничение.
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	723
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	724 =head4 C<[get]constraint>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	725
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	726 C<IMPL::SQL::Schema::Traits::Constraint> - описние ограничения, которое нужно добавить.
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	727
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	728 =head3 C<IMPL::SQL::Schema::Traits::AlterTableDropConstraint>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	729
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	730 Удаляет ограничение на таблицу
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	731
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	732 =head4 C<CTOR($tableName,$constraintName)>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	733
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	734 =head4 C<[get]tableName>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	735
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	736 Имя таблицы в которой требуется удалить ограничение.
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	737
269 dacfe7c0311a SQL schema updated (unstable) sergey parents: 194 diff changeset	738 =head4 C<[get]constraintName>
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	739
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	740 Имя ограничения для удаления.
164 eb3e9861a761 SQL traits in progress wizard parents: 163 diff changeset	741
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 169 diff changeset	742 =cut

Mercurial > pub > Impl

annotate Lib/IMPL/SQL/Schema/Traits.pm @ 393:69a1f1508696