Mercurial > pub > Impl

view Lib/IMPL/SQL/Schema/Constraint/Index.pm @ 201:0c018a247c8a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Reworked REST resource classes to be more transparent and intuitive
author sergey
date Tue, 24 Apr 2012 19:52:07 +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;