sub val : lvalue  { $_[0]->{val}->{one} }

##</code><code>##

sub val : lvalue  
{ 
  $_[0]->{val}->{one} = undef unless exists $_[0]->{val}->{one};
  $_[0]->{val}->{one};
}