package SQL::Translator::Schema::Field;
# ----------------------------------------------------------------------
-# $Id: Field.pm,v 1.21 2004-11-05 13:19:31 grommit Exp $
+# $Id: Field.pm,v 1.22 2004-11-05 15:03:10 grommit Exp $
# ----------------------------------------------------------------------
# Copyright (C) 2002-4 SQLFairy Authors
#
use vars qw($VERSION $TABLE_COUNT $VIEW_COUNT);
-$VERSION = sprintf "%d.%02d", q$Revision: 1.21 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.22 $ =~ /(\d+)\.(\d+)/;
# Stringify to our name, being careful not to pass any args through so we don't
# accidentally set it to undef. We also have to tweak bool so the object is
__PACKAGE__->_attributes( qw/
table name data_type size is_primary_key is_nullable
- is_auto_increment default_value comments extra is_foreign_key
+ is_auto_increment default_value comments is_foreign_key
is_unique order
/);
}
# ----------------------------------------------------------------------
-sub extra {
-
=pod
=head2 extra
=cut
- my $self = shift;
- my $args = ref $_[0] eq 'HASH' ? shift : { @_ };
-
- while ( my ( $key, $value ) = each %$args ) {
- $self->{'extra'}{ $key } = $value;
- }
-
- return %{ $self->{'extra'} || {} };
-}
# ----------------------------------------------------------------------
sub foreign_key_reference {