Re^9: How to safely use $_ in a library function?

Const::Fast is basically just a wrapper around Internals::SvREADONLY.

$ perldoc -m Const::Fast | grep SvREADONLY
    if (my $reftype = reftype $_[0] and not blessed($_[0]) and not &In
+ternals::SvREADONLY($_[0])) {
        &Internals::SvREADONLY($_[0], 1);
    Internals::SvREADONLY($_[0], 1);
    croak 'Attempt to reassign a readonly variable' if &Internals::SvR
+EADONLY($_[0]);
[download]

use Moops; class Cow :rw { has name => (default => 'Ermintrude') }; say Cow->new->name

Comment on Re^9: How to safely use $_ in a library function? Download Code

Replies are listed 'Best First'.

Re^10: How to safely use $_ in a library function?
by Athanasius (Archbishop) on Sep 19, 2013 at 09:31 UTC

Yes, Internals::SvREADONLY(..., 1) works to correctly make a writeable variable read-only: