view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

# use Data::Dumper::Simple;$Data::Dumper::Terse=TRUE;$Data::Dumper::Indent=TRUE;$Data::Dumper::Useqq=TRUE;$Data::Dumper::Deparse=TRUE;$Data::Dumper::Quotekeys=TRUE;$Data::Dumper::Trailingcomma=TRUE;$Data::Dumper::Sortkeys=TRUE;$Data::Dumper::Purity=T...

###
print colored(['red'],q{ ____       _                 }),colored(['bright_green'],q{      _____} ),"\n";
print colored(['red'],q{|  _ \  ___| |__  _   _  __ _ }),colored(['bright_white'],q{ _ _ } ),colored(['bright_green'],q{| ____|__ _ ___ _   _ }),"\n";
print colored(['red'],q{| | | |/ _ \ '_ \| | | |/ _` |}),colored(['bright_white'],q{(_|_)} ),colored(['bright_green'],q{|  _| / _` / __| | | |}),"\n";
print colored(['red'],q{| |_| |  __/ |_) | |_| | (_| |}),colored(['bright_white'],q{ _ _ } ),colored(['bright_green'],q{| |__| (_| \__ \ |_| |}),"\n";
print colored(['red'],q{|____/ \___|_.__/ \__,_|\__, |}),colored(['bright_white'],q{(_|_)} ),colored(['bright_green'],q{|_____\__,_|___/\__, |}),"\n";
print colored(['red'],q{                        |___/ }),colored(['bright_green'],q{                     |___/}),"\n";
###

print "\nIs this a threaded Perl? ... ";
if ($Config{'useithreads'}) {
	print colored(['green'],'YES'), ", good no changes needed\n\n";
} else { # We modify inline
	print colored(['red'],'NO'), ", changes required\nRemoving threading features ... ";
	my $module = slurp_file('lib/Debug/Easy.pm');
	$module =~ s/use threads;//;

	open(my $FILE, '>', 'lib/Debug/Easy.pm');
	print $FILE $module;
	close($FILE);
	print "COMPLETE\n\n";
} ## end else [ if ($Config{'useithreads'...})]

my $mm = WriteMakefile(
	'NAME'               => 'Debug::Easy',
	'AUTHOR'             => q{Richard Kelsch <rich@rk-internet.com>},
	'VERSION_FROM'       => 'lib/Debug/Easy.pm',
	'ABSTRACT_FROM'      => 'lib/Debug/Easy.pm',
	'PL_FILES'           => {},
	'MIN_PERL_VERSION'   => 5.008000,
	'CONFIGURE_REQUIRES' => {
		'ExtUtils::MakeMaker' => '0',
		'Config'              => '0',
		'Term::ANSIColor'     => '0',
	},
	'BUILD_REQUIRES' => {
		'Test::More' => 0.44,
	},
	'PREREQ_PRINT' => TRUE,
	'PREREQ_FATAL' => FALSE,
	'PREREQ_PM'    => {
		'Time::HiRes'     => '0',
		'Term::ANSIColor' => '0',
		'File::Basename'  => '0',
		'Data::Dumper'    => '0',
	},
	'dist'  => { 'COMPRESS' => 'gzip -9f', 'SUFFIX' => 'gz', },
	'clean' => { 'FILES'    => 'Debug-Easy-* _build*' },
);
# print Dumper($mm);
# print "\nConfiguration of Debug::Easy ", colored(['green'],'Successful'), "\n\n";
exit(0);

sub slurp_file {
    my $file = shift;

    # Read in a text file without using open
    return (
        do { local (@ARGV, $/) = $file; <> }
    );
} ## end sub slurp_file