sub some : lvalue {
  my $self = shift ;

  # Do checks if we are a private or protected method
  # HERE!

  return $Registry[$$self]{some} ;
}