is => 'rw',
isa => Bit,
required => 1,
- default => 1
+ default => 1,
);
has 'is_unique' => (
my $order = $self->_order;
unless (defined $order && $order) {
my $columns = Tie::IxHash->new( map { $_->name => $_ } $self->table->get_columns );
- $order = ($columns->Indices($self->name) + 1) || 0;
+ $order = $columns->Indices($self->name) || 0; $order++;
$self->_order($order);
}
return $order;