Select Code to Download

our $var; # Declare a variable in the current package.
*var = \$main::var; # Create an alias in the current package to packag
+e main's $var;

package Foo;
our $var = 42;
...
*var = \$Foo::var;
print __PACKAGE__, ": $var\n";
print \$var, "\n";

Foo: 42
SCALAR(0x559ec7e7b6a0)
main: 42
SCALAR(0x559ec7e7b6a0)