11 plan skip_all => "Anonymous stashes in PP need at least perl 5.14"
12 if Package::Stash::BROKEN_GLOB_ASSIGNMENT;
15 my $stash = Package::Stash->new($anon);
16 # no way to bless something into a hashref yet
17 # my $obj = $anon->bless({});
20 my $code = sub { 'FOO' };
21 $stash->add_symbol('&foo' => $code);
22 is($stash->get_symbol('&foo'), $code);
23 # is($obj->foo, 'FOO');
27 local $TODO = ($Package::Stash::IMPLEMENTATION eq 'PP')
28 ? "can't inflate weird stash entries"
34 my $code = $stash->get_symbol('&bar');
35 is(ref($code), 'CODE');
45 local $TODO = ($Package::Stash::IMPLEMENTATION eq 'PP')
46 ? "can't inflate weird stash entries"
52 my $code = $stash->get_symbol('&baz');
53 is(ref($code), 'CODE');
55 exception { $code->() },
56 qr/Undefined subroutine \&__ANON__::baz called/