# continuing previous code example

sub secret {
  my $self = shift;
  die "Secret is a protected field" if ! caller(0)->isa( __PACKAGE__ );
  $SECRET{ id $self } = shift if @_;
  return $SECRET{ id $self };
}