Select Code to Download

  DB<174> use Scalar::Util qw(readonly)
  
...
rw
   DB<179> print readonly(undef) ? "r" : "rw"
r

  DB<181> sub tst { $_[0] = 42 }

...

  DB<183> tst undef
 => 42                   # really?