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