The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more
12345678910111213141516 package Linux::Perl::ArchLoader;use strict;use warnings;use Module::Load ();use Linux::Perl::Constants ();sub get_arch_module { my $module_name = shift() . '::' . Linux::Perl::Constants::get_architecture_name(); Module::Load::load($module_name); return $module_name;}1;
package
Linux::Perl::ArchLoader;
use
strict;
warnings;
Module::Load ();
Linux::Perl::Constants ();
sub
get_arch_module {
my
$module_name
=
shift
() .
'::'
. Linux::Perl::Constants::get_architecture_name();
Module::Load::load(
);
return
;
}
1;