use My::Module @args;
# This becomes ...
BEGIN {
require My::Module;
My::Module->import( @args );
}
####
require My::Module;
# This becomes ...
sub require {
my ($name) = @_;
(my $filename = $name) =~ s!::!/!g;
$filename .= '.pm' if $name =~ /::/;
unless ( exists $INC{ $filename } ) {
# Load the file into memory, figuring out which of @INC to use.
# Put the full pathname into $full_path_name
$INC{ $filename } = $full_path_name;
}
}
####
sub require {
my ($name) = @_;
########## THIS IS ADDED
$name = lc $name;
########## TO HERE
(my $filename = $name) =~ s!::!/!g;
$filename .= '.pm' if $name =~ /::/;
unless ( exists $INC{ $filename } ) {
# Load the file into memory, figuring out which of @INC to use.
# Put the full pathname into $full_path_name
$INC{ $filename } = $full_path_name;
}
}