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 ();
25 my $stash = Package::Stash->new('Foo');
26 ok($stash->has_package_symbol('$SCALAR'), '$SCALAR');
27 ok($stash->has_package_symbol('@ARRAY'), '@ARRAY');
28 ok($stash->has_package_symbol('%HASH'), '%HASH');
30 [sort $stash->list_all_package_symbols('CODE')],
31 [qw(BAR BAZ FOO QUUUX QUUX normal normal_with_proto stub stub_with_proto)],
32 "can see all code symbols"