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
15 && $Package::Stash::IMPLEMENTATION eq 'PP';
17 my $anon = Package::Anon->new;
18 my $stash = Package::Stash->new($anon);
19 my $obj = $anon->bless({});
22 my $code = sub { 'FOO' };
23 $stash->add_symbol('&foo' => $code);
24 is($stash->get_symbol('&foo'), $code);
31 my $code = $stash->get_symbol('&bar');
32 is(ref($code), 'CODE');
41 my $code = $stash->get_symbol('&baz');
42 is(ref($code), 'CODE');
44 exception { $code->() },
45 qr/Undefined subroutine \&__ANON__::baz called/