Mercurial > pub > Impl

comparison Lib/IMPL/SQL/Schema/Traits.pm @ 169:fd92830036c3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
corrected IMPL::SQL::Schema::Diff
author sourcer
date Tue, 17 May 2011 00:04:28 +0400
parents 6148f89bb7bf
children d1676be8afcc
comparison
equal deleted inserted replaced
168:6148f89bb7bf 169:fd92830036c3
369 sub CTOR { 369 sub CTOR {
370 my ($this,$table,$constraint) = @_; 370 my ($this,$table,$constraint) = @_;
371 371
372 die new IMPL::InvalidArgumentException( tableName => "A table name is required" ) unless $table; 372 die new IMPL::InvalidArgumentException( tableName => "A table name is required" ) unless $table;
373 die new IMPL::InvalidArgumentException( constraintName => "A constraint name is required" ) unless $constraint; 373 die new IMPL::InvalidArgumentException( constraintName => "A constraint name is required" ) unless $constraint;
374
375 $this->tableName($table);
376 $this->constraintName($constraint);
374 } 377 }
375 378
376 sub apply { 379 sub apply {
377 my ($this,$schema) = @_; 380 my ($this,$schema) = @_;
378 381