# Perl 6
  my $init_value = 42;
  my $checked = new Proxy:
    FETCH => { $init_value },
    STORE => -> $new {
      die "Error: New value must be defined!\n" unless defined $new;
      $init_value = $new;
    };