Help for this page

Select Code to Download


  1. or download this
      use Class::InsideOut qw( register public );
 
  public name => my %name;
 
  sub new { register( shift ) }
  2. or download this
    use Class::InsideOut qw( register public );
  3. or download this
      public   name => my %name;
  readonly ssn  => my %ssn;
...
  $name{ refaddr $self } = "James";
  $ssn { id      $self } = 123456789;
  $age { id      $self } = 32;