pmichaud · September 3, 2009 05:14
diff --git a/gistfile1.txt b/gistfile1.txt

 sub foo() { 
    my $*VAR ::= 'foo';
    -> { say $*VAR; }
 }

 my $a = foo();

 {
    my $*VAR ::= 'caller';
    $a();    # outputs 'caller'
 }


 $a();    # $*VAR not found ?

	sub foo() {
	my $*VAR ::= 'foo';
	-> { say $*VAR; }
	}

	my $a = foo();

	{
	my $*VAR ::= 'caller';
	$a(); # outputs 'caller'
	}


	$a(); # $*VAR not found ?