Mercurial > pub > Impl

comparison Lib/Schema/DB/Constraint/Index.pm @ 0:03e58a454b20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Создан репозитарий
author Sergey
date Tue, 14 Jul 2009 12:54:37 +0400
parents
children 16ada169ca75
comparison
equal deleted inserted replaced
-1:000000000000 0:03e58a454b20
1 package Schema::DB::Constraint::Index;
2 use strict;
3 use Common;
4 use base qw(Schema::DB::Constraint);
5
6 sub CTOR {
7 my $this = shift;
8 $this->SUPER::CTOR(@_);
9
10 my %colnames;
11 not grep { $colnames{$_}++ } $this->Columns or die new Exception('Each column in the index can occur only once');
12 }
13
14 1;