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 { local $TODO = $] < 5.010 ? "undef scalars aren't visible on 5.8" : undef;
28 ok($stash->has_symbol('$SCALAR'), '$SCALAR');
30 ok($stash->has_symbol('$SCALAR_WITH_VALUE'), '$SCALAR_WITH_VALUE');
31 ok($stash->has_symbol('@ARRAY'), '@ARRAY');
32 ok($stash->has_symbol('%HASH'), '%HASH');
34 [sort $stash->list_all_symbols('CODE')],
35 [qw(BAR BAZ FOO QUUUX QUUX normal normal_with_proto stub stub_with_proto)],
36 "can see all code symbols"
39 $stash->add_symbol('%added', {});
40 ok(!$stash->has_symbol('$added'), '$added');
41 ok(!$stash->has_symbol('@added'), '@added');
42 ok($stash->has_symbol('%added'), '%added');
44 my $constant = $stash->get_symbol('&FOO');
45 is(ref($constant), 'CODE', "expanded a constant into a coderef");