view release on metacpan or  search on metacpan

script/_perl_oo_modulino  view on Meta::CPAN

    else
        pmfile=$pmword
    fi
    shift words || return 1
    local words_json;
    words_json=$($_perl_oo_modulino_inspector cli_array "$words[@]")
    $_perl_oo_modulino_inspector \
        -0 joined \
        $method \
        CURSOR $CURSOR \
        CURRENT $[CURRENT - 1] \
        NUMERIC "$NUMERIC" \
        pmfile $~pmfile \
        words $words_json \
        BUFFER ${(q-)BUFFER} \
        "$@" || return $?
}

function _perl_oo_modulino_set_method_pos {
    local varName=$1; shift
    local argList; argList=("${(@)argv[2,-1]}")
    local pos=$argList[(ri)[[:alpha:]][[:IDENT:]]#]
    typeset -g "$varName=$[pos+1]"
}

function _perl_oo_modulino_debug_do {
    if (($+debug)) && ((debug)); then setopt local_options; set -x; fi
    "$@"
}

function _perl_oo_modulino {
    integer ret=1
    # local curcontext=$curcontext state line