use Sub::Op;
+sub stash_keys {
+ my ($pkg) = @_;
+
+ no strict 'refs';
+ keys %{"${pkg}::"};
+}
+
BEGIN {
- is_deeply [ sort keys %B:: ], [ sort
+ is_deeply [ sort +stash_keys 'B' ], [ sort
qw/OP:: Deparse:: Hooks::/,
- qw/OPf_STACKED/,
qw/svref_2object/,
], 'No extra symbols in B::';
- is_deeply [ sort keys %B::Deparse:: ], [ sort
- qw/null pp_entersub/
- ], 'No extra symbols in B::Deparse';
+ is_deeply [ sort +stash_keys 'B::Deparse' ], [ ], 'No symbols in B::Deparse';
}
use B;