sub AUTOLOAD {
my $field = $AUTOLOAD;
$field =~ s/.*://;
- if ( scalar(@_) == 2 ) {
+ if ( defined($_[1]) ) {
$_[0]->setfield($field, $_[1]);
} else {
$_[0]->getfield($field);
\%hash;
}
-#sub _dump {
-# my($self)=@_;
-# join("\n", map {
-# "$_: ". $self->getfield($_). "|"
-# } (fields($self->table)) );
-#}
+sub _dump {
+ my($self)=@_;
+ join("\n", map {
+ "$_: ". $self->getfield($_). "|"
+ } (fields($self->table)) );
+}
sub DESTROY { return; }