Help for this page

Select Code to Download

Select or download this

use Restricted;
RESTRICT $creditCard, sub { someMangling($_); };
print $creditCard;  # only shows last four
print UNRESTRICT($creditCard); # prints whole number
print $creditCard;  # var is restricted here as well

Select or download this

use Restricted;
RESTRICT $creditCard, sub { die "locked variable!" };
print $creditCard;  # KABOOM!
print UNRESTRICT($creditCard); # OK