Mercurial > pub > Impl
view Lib/Schema/DB/Constraint/Index.pm @ 166:4267a2ac3d46
Added Class::Template,
Rewritten SQL::Schema
'use parent' directive instead of 'use base'
author | wizard |
---|---|
date | Sat, 23 Apr 2011 23:12:06 +0400 |
parents | 16ada169ca75 |
children |
line wrap: on
line source
package Schema::DB::Constraint::Index; use strict; use Common; use parent qw(Schema::DB::Constraint); sub CTOR { my $this = shift; $this->SUPER::CTOR(@_); my %colnames; not grep { $colnames{$_}++ } $this->Columns or die new Exception('Each column in the index can occur only once'); } 1;