sub value : lvalue {
   my $self = shift;
   $self->{value};
}