Mercurial > pub > Impl

comparison Lib/IMPL/SQL/Schema/Constraint.pm @ 33:0004faa276dc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
small fixes, some new tests
author Sergey
date Mon, 09 Nov 2009 16:49:39 +0300
parents 56cef8e3cda6
children 16ada169ca75
comparison
equal deleted inserted replaced
32:56cef8e3cda6 33:0004faa276dc
32 sub HasColumn { 32 sub HasColumn {
33 my ($this,@Columns) = @_; 33 my ($this,@Columns) = @_;
34 34
35 my %Columns = map { $_, 1} @Columns; 35 my %Columns = map { $_, 1} @Columns;
36 36
37 return scalar(grep { $Columns{$_->Name} } $this->Columns) == scalar(@Columns); 37 return scalar(grep { $Columns{$_->Name} } @{$this->Columns}) == scalar(@Columns);
38 } 38 }
39 39
40 sub UniqName { 40 sub UniqName {
41 my ($this) = @_; 41 my ($this) = @_;
42 return $this->{$Table}->Name.'_'.$this->{$Name}; 42 return $this->{$Table}->Name.'_'.$this->{$Name};