[gitmo/moose-presentations.git] / moose-class / exercises / install-moose

#!/usr/bin/perl

use Cwd qw( abs_path );
use CPAN;
use File::Spec;

if ( CPAN::HandleConfig->can('load') ) {
    CPAN::HandleConfig->load();
}
else {
    CPAN::Config->load();
}

$CPAN::Config->{urllist} =
    [ 'file://' . File::Spec->catdir( abs_path(q{.}), 'moosepan' ),
      @{ $CPAN::Config->{urllist} } ];

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