Help for this page

Select Code to Download

Select or download this

use Scalar::Util qw(readonly);;

...
sub foo {
  $_[0] .= 'FOO';
}

Select or download this
```
A
A is readonly
bar is readonly
```