Mercurial > pub > Impl
view Lib/IMPL/SQL/Schema/Constraint/Index.pm @ 285:546957c50a36
*IMPL::Web::Handler::TTView Reworked template selection mechanism
*IMPL::Web::Application: refactoring
-Removed obsolete IMPL::Text modules
author | cin |
---|---|
date | Mon, 18 Feb 2013 02:55:59 +0400 |
parents | 6148f89bb7bf |
children |
line wrap: on
line source
package IMPL::SQL::Schema::Constraint::Index; use strict; use parent qw(IMPL::SQL::Schema::Constraint); __PACKAGE__->PassThroughArgs; __PACKAGE__->RegisterAlias('index'); 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;