5 use Test::More tests => 17;
15 our %hash = (a => 'b');
22 foreach my $sym(qw(&code $scalar %hash @array *code *scalar *hash *array)){
23 ok $meta->has_package_symbol($sym), "has_package_symbol('$sym')";
26 ok !$meta->has_package_symbol('$hogehoge');
27 ok !$meta->has_package_symbol('%array');
29 is $meta->get_package_symbol('&code'), \&Foo::code;
30 is $meta->get_package_symbol('$scalar'), \$Foo::scalar;
31 is $meta->get_package_symbol('%hash'), \%Foo::hash;
32 is $meta->get_package_symbol('@array'), \@Foo::array;
33 is $meta->get_package_symbol('*code'), \*Foo::code;
35 is $meta->get_package_symbol('$hogehoge'), undef;
36 is $meta->get_package_symbol('%array'), undef;