ppmi

#!/usr/bin/env bash

MODULE=${1}
LIBPATH=./perl_modules

mkdir -p ${LIBPATH}

URL=$(curl -s https://metacpan.org/pod/${MODULE} | perl -ne '/"downloadUrl" href="(.*?)"/ && print $1')
FILE=${URL##*/}

echo "Downloading ${FILE} from ${URL}"
curl -o ${LIBPATH}/${FILE} ${URL}

PARENT=$(tar tf ${LIBPATH}/${FILE} | head -n 1)
LEN=${#PARENT}
[[ ${PARENT:LEN-1:1} != "/" ]] && PARENT="${PARENT}/"
tar zxvf ${LIBPATH}/${FILE} -C ${LIBPATH} --strip=1 ${PARENT}lib
if [ $? -ne 0 ]; then
    echo "!!! ${1} can't be installed"
fi