Select Code to Download

package Duck::Secret;

...

  return $guess == $SECRET{ id $self };
}

# continuing previous code example

...
  $SECRET{ id $self } = shift if @_;
  return $SECRET{ id $self };
}