8 use Test::Requires 'Package::Anon';
13 plan skip_all => "Anonymous stashes in PP need at least perl 5.14"
14 if Package::Stash::BROKEN_GLOB_ASSIGNMENT;
16 my $anon = Package::Anon->new;
17 my $stash = Package::Stash->new($anon);
18 my $obj = $anon->bless({});
21 my $code = sub { 'FOO' };
22 $stash->add_symbol('&foo' => $code);
23 is($stash->get_symbol('&foo'), $code);
30 my $code = $stash->get_symbol('&bar');
31 is(ref($code), 'CODE');
40 my $code = $stash->get_symbol('&baz');
41 is(ref($code), 'CODE');
43 exception { $code->() },
44 qr/Undefined subroutine \&__ANON__::baz called/