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