use Test::More qw/no_plan/; use Util::Any qw/Hash/; no strict 'refs'; foreach (@Hash::Util::EXPORT_OK) { no strict 'refs'; ok(defined &{$_} , $_) if defined &{'Hash::Util::' . $_}; } foreach (@Scalar::Util::EXPORT_OK) { ok(! defined &{$_} , $_); } foreach (@List::Util::EXPORT_OK) { ok(! defined &{$_} , $_); } foreach (@List::MoreUtils::EXPORT_OK) { ok(! defined &{$_} , $_); }