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 defined

  • then, 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 allow Moo and Moo calls Moo::_strictures and Module::Runtime, we will also allow them. Later if Moo::_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, when allow_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.