Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Apply source filter on an external module
Perl
Tag: v0.0.2

Fetching latest commit…

Cannot retrieve the latest commit at this time

Failed to load latest commit information.
lib
t
.gitignore
Changes
MANIFEST.SKIP
README.md
dist.ini
perlcritic.rc

README.md

NAME

filtered - Apply source filter on external module

SYNOPSIS

# Apply source filter YourFilter.pm on Target.pm, then result can be used as FilteredTarget
use filtered by => 'YourFilter', as => 'FilteredTarget', on => 'Target', qw(func);
my $obj = FilteredTarget->new;

# You can omit `as' option and `on' key
use filtered by => 'YourFilter', 'Target', qw(func);
my $obj = Target->new; # Target is filtered

# You can use differnt module with the same filter
use filtered by => 'YourFilter', as => 'FilteredTarget1', on => 'Target1', qw(func);
use filtered by => 'YourFilter', as => 'FilteredTarget2', on => 'Target2', qw(func);

# or, you can also use differnt filters on the same module
use filtered by => 'YourFilter1', as => 'FilteredTarget1', on => 'Target', qw(func);
use filtered by => 'YourFilter2', as => 'FilteredTarget2', on => 'Target', qw(func);

DESCRIPTION

Source filter has unlimited power to enhance Perl. However, source filter is usually applied on your own sources. This module enables you to apply source filter on external module.

OPTIONS

Rest of the options are passed to import of filtered module.

  • by

Specify a source filter module you want to apply on an external module.

  • as

Specify the package name for the resultant filtered module. This option can be omitted. If omitted, original names are used.

  • on

Specify a target module. on keyword can be ommited.

CAVEATS

  • This module uses @INC hook.

For @INC hook, please consult perldoc -f require. Hook itself is enabled in short period but it may affect other modules.

  • Replacement by as is applied in limited context.

If you specified as => FilteredTarget, on => Target, the following codes:

package Target::work;
package Target;
Target::work::call();

are transformed into as follows:

package FilteredTarget::work;
package FilteredTarget;
FilteredTarget::work::call();

Actually, only '\bpackage\s+Target\b' and '\bTarget::\b' are replaced.

SEE ALSO

AUTHOR

Yasutaka ATARASHI yakex@cpan.org

LICENSE

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

Something went wrong with that request. Please try again.