Quick translation wanted

[Simon Cozens]

Is it clear how attributes accessors on objects are going to work yet?
I need to say something along the lines of:

   sub new {
   my $class = shift;
   my ($name, $age) = @_;
      bless {
         name => $name,
         age  => $age
      }, $class;
   }
  
   sub age { my $self=shift; $self->{age} }

-- 
  "They laughed at Columbus, they laughed at Fulton, they laughed at the
   Wright brothers.  But they also laughed at Bozo the Clown."
         -- Carl Sagan