11 plan skip_all => "Anonymous stashes in PP need at least perl 5.14"
13 && $Package::Stash::IMPLEMENTATION eq 'PP';
15 plan skip_all => "This isn't really going to work yet, probably";
18 my $stash = Package::Stash->new($anon);
19 # no way to bless something into a hashref yet
20 # my $obj = $anon->bless({});
23 my $code = sub { 'FOO' };
24 $stash->add_symbol('&foo' => $code);
25 is($stash->get_symbol('&foo'), $code);
26 # is($obj->foo, 'FOO');
30 local $TODO = "can't inflate weird stash entries";
35 my $code = $stash->get_symbol('&bar');
36 is(ref($code), 'CODE');
46 local $TODO = "can't inflate weird stash entries";
51 my $code = $stash->get_symbol('&baz');
52 is(ref($code), 'CODE');
54 exception { $code->() },
55 qr/Undefined subroutine \&__ANON__::baz called/