Mercurial > pub > Impl

view Lib/IMPL/SQL/Schema/Constraint/Index.pm @ 122:a7efb3117295

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed bug in IMPL::DOM::Navigator::selectNodes Fixed bug in IMPL::DOM::Node::selectNodes renamed operator 'type' to 'typeof' in IMPL::Object::Abstract A proper implementation of the IMPL::DOM::Node::nodeProperty and a related changes in the IMPL::DOM::Property module, now the last is very simple.
author wizard
date Tue, 08 Jun 2010 20:12:45 +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;