script/bootstrap.pl

   1 #!/usr/bin/env perl
   2
   3 # This script installs an initial local::lib into your application directory
   4 # named local-lib5, which automatically turns on local::lib support by default.
   5
   6 # Needs to be run as script/bootstrap.pl
   7
   8 # Will then install Module::Install, and all of your dependencies into
   9 # the local lib directory created.
  10
  11 use strict;
  12 use warnings;
  13
  14 use lib;
  15 use FindBin;
  16 use CPAN;
  17
  18 # Do not take no for an answer.
  19
  20 $ENV{CATALYST_LOCAL_LIB}=1;
  21
  22 # Get the base paths and setup your %ENV
  23
  24 my $basedir;
  25 if (-r "$FindBin::Bin/Makefile.PL") {
  26     $basedir = $FindBin::Bin;
  27 }
  28 elsif (-r "$FindBin::Bin/../Makefile.PL") {
  29     $basedir = "$FindBin::Bin/..";
  30 }
  31
  32 $basedir ||= '';
  33 my $target = "$basedir/local-lib5";
  34 my $lib = "$target/lib/perl5";
  35
  36 # Start installing stuff in the target dir
  37 $ENV{PERL_MM_OPT} = "INSTALL_BASE=$target";
  38 $ENV{PERL_MM_USE_DEFAULT} = "1";
  39 # And allow dependency checks to find it
  40 lib->import("$target/lib/perl5");
  41
  42 # Deal with the weird case that cpan has never been run before and
  43 # cpan wants to create a .cpan directory in /root or somewhere you
  44 # can't access
  45
  46 local %CPAN::Config;
  47 require CPAN::HandleConfig;
  48 CPAN::HandleConfig->load();
  49 $CPAN::Config->{prefs_dir} = "$ENV{HOME}/.cpan/prefs";
  50
  51 force(qw/install local::lib/);
  52
  53 require lib::core::only; # Turn lib::core:only on
  54 require local::lib; # Turn local::lib on
  55 lib::core::only->import();
  56 local::lib->import( $target );
  57
  58 # Become fully self contained
  59 $ENV{PERL5LIB} = ""; # If we used a local::lib to bootstrap, this kills it.
  60
  61 # Sorry kane ;)
  62 $ENV{PERL_AUTOINSTALL_PREFER_CPAN}=1;
  63 $ENV{PERL_MM_OPT} .= " INSTALLMAN1DIR=none INSTALLMAN3DIR=none";
  64
  65 lib::core::only->import();
  66 local::lib->import( $target );
  67
  68 # Force a re-install of local::lib here to get the dependencies for local::lib
  69 # It requires things which ensure we have an unfucked toolchain :)
  70 force(qw/install local::lib/);
  71
  72 # Install the base modules
  73 install('Module::Install');
  74 install('YAML');
  75 install('CPAN');
  76 # For some reason this isn't installed along with M::I::Catalyst.
  77 install('File::Copy::Recursive');
  78 install('Module::Install::Catalyst');
  79
  80 print "local::lib setup, type perl Makefile.PL && make installdeps to install dependencies\n";
  81