Select Code to Download

sub make_private_var_with_accessors
{
...
my($get,$set) = make_private_var_with_accessors();
$set->(42);
print "=".$get->()."\n";

{
    package PrivateVariable;
...
my $pv = new PrivateVariable;
$pv->set(666);
print "=".$pv->get()."\n";