use Test::More qw/no_plan/;

use Util::Any {Scalar => [qw/blessed weaken/]};
no strict 'refs';

ok(defined &weaken , 'weaken');
ok(defined &blessed , 'blessed');
my $hoge = bless {};
ok(blessed $hoge, "blessed test");

foreach (grep {$_ ne 'weaken' and $_ ne 'blessed'} @Scalar::Util::EXPORT_OK) {
  ok(! defined &{$_} , $_);
}

foreach (@Hash::Util::EXPORT_OK) {
  no strict 'refs';
  ok(! defined &{$_} , $_) if defined &{'Hash::Util::' . $_};
}

foreach (@List::Util::EXPORT_OK) {
  ok(! defined &{$_} , $_);
}

foreach (@List::MoreUtils::EXPORT_OK) {
  ok(! defined &{$_} , $_);
}