11 use constant FOO => 1;
12 use constant BAR => \1;
13 use constant BAZ => [];
14 use constant QUUX => {};
15 use constant QUUUX => sub { };
18 sub normal_with_proto () { }
19 sub stub_with_proto ();
22 our $SCALAR_WITH_VALUE = 1;
27 my $stash = Package::Stash->new('Foo');
28 { local $TODO = ($] < 5.010 || $Package::Stash::IMPLEMENTATION eq 'PP')
29 ? "undef scalars aren't visible on 5.8, or from pure perl at all"
31 ok($stash->has_symbol('$SCALAR'), '$SCALAR');
33 ok($stash->has_symbol('$SCALAR_WITH_VALUE'), '$SCALAR_WITH_VALUE');
34 ok($stash->has_symbol('@ARRAY'), '@ARRAY');
35 ok($stash->has_symbol('%HASH'), '%HASH');
37 [sort $stash->list_all_symbols('CODE')],
38 [qw(BAR BAZ FOO QUUUX QUUX normal normal_with_proto stub stub_with_proto)],
39 "can see all code symbols"
42 $stash->add_symbol('%added', {});
43 ok(!$stash->has_symbol('$added'), '$added');
44 ok(!$stash->has_symbol('@added'), '@added');
45 ok($stash->has_symbol('%added'), '%added');
47 my $constant = $stash->get_symbol('&FOO');
48 is(ref($constant), 'CODE', "expanded a constant into a coderef");