# Included modules. my @mods = ();

# Required modules that are included in this kit for convenience. # Syntax and semantics like PREREQ_PM. my %req = ( Text::Filter => 0, Text::Diff => 0, Text::Patch => 0, );

# Check modules, and ask to install them now. $p{PREREQ_PM} = {};

foreach ( sort keys %req ) { my $mod = $_; my $rev = $req{$mod}; my $eval = "use $mod $rev"; eval $eval; if ( $@ ) { print STDERR ("\nI need the $mod package", ($rev ? ", version $rev or higher" : ""), ".\n", "Shall I install it for you? "); my $ans = <STDIN>; if ( $ans =~ /^y/i ) { $mod =~ s/::/\//g; push (@mods, "$mod.pm"); } else { # Have MakeMaker complain. $p{PREREQ_PM}->{$mod} = 0; } } }