Select Code to Download

{
  my $caller = caller ;
  die unless $caller eq __PACKAGE__ ;
}

package MyClass ;

...
    { some => 'attribute', goes => 'here' }
  return bless \$objID,$class ;
}

sub some : lvalue {
  my $self = shift ;
...

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

package MyClass ;

...
private 'scalar','priv' ;
protected 'array','prot' ;
public 'hash','pub' ;