Select Code to Download

  sub d :lvalue {
    print("$_[0]: ", defined($_[1]) ? "[$_[1]]" : "undef", "\n");
...

  our $fred = 78;
  d("post assign", d("post local", local $fred) = 90);

  our $fred = 78 ;
  local $fred = 'ho hum' ;