Select Code to Download

# from choroba pm#11146644  (modified)

...
use ModAll;

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

# from choroba pm#11146644  (modified)

...
    ;

__PACKAGE__

package Mod1;

...
sub m1 { "m1(@_)" }

__PACKAGE__

package Mod2;

...
sub m2 { "m2(@_)" }

__PACKAGE__

package Mod3;

...
sub m3 { "m3(@_)" }

__PACKAGE__

# Foo.pm

...
    }

1;

Win8 Strawberry 5.8.9.5 (32)  Fri 09/02/2022 19:51:48
C:\@Work\Perl\monks\nataraj
...
'm1()'
'm2(whatever)'
'm3()'