perlbrew wrapper

perlbrew.sh

#!/bin/bash

perlbrew=/usr/bin/perlbrew

export PERLBREW_ROOT="$HOME/opt/perlbrew"

if [ ! -f "$PERLBREW_ROOT/etc/bashrc" ]; then
    $perlbrew init
fi

. "$PERLBREW_ROOT/etc/bashrc"

cmd="$1"

if [ "$cmd" = "use" ] || [ "$cmd" = "shell" ]; then
    version="$2"
    shift 2
    eval $($perlbrew env "$version" "$@" 2>/dev/null)
    export PATH="$PERLBREW_PATH:${PATH:-/usr/bin:/bin}"
    export debian_chroot="$PERLBREW_PERL"
    export PERL5LIB=$(perl -le 'print join ":", grep { /site_perl/ } @INC')
fi

if [ "$cmd" = "use" ]; then
    exec $perlbrew use "$version" "$@"
fi

if [ "$cmd" = "shell" ]; then
    if [ $# -gt 0 ]; then
        exec "$@"
    else
        exec "${SHELL:-/bin/sh}" -i
    fi
fi

exec $perlbrew "$@"