Mercurial > pub > Impl
view Lib/IMPL/SQL/Schema/Constraint/Index.pm @ 87:6d3bca490556
small fixes in the security moodules
author | wizard |
---|---|
date | Mon, 19 Apr 2010 23:20:46 +0400 |
parents | 16ada169ca75 |
children | 76515373dac0 |
line wrap: on
line source
package IMPL::SQL::Schema::Constraint::Index; use strict; use base qw(IMPL::SQL::Schema::Constraint); __PACKAGE__->PassThroughArgs; sub CTOR { my $this = shift; my %colnames; not grep { $colnames{$_}++ } @{$this->Columns} or die new Exception('Each column in the index can occur only once'); } 1;