view release on metacpan or  search on metacpan

dist.ini  view on Meta::CPAN

[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;