moose-class/exercises/install-moose

   1 #!/usr/bin/perl
   2
   3 use Cwd qw( abs_path );
   4 use CPAN;
   5 use File::Spec;
   6
   7 if ( CPAN::HandleConfig->can('load') ) {
   8     CPAN::HandleConfig->load();
   9 }
  10 else {
  11     CPAN::Config->load();
  12 }
  13
  14 $CPAN::Config->{urllist}
  15     = [ 'file://' . File::Spec->catdir( abs_path(q{.}), 'moosepan' ) ];
  16
  17 CPAN::Shell->install('Moose');
  18