The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
use Test::More qw/no_plan/;
use strict;
use lib qw(./lib t/lib);
require Util::Any;

$Util::Any::Utils->{-list} = [
                              ["List::Util", "LLLL"],
                              ["List::MoreUtils", "llll"],
                             ];

package AAA;
use Test::More;

Util::Any->import(-list => {uniq => {-as => 'luniq'}, -prefix => "ll"}, {prefix => 1, module_prefix => 1, smart_rename => 1});
ok(defined &luniq);

package BBB;
use Test::More;

Util::Any->import(-list => ['uniq', -prefix => "ll"], {prefix => 1, module_prefix => 1, smart_rename => 1});

ok(defined &lluniq);

package CCC;
use Test::More;

Util::Any->import(-list => ['uniq'], {prefix => 1, module_prefix => 1, smart_rename => 1});

ok(defined &lllluniq);

package DDD;
use Test::More;

Util::Any->import(-list => ['uniq'], {prefix => 1, smart_rename => 1});

ok(defined &list_uniq);

package EEE;
use Test::More;

Util::Any->import(-list => ['uniq'], {module_prefix => 1, smart_rename => 1});

ok(defined &lllluniq);

package FFF;
use Test::More;

Util::Any->import(-list => ['uniq'], {module_prefix => 1, prefix => 1});

ok(defined &lllluniq);

1;