view release on metacpan or  search on metacpan

examples/bash/metacpancl.bash  view on Meta::CPAN

            OPTIONS+=('--q-content-type' 'Default is text/html')
            __metacpancl_handle_options_flags
              case $INDEX in
              2)
                  __comp_current_options || return
              ;;
              *)
                __comp_current_options true || return # after parameters
                case ${MYWORDS[$INDEX-1]} in
                  --data-file)
                  ;;
                  --q-content-type)
                    _metacpancl_compreply "'text/html'"$'\n'"'text/plain'"$'\n'"'text/x-pod'"$'\n'"'text/x-markdown'"
                  ;;

                esac
                ;;
            esac
          ;;
          /release/:author/:release)
            FLAGS+=()
            OPTIONS+=()
            __metacpancl_handle_options_flags
              case $INDEX in
              2)
                  __comp_current_options || return
              ;;
              3)
                  __comp_current_options || return
              ;;
              *)
                __comp_current_options true || return # after parameters
                case ${MYWORDS[$INDEX-1]} in
                  --data-file)
                  ;;

                esac
                ;;
            esac
          ;;
          /release/:distribution)
            FLAGS+=()
            OPTIONS+=()
            __metacpancl_handle_options_flags
              case $INDEX in
              2)
                  __comp_current_options || return
              ;;
              *)
                __comp_current_options true || return # after parameters
                case ${MYWORDS[$INDEX-1]} in
                  --data-file)
                  ;;

                esac
                ;;
            esac
          ;;
          /release/_search)
            FLAGS+=()
            OPTIONS+=('--q-q' 'query ("author:ANDK AND status:latest")' '--q-fields' 'resultset fields' '--q-size' 'how many results')
            __metacpancl_handle_options_flags
              case $INDEX in
              *)
                __comp_current_options true || return # after parameters
                case ${MYWORDS[$INDEX-1]} in
                  --data-file)
                  ;;
                  --q-q)
                  ;;
                  --q-fields)
                  ;;
                  --q-size)
                  ;;

                esac
                ;;
            esac
          ;;
        esac

        ;;
        esac
      ;;
      POST)
        FLAGS+=()
        OPTIONS+=()
        __metacpancl_handle_options_flags
        case $INDEX in

        1)
            __comp_current_options || return
            __metacpancl_dynamic_comp 'commands' '/file'$'\t''file'

        ;;
        *)
        # subcmds
        case ${MYWORDS[1]} in
          /file)
            FLAGS+=()
            OPTIONS+=()
            __metacpancl_handle_options_flags
            __comp_current_options true || return # no subcmds, no params/opts
          ;;
        esac

        ;;
        esac
      ;;
      _meta)
        FLAGS+=()
        OPTIONS+=()
        __metacpancl_handle_options_flags
        case $INDEX in

        1)
            __comp_current_options || return
            __metacpancl_dynamic_comp 'commands' 'completion'$'\t''Shell completion functions'$'\n''pod'$'\t''Pod documentation'

        ;;
        *)