Geek asks and answers

Packaging a perl application to work outside the default perl prefix

I use Module :: Build (although I am flexible in build environments) to package some perl software that I write for internal use, where I work. It includes several scripts and some auxiliary modules. My plan is to make sure that during the build process you can specify the prefix of what you want (i.e., something outside perl default @INC), and the built-in scripts should still find their auxiliary modules without any problems .

I want to do this because I want to distribute this software internally using "Encap", which is a packaging tool that by default cannot install anything outside of / usr / local and reside on RedHat, our perl does not look for / usr / local / lib for default modules.

This leaves me the opportunity to either tell the user to manually install PERL5LIBin / usr / local / lib every time they want to run the application, or do something smart with the build system so that it will script every line of the script use libafter the instruction --prefix.

Right now I just set the use libdirect pointing to / usr / local / lib manually in each of my scripts, but I don’t really like this as a solution. Mainly due to the testing process: I want to override @INCduring testing to first use my working directory for perl modules, but when creating it, the working directory should be removed from @INCand replaced with the user-specified prefix, But also because I would like to so that this software is installed in arbitrary places (for example, its own small island somewhere in NFS with its own bin / and lib / dirs) and still without problems.

Question :

:: Build use lib ? , MakeMaker pm_filter, , .pm , .pm , . :: Build , , , .

+3
1
>>> daxim@champion:/tmp/Foo-Bar$ tree
.
├── bin
│   └── foobar
├── Build.PL
├── inc
│   └── Local
│       └── Module
│           └── Build
│               └── Fnord.pm
└── lib
    └── Foo
        └── Bar.pm

7 directories, 4 files

>>> daxim@champion:/tmp/Foo-Bar$ cat bin/foobar
use lib "DUMMY";
use Foo::Bar;
print "It works!\n";

>>> daxim@champion:/tmp/Foo-Bar$ cat Build.PL
use lib 'inc';
use Local::Module::Build::Fnord;

my $build = Local::Module::Build::Fnord->new(
    module_name => 'Foo::Bar',
    license     => 'restricted',
);
$build->add_build_element('bin');
$build->create_build_script;

>>> daxim@champion:/tmp/Foo-Bar$ cat inc/Local/Module/Build/Fnord.pm
package Local::Module::Build::Fnord;
use parent 'Module::Build';
sub process_bin_files {
    my ($self) = @_;
    my $lib = $self->install_base . '/lib/perl5';
    system "chmod u+w blib/script/*";
    my $call = qq($^X -p -i -e's[use lib "DUMMY";][use lib "$lib";]' blib/script/*);
    print "$call\n";
    system $call;
};
1;

>>> daxim@champion:/tmp/Foo-Bar$ cat lib/Foo/Bar.pm
package Foo::Bar;
1;

>>> daxim@champion:/tmp/Foo-Bar$ perl Build.PL --install_base=/tmp/usr/local
⋮

>>> daxim@champion:/tmp/Foo-Bar$ ./Build install
Building Foo-Bar
/home/daxim/local/bin/perl -p -i -e's[use lib "DUMMY";][use lib "/tmp/usr/local/lib/perl5";]' blib/script/*
Installing /tmp/usr/local/lib/perl5/Foo/Bar.pm
Installing /tmp/usr/local/bin/foobar

>>> daxim@champion:/tmp/Foo-Bar$ cat blib/script/foobar
use lib "/tmp/usr/local/lib/perl5";
use Foo::Bar;
print "It works!\n";

>>> daxim@champion:/tmp/Foo-Bar$ cd /tmp/usr/local/bin/

>>> daxim@champion:/tmp/usr/local/bin$ perl foobar
It works!
+3

More articles:


All Articles