SPATIAL => 1, # MySQL only (?)
);
-# ----------------------------------------------------------------------
-
__PACKAGE__->_attributes( qw/
name type fields table options
/);
=cut
-# ----------------------------------------------------------------------
sub fields {
=pod
return wantarray ? @{ $self->{'fields'} || [] } : $self->{'fields'};
}
-# ----------------------------------------------------------------------
sub is_valid {
=pod
return 1;
}
-# ----------------------------------------------------------------------
sub name {
=pod
return $self->{'name'} || '';
}
-# ----------------------------------------------------------------------
sub options {
=pod
}
}
-# ----------------------------------------------------------------------
sub table {
=pod
return $self->{'table'};
}
-# ----------------------------------------------------------------------
sub type {
=pod
return $self->{'type'} || 'NORMAL';
}
-# ----------------------------------------------------------------------
sub equals {
=pod
return 1;
}
-# ----------------------------------------------------------------------
sub DESTROY {
my $self = shift;
undef $self->{'table'}; # destroy cyclical reference
1;
-# ----------------------------------------------------------------------
-
=pod
=head1 AUTHOR