Provides scalar variables that you can lock and unlock. If you try to assign to a locked variable, your program aborts.
use Locked; new Locked 'VAR' => value; # Assign new value # (or) new Locked 'VAR'; # Retain old value $VAR = NEWVAL; # Fails if $VAR is locked Lock($VAR); # Locks $VAR Unlock($VAR); # Unlocks $VAR is_Locked($VAR); # Returns true if $VAR is locked
In the new call, there's no dollar sign on the variable name.
There is no test suite yet.
Lock and the other functions are capitalized because Perl already has a built-in lock operator that does something else.
Copyright 1999 Mark-Jason Dominus.
Return to: Perl Paraphernalia | Universe of Discourse | What's new email@example.com