1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
package CompileTime; use strict; use warnings; use Package::Stash; our $foo = 23; BEGIN { my $stash = Package::Stash->new(__PACKAGE__); $stash->add_symbol('$bar', $foo); $stash->add_symbol('$baz', $stash->get_symbol('$foo')); } 1;