8 use Test::Requires 'Package::Anon';
13 my $anon = Package::Anon->new;
14 my $stash = Package::Stash->new($anon);
15 my $obj = $anon->bless({});
18 my $code = sub { 'FOO' };
19 $stash->add_symbol('&foo' => $code);
20 is($stash->get_symbol('&foo'), $code);
27 my $code = $stash->get_symbol('&bar');
28 is(ref($code), 'CODE');
37 my $code = $stash->get_symbol('&baz');
38 is(ref($code), 'CODE');
40 exception { $code->() },
41 qr/Undefined subroutine \&__ANON__::baz called/