Select Code to Download

package Objet; # yes, the 'c' is absent by design;
use strict;
...
}

1;

use Objet;
my $o = Objet->new('aleph' => 1, 'gamma' => 2);

$o->attrib( 'zeta' => 900 ); # sets attribute 'zeta' to 900
print $o->attrib( 'aleph' ); # gets value of attrib 'aleph'

sub new {
   my $self = bless {
...
      return $self->{$attr}{get}->();
   }
}