blob: 0e0f9f4a613fe432f0dce4005f111909c9292895 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#! /usr/bin/perl
use strict;
use warnings;
sub run_cmd {
my $cmd = shift;
print "$cmd\n";
system($cmd) == 0
or die "aborting..., command failed with $?";
}
sub install_module {
my $module = shift;
print "checking if $module is installed...\n";
if (system("perl -M$module -e '' > /dev/null 2>&1") != 0) {
run_cmd("cpanm --sudo --notest $module");
}
}
print "checking if cpanm is installed...\n";
if (system("which cpanm > /dev/null 2>&1") != 0) {
run_cmd("curl -L http://cpanmin.us | perl - --sudo --notest App::cpanminus");
}
install_module($_)
for @ARGV;
|
