my($field)=$AUTOLOAD;
$field =~ s/.*://;
if ( defined($value) ) {
+ confess "errant AUTOLOAD $field for $self (arg $value)"
+ unless $self->can('setfield');
$self->setfield($field,$value);
} else {
$self->getfield($field);
$table_obj->columns;
}
+=back
+
=head1 SUBROUTINES
=over 4
=head1 VERSION
-$Id: Record.pm,v 1.16 2001-05-07 15:42:02 ivan Exp $
+$Id: Record.pm,v 1.18 2001-07-30 07:33:08 ivan Exp $
=head1 BUGS