annotate Lib/IMPL/SQL/Schema/Constraint/Index.pm @ 95:67eb8eaec3d4
Added a security authority property to the Context and Security classes
Added a WriteResponse method to the SecureCookie class
Added a setCookie method to the Response class
author
wizard
date
Thu, 29 Apr 2010 02:21:27 +0400 (2010-04-28)
parents
16ada169ca75
children
76515373dac0
rev
line source
49
+ − 1 package IMPL::SQL::Schema::Constraint::Index;
+ − 2 use strict;
+ − 3 use base qw(IMPL::SQL::Schema::Constraint);
+ − 4
+ − 5 __PACKAGE__->PassThroughArgs;
+ − 6
+ − 7 sub CTOR {
+ − 8 my $this = shift;
+ − 9
+ − 10 my %colnames;
+ − 11 not grep { $colnames{$_}++ } @{$this->Columns} or die new Exception('Each column in the index can occur only once');
+ − 12 }
+ − 13
+ − 14 1;