Log-Shiras
view release on metacpan or search on metacpan
[Authority]
authority = cpan:JANDREW
[AutoPrereqs]
skip = Level1
skip = Level2
skip = Level3
[Prereqs / TestRequires]
-phase = test
-relationship = requires
Filter::Util::Call = 1.55
[Prereqs / ConfigureRequires]
-phase = configure
-relationship = requires
Moose = 2.1804
MooseX::ShortCut::BuildInstance = 1.044
Data::Walk::Extracted = 0.028
[MetaProvides::Class]
[MetaProvides::Package]
[MetaResourcesFromGit]
lib/Log/Shiras/Unhide.pm view on Meta::CPAN
# Implement string stripping
if( @strip_list ){
$strip_match = '(' . join( '|', @strip_list ) . ')';
warn "Using Log::Shiras::Unhide-$VERSION strip_match string: $strip_match" if !$ENV{hide_warn};
_resurrector_init();
$ENV{loaded_filter_util_call} = 1;
# Check for Filter::Util::Call availability
warn "Attempting to strip leading qr/###$Log::Shiras::Unhide::strip_match/" if IMPORT_DEBUG;
my $FILTER_MODULE = "Filter::Util::Call";
my $require_result;
eval{ $require_result = require_module( 'Filter::Util::Call' ) };# require_module( $FILTER_MODULE ) };#
if( $require_result and ($require_result == 1 or $require_result eq $FILTER_MODULE) ) {
$ENV{loaded_filter_util_call} = 1;
# Strip the top level script
Filter::Util::Call::filter_add(
sub {
my $status;
if($status = Filter::Util::Call::filter_read() > 0 ){
s/^(\s*)###$Log::Shiras::Unhide::strip_match\s/$1/mg;
}
warn "----->script scrubbed line : $_" if VIEW_TRANSFORM;
( run in 0.562 second using v1.01-cache-2.11-cpan-0d8aa00de5b )