sub value { my $self = shift; return $self->{value} if not @_; $self->{value} = shift; }