Mercurial > pub > Impl

view lib/IMPL/SQL/Schema/Constraint/Index.pm @ 412:30e8c6a74937 ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
working on di container (role based registrations)
author cin
date Mon, 21 Sep 2015 19:54:10 +0300
parents c6e90e02dd17
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;