view release on metacpan or  search on metacpan

script/xlate  view on Meta::CPAN

=cut

[[ $pod =~ Version\ +([0-9.]+) ]] && my_version=${BASH_REMATCH[1]}

##############################################################################
# Utility functions
##############################################################################

dist_dir() {
    local mod=$1
    perl -M$mod -MFile::Share=:all -E "say dist_dir '${mod//::/-}'"
}

warn() {
    [[ ${quiet:-} ]] && return
    echo "$@" >&2
}

die() {
    echo "$myname: $*" >&2
    exit 1