Mercurial > pub > Impl

annotate Lib/IMPL/SQL/Schema/Constraint/Index.pm @ 38:d660fb38b7cc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
small fixes ORM shema to SQL schema transformation
author Sergey
date Mon, 23 Nov 2009 17:57:07 +0300
parents 0004faa276dc
children 16ada169ca75
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
32
Sergey
parents:
diff changeset
1 package IMPL::SQL::Schema::Constraint::Index;
Sergey
parents:
diff changeset
2 use strict;
Sergey
parents:
diff changeset
3 use base qw(IMPL::SQL::Schema::Constraint);
Sergey
parents:
diff changeset
4
Sergey
parents:
diff changeset
5 __PACKAGE__->PassThroughArgs;
Sergey
parents:
diff changeset
6
Sergey
parents:
diff changeset
7 sub CTOR {
Sergey
parents:
diff changeset
8 my $this = shift;
Sergey
parents:
diff changeset
9
Sergey
parents:
diff changeset
10 my %colnames;
33
0004faa276dc small fixes, some new tests
Sergey
parents: 32
diff changeset
11 not grep { $colnames{$_}++ } @{$this->Columns} or die new Exception('Each column in the index can occur only once');
32
Sergey
parents:
diff changeset
12 }
Sergey
parents:
diff changeset
13
Sergey
parents:
diff changeset
14 1;