# from choroba pm#11146644  (modified)

use warnings;
use strict;

use ModAll;

print "'$_' \n" for Foo::bar(qw(some stuff)), m1(), m2('whatever'), m3;

##</code><code>##

# from choroba pm#11146644  (modified)

package ModAll;

use warnings;
use strict;

# use Data::Dump qw(dd);  # for debug

use constant USE_ALL => qw(Mod1 Mod2 Mod3 Foo);
eval "use $_" for USE_ALL;

use Exporter 'import';
our @EXPORT =
    map eval,
    map "\@${_}::EXPORT",
    USE_ALL
    ;

__PACKAGE__

##</code><code>##

package Mod1;

use warnings;
use strict;

use Exporter 'import';
our @EXPORT = qw( m1 );

sub m1 { "m1(@_)" }

__PACKAGE__

##</code><code>##

package Mod2;

use warnings;
use strict;

use Exporter 'import';
our @EXPORT = qw( m2 );

sub m2 { "m2(@_)" }

__PACKAGE__

##</code><code>##

package Mod3;

use warnings;
use strict;

use Exporter 'import';
our @EXPORT = qw( m3 );

sub m3 { "m3(@_)" }

__PACKAGE__

##</code><code>##

# Foo.pm

package Foo;

use strict;
use warnings;

sub bar {
    sprintf "hiya from -%s-(@_) invoked from '%s'", (caller 0)[3, 0];
    }

1;

##</code><code>##

Win8 Strawberry 5.8.9.5 (32)  Fri 09/02/2022 19:51:48
C:\@Work\Perl\monks\nataraj
>perl tldr.pl
'hiya from -Foo::bar-(some stuff) invoked from 'main''
'm1()'
'm2(whatever)'
'm3()'