use base 'SQL::Translator::Schema::Object';
-use vars qw( $VERSION $FIELD_ORDER );
+use vars qw( $VERSION );
$VERSION = '1.59';
=cut
+sub new {
+ my $class = shift;
+ my $self = $class->SUPER::new (@_)
+ or return;
+
+ $self->{_order} = { map { $_ => 0 } qw/
+ field
+ /};
+
+ return $self;
+}
+
+
+
# ----------------------------------------------------------------------
sub add_constraint {
$self->error( $field_class->error );
}
- $field->order( ++$FIELD_ORDER );
+ $field->order( ++$self->{_order}{field} );
# We know we have a name as the Field->new above errors if none given.
my $field_name = $field->name;