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;