Select Code to Download

$ perl
*ro = \'readonly_dynamic';
...
^D
=readonly_dynamic=
Exception: Modification of a read-only value attempted at - line 4.

$ perl
use Lexical::Alias;
...
^D
=readonly_lexical=
Exception: Modification of a read-only value attempted at - line 8.

$ perl
use Array::RefElem qw/av_store hv_store/;
...
=readonly_hashval=readonly_aryelem=
Exception: Modification of a read-only value attempted at - line 7.
Exception: Modification of a read-only value attempted at - line 9.