10 use constant FOO => 1;
11 use constant BAR => \1;
12 use constant BAZ => [];
13 use constant QUUX => {};
14 use constant QUUUX => sub { };
17 sub normal_with_proto () { }
18 sub stub_with_proto ();
21 our $SCALAR_WITH_VALUE = 1;
26 my $stash = Package::Stash->new('Foo');
27 ok($stash->has_package_symbol('$SCALAR'), '$SCALAR');
28 ok($stash->has_package_symbol('$SCALAR_WITH_VALUE'), '$SCALAR_WITH_VALUE');
29 ok($stash->has_package_symbol('@ARRAY'), '@ARRAY');
30 ok($stash->has_package_symbol('%HASH'), '%HASH');
32 [sort $stash->list_all_package_symbols('CODE')],
33 [qw(BAR BAZ FOO QUUUX QUUX normal normal_with_proto stub stub_with_proto)],
34 "can see all code symbols"
37 $stash->add_package_symbol('%added', {});
38 ok(!$stash->has_package_symbol('$added'), '$added');
39 ok(!$stash->has_package_symbol('@added'), '@added');
40 ok($stash->has_package_symbol('%added'), '%added');