view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

# Note: this file was auto-generated by Module::Build::Compat version 0.03
    
    unless (eval "use Module::Build::Compat 0.02; 1" ) {
      print "This module requires Module::Build to install itself.\n";
      
      require ExtUtils::MakeMaker;
      my $yn = ExtUtils::MakeMaker::prompt
	('  Install Module::Build now from CPAN?', 'y');
      
      unless ($yn =~ /^y/i) {
	die " *** Cannot install without Module::Build.  Exiting ...\n";
      }
      
      require Cwd;
      require File::Spec;
      require CPAN;
      

examples/conf/confconfer.pl  view on Meta::CPAN

    $o .= fillOut($2);
}
$o .= $i; # Add remainder

# Out goes the output
print STDERR "Sending output to STDOUT...";
print STDOUT $o;
print STDERR "Done.\n";
exit 0;

# Check for template var, prompting for input if needed.  Returns template
# var value
sub fillOut {
    my $vn = shift;
    unless (exists($v{$vn})) {
	# Get velue, and don't accept empty...
	my $val = '';
	while ($val =~ /^\s*$/) {
	    print STDERR "Enter the value for \"$vn\" : ";
            $| = 1; # Flush to STDOUT
	    my $in = <STDIN>;