9 my $stash = Package::Stash->new('Foo');
10 $stash->add_symbol('%foo', {bar => 1});
13 is($Foo::foo{bar}, 1, "set in the stash properly");
15 ok(!$stash->has_symbol('$foo'), "doesn't have anything in scalar slot");
16 my $namespace = $stash->namespace;
17 is_deeply(*{ $namespace->{foo} }{HASH}, {bar => 1}, "namespace works properly");