NAME
lib::filter - Allow/disallow loading modules
VERSION
This document describes version 0.281 of lib::filter (from Perl distribution lib-filter), released on 2021-08-29.
SYNOPSIS
use lib::filter %opts;
DESCRIPTION
lib::filter lets you allow/disallow loading modules using some rules. It works by installing a coderef in @INC
(and additionally by pruning some entries in @INC
). The main use-case for this pragma is for testing.
It has been pointed out to me that for some tasks, alternatives to using this module exist, so I'll be presenting those in the examples below.
To disallow loading any module:
% perl -Mlib::filter=allow_core,0,allow_noncore,0 yourscript.pl
You can also use lib::none for this, or simply empty
@INC
yourself, e.g.:{ local @INC = (); ... }
To no-op instead of disallowing, see lib::noop::all.
To allow only core modules:
For example for testing a fatpacked script (see App::FatPacker):
% perl -Mlib::filter=allow_noncore,0 yourscript.pl
You can also use lib::core::only for this, which comes with the App::FatPacker distribution.
To only allow a specific set of modules:
% perl -Mlib::filter=allow_core,0,allow_noncore,0,allow,'XSLoader;List::Util' yourscript.pl
To no-op instead of disallowing, see lib::noop::except.
To allow core modules plus some additional modules:
For example to test a fatpacked script that might still require some XS modules:
# allow additional modules by pattern % perl -Mlib::filter=allow_noncore,0,allow_re,'^DateTime::.*' yourscript.pl # allow additional modules listed in a file % perl -Mlib::filter=allow_noncore,0,allow_list,'/tmp/allow.txt' yourscript.pl # allow core modules plus additional modules found in some dirs % perl -Mlib::filter=allow_noncore,0,extra_inc,'.:proj/lib' yourscript.pl # allow some non-core XS modules % perl -MModule::CoreList -Mlib::filter=filter,'sub{ return 1 if Module::CoreList->is_core($_); return 1 if m!Clone|Acme/Damn!; 0' yourscript.pl % perl -Mlib::coreplus=Clone,Acme::Damn yourscript.pl
Alternatively, you can also test by preloading the additional modules before using lib::core::only:
% perl -mClone -mAcme::Damn -Mlib::core::only yourscript.pl
To allow a module and recursively all other modules that the module requires
This is convenient when we want to allow a non-trivial module which itself uses some other modules, e.g. Moo or Moose:
% perl -Mlib::filter=allow_noncore,0,allow,Moo,allow_is_recursive=0
To disallow some modules:
For example to test that a script can still run without a module (e.g. an optional prereq):
% perl -Mlib::filter=disallow,'YAML::XS;JSON::XS' yourscript.pl # idem, but the list of disallowed modules are retrieved from a file % perl -Mlib::filter=disallow_list,/tmp/disallow.txt yourscript.pl
Devel::Hide is another module which you can you for exactly this purpose:
% perl -MDevel::Hide=YAML::XS,JSON::XS yourscript.pl
To no-op instead of disallowing, see lib::noop.
Do custom filtering
% perl -Mlib::filter=filter,sub{not/^Foo::/} yourscript.pl
OPTIONS
Known options:
debug => bool
If set to true, print diagnostics when filtering.
disallow => str
Add a semicolon-separated list of modules to disallow.
disallow_re => str
Add modules matching regex pattern to disallow.
disallow_list => filename
Read a file containing list of modules to disallow (one module per line).
allow => str
Add a semicolon-separated list of module names to allow.
allow_re => str
Allow modules matching regex pattern.
allow_list => filename
Read a file containing list of modules to allow (one module per line).
allow_is_recursive => bool (default: 0)
If set to 1, then will also allow modules that are required by the allowed modules (and modules that are allowed by those modules, and so on). This is convenient if you want to allow a non-trivial module, say, Moo or Moose which will require other modules too. Without this option, you will need to explicitly allow each of those modules yourself.
allow_core => bool (default: 1)
Allow core modules.
allow_noncore => bool (default: 1)
Allow non-core modules.
extra_inc => str
Add additional path to search modules in. String must be colon-separated paths.
filter => code
Do custom filtering. Code will receive module name (e.g.
Foo/Bar.pm
) as its argument ($_
is also localized to contained the module name, for convenience) and should return 1 if the module should be allowed.
How a module is filtered:
First it's checked against
filter
, if that option is definedthen, it is checked against the
disallow
/disallow_re
/disallow_list
.If it matches one of those options then the module is disallowed.
Otherwise it is checked against the
allow
/allow_re
/allow_list
.If it matches one of those options and the module's path is found in the directories in
@INC
, then the module is allowed.If
allow_is_recursive
is true, check the requirer.If the calling package is already in
%INC
, we allow that. For example, if we allowMoo
andMoo
calls Moo::_strictures and Module::Runtime, we will also allow them. Later ifMoo::_strictures
tries to load strictures, we also allow it, and so on.Finally, allow_core/allow_noncore is checked.
When
allow_core
is set to false, core directories are excluded. Likewise, whenallow_noncore
is set to false, non-core directories are excluded.
ENVIRONMENT
PERL_LIB_FILTER_DEBUG
Boolean. Sets the default for the debug
option.
HOMEPAGE
Please visit the project's homepage at https://metacpan.org/release/lib-filter.
SOURCE
Source repository is at https://github.com/perlancar/perl-lib-filter.
SEE ALSO
Related/similar modules: lib::none, lib::core::only, Devel::Hide, Test::Without::Module.
To simulate the absence of certain programs in PATH, you can try File::Which::Patch::Hide.
To no-op instead of disallowing, see lib::noop.
AUTHOR
perlancar <perlancar@cpan.org>
CONTRIBUTORS
A. Sinan Unur <nanis@cpan.org>
Olivier Mengué <dolmen@cpan.org>
CONTRIBUTING
To contribute, you can send patches by email/via RT, or send pull requests on GitHub.
Most of the time, you don't need to build the distribution yourself. You can simply modify the code, then test via:
% prove -l
If you want to build the distribution (e.g. to try to install it locally on your system), you can install Dist::Zilla, Dist::Zilla::PluginBundle::Author::PERLANCAR, and sometimes one or two other Dist::Zilla plugin and/or Pod::Weaver::Plugin. Any additional steps required beyond that are considered a bug and can be reported to me.
COPYRIGHT AND LICENSE
This software is copyright (c) 2021, 2016, 2015 by perlancar <perlancar@cpan.org>.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
BUGS
Please report any bugs or feature requests on the bugtracker website https://rt.cpan.org/Public/Dist/Display.html?Name=lib-filter
When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature.