The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More qw/no_plan/;

package A0;
use Test::More;

use Util::Any 'all';
ok(defined &min);
ok(defined &camelize);

package A01;
use Test::More;

use Util::Any ':all';
ok(defined &min);
ok(defined &camelize);

package A02;
use Test::More;

use Util::Any -all;
ok(defined &min);
ok(defined &camelize);

package A03;
use Test::More;

use Util::Any 'all', {prefix => 1};
ok(defined &list_min);
ok(defined &string_camelize);

package A04;
use Test::More;

use Util::Any {'list' => ['uniq']};
ok(defined &uniq, "");
ok(!defined &camelize);

package A05;
use Test::More;

use Util::Any {'list' => ['min'], -string => ['camelize']}, {prefix => 1};
ok(defined &list_min, "");
ok(!defined &string_uniq);
ok(defined &string_camelize);

package A1;
use Test::More;

use Util::Any -list => ['uniq', 'min'], {prefix => 1};
ok(defined &list_uniq, 'list_uniq');
ok(defined &list_min, 'list_min  defined');
ok(!defined &list_shuffle, 'list_shuffle is not defined');
ok(!defined &shuffle, 'shuffle is not defined');
ok(!defined &min, 'min is not defined');

package A2;

use Test::More;
use Util::Any -list, {prefix => 1};
ok(defined &list_uniq, 'list_uniq');
ok(defined &list_min,  'list_min');

package AA;

use Test::More;

use Util::Any -list => {-prefix => "l_"};
is_deeply([l_uniq qw/1 0 1 2 3 3/], [1,0,2,3]);

package CC;

use Test::More;

use Util::Any -list => {uniq => {-as => 'listuniq'}};
is_deeply([listuniq qw/1 0 1 2 3 3/], [1,0,2,3]);

package DD;
use Test::More;

use Util::Any -list => {uniq => {-as => 'li_uniq'}, -prefix => "l_"};
is_deeply([li_uniq qw/1 0 1 2 3 3/], [1,0,2,3]);
is(l_min(qw/10 9 8 4 5 7/), 4);
ok(!defined &l_uniq);

package EE;
use Test::More;

use Util::Any -list => {uniq => {-as => 'li_uniq'}, -prefix => "ll_"}, {smart_rename => 1};
is_deeply([li_uniq qw/1 0 1 2 3 3/], [1,0,2,3]);
is(ll_min(qw/10 9 8 4 5 7/), 4);
ok(!defined &ll_uniq);