class Heart::Gold {
    has int $.length;
} # statt:

package Heart::Gold;

sub new { 
    bless {length => 0 }, shift; 
}

sub length { 
  my $self = shift; 
  my $length = shift;
  if ($length) {$self->{length} = $length}
  else {$self->{length} }
}