Re^3: override keywords "my" and "our"


Perl: the Markov chain saw
	PerlMonks

Re^3: override keywords "my" and "our"

by rcaputo (Chaplain)

on Mar 19, 2009 at 15:41 UTC ( [id://751760]=note: print w/replies, xml )

Need Help??

in reply to Re^2: override keywords "my" and "our"
in thread override keywords "my" and "our"

For lexical variables, you may be able to do something with Lexical::Persistence.

#!perl

use warnings;
use strict;

use Lexical::Persistence;

# Create a new dynamic closure.
my $dc = Lexical::Persistence->new();

# Prime a variable with a value.
$dc->set_context( _ => { '$cat' => "persistent" } );

# Call a function within it.
$dc->call(\&function);
exit;

sub function {
  # $cat is already initialized.
  print "persistent cat is '", my($cat), "'\n";
}
[download]

-- Rocco Caputo - http://poe.perl.org/