annotate Lib/Schema/DB/Constraint/Index.pm @ 19:1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
author |
Sergey |
date |
Fri, 11 Sep 2009 16:30:39 +0400 |
parents |
03e58a454b20 |
children |
16ada169ca75 |
rev |
line source |
0
|
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;
|