24 my $stash = Package::Stash->new('Foo');
25 ok($stash->has_symbol('&foo'), "has &foo");
26 ok($stash->has_symbol('foo'), "has foo");
27 $stash->remove_symbol('&foo');
28 ok(!$stash->has_symbol('&foo'), "has &foo");
29 ok($stash->has_symbol('foo'), "has foo");
33 my $stash = Package::Stash->new('Bar');
34 ok($stash->has_symbol('&bar'), "has &bar");
35 ok($stash->has_symbol('bar'), "has bar");
36 $stash->remove_symbol('bar');
37 ok($stash->has_symbol('&bar'), "has &bar");
38 ok(!$stash->has_symbol('bar'), "has bar");
42 my $stash = Package::Stash->new('Baz');
44 $stash->add_symbol('baz', *Foo::foo{IO});
45 }, undef, "can add an IO symbol");
46 ok($stash->has_symbol('baz'), "has baz");
47 is($stash->get_symbol('baz'), *Foo::foo{IO}, "got the right baz");