##
*$datum = sub {
$self->{$datum} = shift if @_;
return $self->{$datum};
};
####
*$datum = sub {
$datum = shift if @_;
return $datum;
};
####
$datum = sub {
my self = shift;
$self->{$datum} = shift if @_;
return $self->{$datum};
};