blob: 925bc18ba894af2efa5597318ae824081b9c9748 (
plain) (
blame)
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;
|