diff options
| author | Jesse Luehrs <doy@tozt.net> | 2010-11-15 12:38:31 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2010-11-15 12:38:31 -0600 |
| commit | fc8fb59f6708036f9e62edccbf9dbf2f9c101c00 (patch) | |
| tree | 1c287d3a854cc00dea6093ff515a752e4872ce7b | |
| parent | 1794a42baec679756241cec04be9d5018618ef50 (diff) | |
| download | package-stash-xs-fc8fb59f6708036f9e62edccbf9dbf2f9c101c00.tar.gz package-stash-xs-fc8fb59f6708036f9e62edccbf9dbf2f9c101c00.zip | |
don't hardcode the list of method names
| -rw-r--r-- | t/lib/Package/Stash.pm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/t/lib/Package/Stash.pm b/t/lib/Package/Stash.pm index fb25135..b804da4 100644 --- a/t/lib/Package/Stash.pm +++ b/t/lib/Package/Stash.pm @@ -8,9 +8,7 @@ use Package::Stash::XS; BEGIN { my $ps = Package::Stash::XS->new(__PACKAGE__); my $ps_xs = Package::Stash::XS->new('Package::Stash::XS'); - for my $method (qw(new name namespace add_symbol remove_glob has_symbol - get_symbol get_or_add_symbol remove_symbol - list_all_symbols get_all_symbols)) { + for my $method ($ps_xs->list_all_symbols('CODE')) { my $sym = '&' . $method; $ps->add_symbol($sym => $ps_xs->get_symbol($sym)); } |