eg/scripted_install.pl

   1 #!/usr/bin/perl\r
   2 # contributed by hdp@cpan.org\r
   3 \r
   4 use strict;\r
   5 use warnings;\r
   6 use CPAN;\r
   7 use Cwd;\r
   8 use File::Spec;\r
   9 my $target = Cwd::abs_path($ENV{TARGET})\r
  10   or die "set \$ENV{TARGET} to your desired local::lib dir\n";\r
  11 \r
  12 my $mod = CPAN::Shell->expand(Module => "local::lib");\r
  13 $mod->get;\r
  14 my $dir = CPAN::Shell->expand(Distribution => $mod->cpan_file)->dir;\r
  15 chdir($dir);\r
  16 my $make = $CPAN::Config->{make};\r
  17 system($^X, 'Makefile.PL',"--bootstrap=$target") && exit 1;\r
  18 system($make, 'test') && exit 1;\r
  19 system($make, 'install') && exit 1;\r