Mercurial > pub > Impl

view Lib/IMPL/SQL/Schema/Constraint/Index.pm @ 197:6b1dda998839

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added IMPL::declare, IMPL::require, to simplify module definitions IMPL::Transform now admires object inheritance while searching for the transformation Added HTTP some exceptions IMPL::Web::Application::RestResource almost implemented
author sergey
date Thu, 19 Apr 2012 02:10:02 +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;