(command.CommandList
  children: [
    (command.ShFunction
      name_tok: <_perlmodules>
      name: _perlmodules
      body: 
        (BraceGroup
          left: <Id.Lit_LBrace '{'>
          children: [
            (command.ShAssignment
              left: <Id.Lit_VarLike 'COMPREPLY='>
              pairs: [
                (AssignPair
                  left: <Id.Lit_VarLike 'COMPREPLY='>
                  lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'COMPREPLY='> name:COMPREPLY)
                  op: assign_op.Equal
                  rhs: 
                    {
                      (ShArrayLiteral
                        left: <Id.Op_LParen _>
                        words: [
                          {
                            (CommandSub
                              left_token: <Id.Left_DollarParen '$('>
                              child: 
                                (command.Simple
                                  blame_tok: <compgen>
                                  more_env: []
                                  words: [
                                    {<compgen>}
                                    {<-P>}
                                    {(DQ ($ Id.VSub_DollarName prefix))}
                                    {<-W>}
                                    {
                                      (DQ 
                                        (CommandSub
                                          left_token: <Id.Left_DollarParen '$('>
                                          child: 
                                            (command.Simple
                                              blame_tok: <Id.Left_DollarBrace '${'>
                                              more_env: []
                                              words: [
                                                {
                                                  (BracedVarSub
                                                    left: <Id.Left_DollarBrace '${'>
                                                    token: <Id.VSub_Number 1>
                                                    var_name: 1
                                                    suffix_op: 
                                                      (suffix_op.Unary
                                                        op: <Id.VTest_ColonHyphen _>
                                                        arg_word: {<perl>}
                                                      )
                                                    right: <Id.Right_DollarBrace '}'>
                                                  )
                                                }
                                                {
                                                  (BracedVarSub
                                                    left: <Id.Left_DollarBrace '${'>
                                                    token: <Id.VSub_Name BASH_SOURCE>
                                                    var_name: BASH_SOURCE
                                                    bracket_op: 
                                                      (bracket_op.ArrayIndex
                                                        expr: {<Id.Lit_Digits 0>}
                                                      )
                                                    suffix_op: 
                                                      (suffix_op.Unary
                                                        op: <Id.VOp1_Percent '%'>
                                                        arg_word: 
                                                          {<Id.Lit_Slash '/'> <Id.Lit_Other '*'>}
                                                      )
                                                    right: <Id.Right_DollarBrace '}'>
                                                  ) <'/../helpers/perl'>
                                                }
                                                {<modules>}
                                                {($ Id.VSub_DollarName cur)}
                                              ]
                                              redirects: []
                                              do_fork: T
                                            )
                                          right: <Id.Eof_RParen _>
                                        )
                                      )
                                    }
                                    {<-->}
                                    {(DQ ($ Id.VSub_DollarName cur))}
                                  ]
                                  redirects: []
                                  do_fork: T
                                )
                              right: <Id.Eof_RParen _>
                            )
                          }
                        ]
                        right: <Id.Right_ShArrayLiteral _>
                      )
                    }
                )
              ]
              redirects: []
            )
            (command.Simple
              blame_tok: <__ltrim_colon_completions>
              more_env: []
              words: [
                {<__ltrim_colon_completions>}
                {(DQ ($ Id.VSub_DollarName prefix) ($ Id.VSub_DollarName cur))}
              ]
              redirects: []
              do_fork: T
            )
          ]
          redirects: []
          right: <Id.Lit_RBrace '}'>
        )
    )
    (command.ShFunction
      name_tok: <_perlfunctions>
      name: _perlfunctions
      body: 
        (BraceGroup
          left: <Id.Lit_LBrace '{'>
          children: [
            (command.ShAssignment
              left: <Id.Lit_VarLike 'COMPREPLY='>
              pairs: [
                (AssignPair
                  left: <Id.Lit_VarLike 'COMPREPLY='>
                  lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'COMPREPLY='> name:COMPREPLY)
                  op: assign_op.Equal
                  rhs: 
                    {
                      (ShArrayLiteral
                        left: <Id.Op_LParen _>
                        words: [
                          {
                            (CommandSub
                              left_token: <Id.Left_DollarParen '$('>
                              child: 
                                (command.Simple
                                  blame_tok: <compgen>
                                  more_env: []
                                  words: [
                                    {<compgen>}
                                    {<-P>}
                                    {(DQ ($ Id.VSub_DollarName prefix))}
                                    {<-W>}
                                    {
                                      (DQ 
                                        (CommandSub
                                          left_token: <Id.Left_DollarParen '$('>
                                          child: 
                                            (command.Simple
                                              blame_tok: <Id.Left_DollarBrace '${'>
                                              more_env: []
                                              words: [
                                                {
                                                  (BracedVarSub
                                                    left: <Id.Left_DollarBrace '${'>
                                                    token: <Id.VSub_Number 1>
                                                    var_name: 1
                                                    suffix_op: 
                                                      (suffix_op.Unary
                                                        op: <Id.VTest_ColonHyphen _>
                                                        arg_word: {<perl>}
                                                      )
                                                    right: <Id.Right_DollarBrace '}'>
                                                  )
                                                }
                                                {
                                                  (BracedVarSub
                                                    left: <Id.Left_DollarBrace '${'>
                                                    token: <Id.VSub_Name BASH_SOURCE>
                                                    var_name: BASH_SOURCE
                                                    bracket_op: 
                                                      (bracket_op.ArrayIndex
                                                        expr: {<Id.Lit_Digits 0>}
                                                      )
                                                    suffix_op: 
                                                      (suffix_op.Unary
                                                        op: <Id.VOp1_Percent '%'>
                                                        arg_word: 
                                                          {<Id.Lit_Slash '/'> <Id.Lit_Other '*'>}
                                                      )
                                                    right: <Id.Right_DollarBrace '}'>
                                                  ) <'/../helpers/perl'>
                                                }
                                                {<functions>}
                                                {($ Id.VSub_DollarName cur)}
                                              ]
                                              redirects: []
                                              do_fork: T
                                            )
                                          right: <Id.Eof_RParen _>
                                        )
                                      )
                                    }
                                    {<-->}
                                    {(DQ ($ Id.VSub_DollarName cur))}
                                  ]
                                  redirects: []
                                  do_fork: T
                                )
                              right: <Id.Eof_RParen _>
                            )
                          }
                        ]
                        right: <Id.Right_ShArrayLiteral _>
                      )
                    }
                )
              ]
              redirects: []
            )
          ]
          redirects: []
          right: <Id.Lit_RBrace '}'>
        )
    )
    (command.AndOr
      children: [
        (command.ShFunction
          name_tok: <_perl>
          name: _perl
          body: 
            (BraceGroup
              left: <Id.Lit_LBrace '{'>
              children: [
                (command.Simple
                  blame_tok: <local>
                  more_env: []
                  words: [{<local>} {<cur>} {<prev>} {<words>} {<cword>}]
                  redirects: []
                  do_fork: T
                )
                (command.AndOr
                  children: [
                    (command.Simple
                      blame_tok: <_init_completion>
                      more_env: []
                      words: [{<_init_completion>} {<-n>} {<Id.Lit_Colon ':'>}]
                      redirects: []
                      do_fork: T
                    )
                    (command.ControlFlow keyword:<Id.ControlFlow_Return return>)
                  ]
                  ops: [<Id.Op_DPipe _>]
                )
                (command.Simple
                  blame_tok: <local>
                  more_env: []
                  words: [
                    {<local>}
                    {<Id.Lit_VarLike 'prefix='> (DQ )}
                    {<temp>}
                    {<optPrefix>}
                    {<optSuffix>}
                  ]
                  redirects: []
                  do_fork: T
                )
                (command.If
                  if_kw: <Id.KW_If if>
                  arms: [
                    (IfArm
                      keyword: <Id.KW_If if>
                      cond: 
                        (condition.Shell
                          commands: [
                            (command.Sentence
                              child: 
                                (command.DBracket
                                  left: <Id.KW_DLeftBracket '[['>
                                  expr: 
                                    (bool_expr.Binary
                                      op_id: Id.BoolBinary_GlobDEqual
                                      left: {(DQ ($ Id.VSub_DollarName cur))}
                                      right: {<-> <Id.Lit_Other '?'> <Id.Lit_Other '*'>}
                                    )
                                  right: <Id.Lit_DRightBracket ']]'>
                                  redirects: []
                                )
                              terminator: <Id.Op_Semi _>
                            )
                          ]
                        )
                      then_kw: <Id.KW_Then then>
                      action: [
                        (command.ShAssignment
                          left: <Id.Lit_VarLike 'temp='>
                          pairs: [
                            (AssignPair
                              left: <Id.Lit_VarLike 'temp='>
                              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'temp='> name:temp)
                              op: assign_op.Equal
                              rhs: {($ Id.VSub_DollarName cur)}
                            )
                          ]
                          redirects: []
                        )
                        (command.ShAssignment
                          left: <Id.Lit_VarLike 'prev='>
                          pairs: [
                            (AssignPair
                              left: <Id.Lit_VarLike 'prev='>
                              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'prev='> name:prev)
                              op: assign_op.Equal
                              rhs: 
                                {
                                  (BracedVarSub
                                    left: <Id.Left_DollarBrace '${'>
                                    token: <Id.VSub_Name temp>
                                    var_name: temp
                                    suffix_op: 
                                      (suffix_op.Slice
                                        begin: {<Id.Lit_Digits 0>}
                                        length: {<Id.Lit_Digits 2>}
                                      )
                                    right: <Id.Arith_RBrace _>
                                  )
                                }
                            )
                          ]
                          redirects: []
                        )
                        (command.ShAssignment
                          left: <Id.Lit_VarLike 'cur='>
                          pairs: [
                            (AssignPair
                              left: <Id.Lit_VarLike 'cur='>
                              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'cur='> name:cur)
                              op: assign_op.Equal
                              rhs: 
                                {
                                  (BracedVarSub
                                    left: <Id.Left_DollarBrace '${'>
                                    token: <Id.VSub_Name temp>
                                    var_name: temp
                                    suffix_op: (suffix_op.Slice begin:{<Id.Lit_Digits 2>})
                                    right: <Id.Arith_RBrace _>
                                  )
                                }
                            )
                          ]
                          redirects: []
                        )
                        (command.If
                          if_kw: <Id.KW_If if>
                          arms: [
                            (IfArm
                              keyword: <Id.KW_If if>
                              cond: 
                                (condition.Shell
                                  commands: [
                                    (command.Sentence
                                      child: 
                                        (command.DBracket
                                          left: <Id.KW_DLeftBracket '[['>
                                          expr: 
                                            (bool_expr.LogicalAnd
                                              left: 
                                                (bool_expr.Binary
                                                  op_id: Id.BoolBinary_GlobDEqual
                                                  left: {($ Id.VSub_DollarName prev)}
                                                  right: {<Id.BoolUnary_d -d>}
                                                )
                                              right: 
                                                (bool_expr.Binary
                                                  op_id: Id.BoolBinary_GlobDEqual
                                                  left: {($ Id.VSub_DollarName cur)}
                                                  right: {<t> <Id.Lit_Other '*'>}
                                                )
                                            )
                                          right: <Id.Lit_DRightBracket ']]'>
                                          redirects: []
                                        )
                                      terminator: <Id.Op_Semi _>
                                    )
                                  ]
                                )
                              then_kw: <Id.KW_Then then>
                              action: [
                                (command.ShAssignment
                                  left: <Id.Lit_VarLike 'prev='>
                                  pairs: [
                                    (AssignPair
                                      left: <Id.Lit_VarLike 'prev='>
                                      lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'prev='> name:prev)
                                      op: assign_op.Equal
                                      rhs: {<-dt>}
                                    )
                                  ]
                                  redirects: []
                                )
                                (command.ShAssignment
                                  left: <Id.Lit_VarLike 'cur='>
                                  pairs: [
                                    (AssignPair
                                      left: <Id.Lit_VarLike 'cur='>
                                      lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'cur='> name:cur)
                                      op: assign_op.Equal
                                      rhs: 
                                        {
                                          (BracedVarSub
                                            left: <Id.Left_DollarBrace '${'>
                                            token: <Id.VSub_Name cur>
                                            var_name: cur
                                            suffix_op: (suffix_op.Slice begin:{<Id.Lit_Digits 1>})
                                            right: <Id.Arith_RBrace _>
                                          )
                                        }
                                    )
                                  ]
                                  redirects: []
                                )
                              ]
                              spids: [234 256]
                            )
                          ]
                          else_action: []
                          fi_kw: <Id.KW_Fi fi>
                          redirects: []
                        )
                        (command.ShAssignment
                          left: <Id.Lit_VarLike 'optPrefix='>
                          pairs: [
                            (AssignPair
                              left: <Id.Lit_VarLike 'optPrefix='>
                              lhs: 
                                (sh_lhs_expr.Name
                                  left: <Id.Lit_VarLike 'optPrefix='>
                                  name: optPrefix
                                )
                              op: assign_op.Equal
                              rhs: {<-P> ($ Id.VSub_DollarName prev)}
                            )
                          ]
                          redirects: []
                        )
                        (command.ShAssignment
                          left: <Id.Lit_VarLike 'optSuffix='>
                          pairs: [
                            (AssignPair
                              left: <Id.Lit_VarLike 'optSuffix='>
                              lhs: 
                                (sh_lhs_expr.Name
                                  left: <Id.Lit_VarLike 'optSuffix='>
                                  name: optSuffix
                                )
                              op: assign_op.Equal
                              rhs: {<'-S/'>}
                            )
                          ]
                          redirects: []
                        )
                        (command.ShAssignment
                          left: <Id.Lit_VarLike 'prefix='>
                          pairs: [
                            (AssignPair
                              left: <Id.Lit_VarLike 'prefix='>
                              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'prefix='> name:prefix)
                              op: assign_op.Equal
                              rhs: {($ Id.VSub_DollarName prev)}
                            )
                          ]
                          redirects: []
                        )
                      ]
                      spids: [192 209]
                    )
                  ]
                  else_action: []
                  fi_kw: <Id.KW_Fi fi>
                  redirects: []
                )
                (command.Case
                  case_kw: <Id.KW_Case case>
                  to_match: (case_arg.Word w:{($ Id.VSub_DollarName prev)})
                  arms_start: <Id.KW_In in>
                  arms: [
                    (CaseArm
                      left: <-D>
                      pattern: (pat.Words words:[{<-D>} {<-e>} {<-E>} {<-i>} {<-F>} {<-l>}])
                      middle: <Id.Right_CasePat _>
                      action: [
                        (command.ControlFlow
                          keyword: <Id.ControlFlow_Return return>
                          arg_word: {<0>}
                        )
                      ]
                      right: <Id.Op_DSemi _>
                    )
                    (CaseArm
                      left: <-I>
                      pattern: (pat.Words words:[{<-I>} {<-x>}])
                      middle: <Id.Right_CasePat _>
                      action: [
                        (command.Simple
                          blame_tok: <local>
                          more_env: []
                          words: [
                            {<local>}
                            {<Id.Lit_VarLike 'IFS='> 
                              (SingleQuoted
                                left: <Id.Left_DollarSingleQuote '$\''>
                                tokens: [<Id.Char_OneChar '\\n'>]
                                right: <Id.Right_SingleQuote '\''>
                              )
                            }
                          ]
                          redirects: []
                          do_fork: T
                        )
                        (command.Simple
                          blame_tok: <compopt>
                          more_env: []
                          words: [{<compopt>} {<-o>} {<filenames>}]
                          redirects: []
                          do_fork: T
                        )
                        (command.ShAssignment
                          left: <Id.Lit_VarLike 'COMPREPLY='>
                          pairs: [
                            (AssignPair
                              left: <Id.Lit_VarLike 'COMPREPLY='>
                              lhs: 
                                (sh_lhs_expr.Name
                                  left: <Id.Lit_VarLike 'COMPREPLY='>
                                  name: COMPREPLY
                                )
                              op: assign_op.Equal
                              rhs: 
                                {
                                  (ShArrayLiteral
                                    left: <Id.Op_LParen _>
                                    words: [
                                      {
                                        (CommandSub
                                          left_token: <Id.Left_DollarParen '$('>
                                          child: 
                                            (command.Simple
                                              blame_tok: <compgen>
                                              more_env: []
                                              words: [
                                                {<compgen>}
                                                {<-d>}
                                                {($ Id.VSub_DollarName optPrefix)}
                                                {($ Id.VSub_DollarName optSuffix)}
                                                {<-->}
                                                {(DQ ($ Id.VSub_DollarName cur))}
                                              ]
                                              redirects: []
                                              do_fork: T
                                            )
                                          right: <Id.Eof_RParen _>
                                        )
                                      }
                                    ]
                                    right: <Id.Right_ShArrayLiteral _>
                                  )
                                }
                            )
                          ]
                          redirects: []
                        )
                        (command.ControlFlow
                          keyword: <Id.ControlFlow_Return return>
                          arg_word: {<0>}
                        )
                      ]
                      right: <Id.Op_DSemi _>
                    )
                    (CaseArm
                      left: <-m>
                      pattern: (pat.Words words:[{<-m>} {<-M>}])
                      middle: <Id.Right_CasePat _>
                      action: [
                        (command.ShAssignment
                          left: <Id.Lit_VarLike 'temp='>
                          pairs: [
                            (AssignPair
                              left: <Id.Lit_VarLike 'temp='>
                              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'temp='> name:temp)
                              op: assign_op.Equal
                              rhs: 
                                {
                                  (DQ 
                                    (BracedVarSub
                                      left: <Id.Left_DollarBrace '${'>
                                      token: <Id.VSub_Name cur>
                                      var_name: cur
                                      suffix_op: 
                                        (suffix_op.Unary
                                          op: <Id.VOp1_Pound '#'>
                                          arg_word: {<->}
                                        )
                                      right: <Id.Right_DollarBrace '}'>
                                    )
                                  )
                                }
                            )
                          ]
                          redirects: []
                        )
                        (command.ShAssignment
                          left: <Id.Lit_VarLike 'prefix+='>
                          pairs: [
                            (AssignPair
                              left: <Id.Lit_VarLike 'prefix+='>
                              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'prefix+='> name:prefix)
                              op: assign_op.PlusEqual
                              rhs: 
                                {
                                  (DQ 
                                    (BracedVarSub
                                      left: <Id.Left_DollarBrace '${'>
                                      token: <Id.VSub_Name cur>
                                      var_name: cur
                                      suffix_op: 
                                        (suffix_op.Unary
                                          op: <Id.VOp1_Percent '%'>
                                          arg_word: {($ Id.VSub_DollarName temp)}
                                        )
                                      right: <Id.Right_DollarBrace '}'>
                                    )
                                  )
                                }
                            )
                          ]
                          redirects: []
                        )
                        (command.ShAssignment
                          left: <Id.Lit_VarLike 'cur='>
                          pairs: [
                            (AssignPair
                              left: <Id.Lit_VarLike 'cur='>
                              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'cur='> name:cur)
                              op: assign_op.Equal
                              rhs: {(DQ ($ Id.VSub_DollarName temp))}
                            )
                          ]
                          redirects: []
                        )
                        (command.Simple
                          blame_tok: <_perlmodules>
                          more_env: []
                          words: [{<_perlmodules>} {($ Id.VSub_Number 1)}]
                          redirects: []
                          do_fork: T
                        )
                        (command.ControlFlow
                          keyword: <Id.ControlFlow_Return return>
                          arg_word: {<0>}
                        )
                      ]
                      right: <Id.Op_DSemi _>
                    )
                    (CaseArm
                      left: <-V>
                      pattern: (pat.Words words:[{<-V>}])
                      middle: <Id.Right_CasePat _>
                      action: [
                        (command.If
                          if_kw: <Id.KW_If if>
                          arms: [
                            (IfArm
                              keyword: <Id.KW_If if>
                              cond: 
                                (condition.Shell
                                  commands: [
                                    (command.Sentence
                                      child: 
                                        (command.DBracket
                                          left: <Id.KW_DLeftBracket '[['>
                                          expr: 
                                            (bool_expr.Binary
                                              op_id: Id.BoolBinary_GlobDEqual
                                              left: {($ Id.VSub_DollarName cur)}
                                              right: {<Id.Lit_Colon ':'> <Id.Lit_Other '*'>}
                                            )
                                          right: <Id.Lit_DRightBracket ']]'>
                                          redirects: []
                                        )
                                      terminator: <Id.Op_Semi _>
                                    )
                                  ]
                                )
                              then_kw: <Id.KW_Then then>
                              action: [
                                (command.ShAssignment
                                  left: <Id.Lit_VarLike 'temp='>
                                  pairs: [
                                    (AssignPair
                                      left: <Id.Lit_VarLike 'temp='>
                                      lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'temp='> name:temp)
                                      op: assign_op.Equal
                                      rhs: 
                                        {
                                          (DQ 
                                            (BracedVarSub
                                              left: <Id.Left_DollarBrace '${'>
                                              token: <Id.VSub_Name cur>
                                              var_name: cur
                                              suffix_op: 
                                                (suffix_op.Unary
                                                  op: <Id.VOp1_DPound '##'>
                                                  arg_word: 
                                                    {
                                                      (word_part.ExtGlob
                                                        op: <Id.ExtGlob_Plus '+('>
                                                        arms: [{<':'>}]
                                                        right: <Id.Right_ExtGlob _>
                                                      )
                                                    }
                                                )
                                              right: <Id.Right_DollarBrace '}'>
                                            )
                                          )
                                        }
                                    )
                                  ]
                                  redirects: []
                                )
                                (command.ShAssignment
                                  left: <Id.Lit_VarLike 'prefix+='>
                                  pairs: [
                                    (AssignPair
                                      left: <Id.Lit_VarLike 'prefix+='>
                                      lhs: 
                                        (sh_lhs_expr.Name
                                          left: <Id.Lit_VarLike 'prefix+='>
                                          name: prefix
                                        )
                                      op: assign_op.PlusEqual
                                      rhs: 
                                        {
                                          (DQ 
                                            (BracedVarSub
                                              left: <Id.Left_DollarBrace '${'>
                                              token: <Id.VSub_Name cur>
                                              var_name: cur
                                              suffix_op: 
                                                (suffix_op.Unary
                                                  op: <Id.VOp1_Percent '%'>
                                                  arg_word: {($ Id.VSub_DollarName temp)}
                                                )
                                              right: <Id.Right_DollarBrace '}'>
                                            )
                                          )
                                        }
                                    )
                                  ]
                                  redirects: []
                                )
                                (command.Simple
                                  blame_tok: <local>
                                  more_env: []
                                  words: [
                                    {<local>}
                                    {<Id.Lit_VarLike 'IFS='> 
                                      (SingleQuoted
                                        left: <Id.Left_DollarSingleQuote '$\''>
                                        tokens: [<Id.Char_OneChar '\\n'>]
                                        right: <Id.Right_SingleQuote '\''>
                                      )
                                    }
                                  ]
                                  redirects: []
                                  do_fork: T
                                )
                                (command.ShAssignment
                                  left: <Id.Lit_VarLike 'COMPREPLY='>
                                  pairs: [
                                    (AssignPair
                                      left: <Id.Lit_VarLike 'COMPREPLY='>
                                      lhs: 
                                        (sh_lhs_expr.Name
                                          left: <Id.Lit_VarLike 'COMPREPLY='>
                                          name: COMPREPLY
                                        )
                                      op: assign_op.Equal
                                      rhs: 
                                        {
                                          (ShArrayLiteral
                                            left: <Id.Op_LParen _>
                                            words: [
                                              {
                                                (CommandSub
                                                  left_token: <Id.Left_DollarParen '$('>
                                                  child: 
                                                    (command.Simple
                                                      blame_tok: <compgen>
                                                      more_env: []
                                                      words: [
                                                        {<compgen>}
                                                        {<-P>}
                                                        {(DQ ($ Id.VSub_DollarName prefix))}
                                                        {<-W>}
                                                        {
                                                          (SQ 
                                                            <
'$( $1 -MConfig -e "print join \\"\\\\n\\",\n'
                                                            > <'                        keys %Config::Config" 2>/dev/null )'>
                                                          )
                                                        }
                                                        {<-->}
                                                        {(DQ ($ Id.VSub_DollarName temp))}
                                                      ]
                                                      redirects: []
                                                      do_fork: T
                                                    )
                                                  right: <Id.Eof_RParen _>
                                                )
                                              }
                                            ]
                                            right: <Id.Right_ShArrayLiteral _>
                                          )
                                        }
                                    )
                                  ]
                                  redirects: []
                                )
                                (command.Simple
                                  blame_tok: <__ltrim_colon_completions>
                                  more_env: []
                                  words: [
                                    {<__ltrim_colon_completions>}
                                    {(DQ ($ Id.VSub_DollarName prefix) ($ Id.VSub_DollarName temp))}
                                  ]
                                  redirects: []
                                  do_fork: T
                                )
                              ]
                              spids: [422 436]
                            )
                          ]
                          else_action: []
                          fi_kw: <Id.KW_Fi fi>
                          redirects: []
                        )
                        (command.ControlFlow
                          keyword: <Id.ControlFlow_Return return>
                          arg_word: {<0>}
                        )
                      ]
                      right: <Id.Op_DSemi _>
                    )
                    (CaseArm
                      left: <-d>
                      pattern: (pat.Words words:[{<-d>} {<-dt>}])
                      middle: <Id.Right_CasePat _>
                      action: [
                        (command.If
                          if_kw: <Id.KW_If if>
                          arms: [
                            (IfArm
                              keyword: <Id.KW_If if>
                              cond: 
                                (condition.Shell
                                  commands: [
                                    (command.Sentence
                                      child: 
                                        (command.DBracket
                                          left: <Id.KW_DLeftBracket '[['>
                                          expr: 
                                            (bool_expr.Binary
                                              op_id: Id.BoolBinary_GlobDEqual
                                              left: {($ Id.VSub_DollarName cur)}
                                              right: {<Id.Lit_Colon ':'> <Id.Lit_Other '*'>}
                                            )
                                          right: <Id.Lit_DRightBracket ']]'>
                                          redirects: []
                                        )
                                      terminator: <Id.Op_Semi _>
                                    )
                                  ]
                                )
                              then_kw: <Id.KW_Then then>
                              action: [
                                (command.ShAssignment
                                  left: <Id.Lit_VarLike 'temp='>
                                  pairs: [
                                    (AssignPair
                                      left: <Id.Lit_VarLike 'temp='>
                                      lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'temp='> name:temp)
                                      op: assign_op.Equal
                                      rhs: 
                                        {
                                          (DQ 
                                            (BracedVarSub
                                              left: <Id.Left_DollarBrace '${'>
                                              token: <Id.VSub_Name cur>
                                              var_name: cur
                                              suffix_op: 
                                                (suffix_op.Unary
                                                  op: <Id.VOp1_Pound '#'>
                                                  arg_word: {<':'>}
                                                )
                                              right: <Id.Right_DollarBrace '}'>
                                            )
                                          )
                                        }
                                    )
                                  ]
                                  redirects: []
                                )
                                (command.ShAssignment
                                  left: <Id.Lit_VarLike 'prefix='>
                                  pairs: [
                                    (AssignPair
                                      left: <Id.Lit_VarLike 'prefix='>
                                      lhs: 
                                        (sh_lhs_expr.Name
                                          left: <Id.Lit_VarLike 'prefix='>
                                          name: prefix
                                        )
                                      op: assign_op.Equal
                                      rhs: 
                                        {
                                          (DQ ($ Id.VSub_DollarName prefix) 
                                            (BracedVarSub
                                              left: <Id.Left_DollarBrace '${'>
                                              token: <Id.VSub_Name cur>
                                              var_name: cur
                                              suffix_op: 
                                                (suffix_op.Unary
                                                  op: <Id.VOp1_Percent '%'>
                                                  arg_word: {($ Id.VSub_DollarName temp)}
                                                )
                                              right: <Id.Right_DollarBrace '}'>
                                            )
                                          )
                                        }
                                    )
                                  ]
                                  redirects: []
                                )
                                (command.ShAssignment
                                  left: <Id.Lit_VarLike 'cur='>
                                  pairs: [
                                    (AssignPair
                                      left: <Id.Lit_VarLike 'cur='>
                                      lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'cur='> name:cur)
                                      op: assign_op.Equal
                                      rhs: {(DQ <'Devel::'> ($ Id.VSub_DollarName temp))}
                                    )
                                  ]
                                  redirects: []
                                )
                                (command.Simple
                                  blame_tok: <_perlmodules>
                                  more_env: []
                                  words: [{<_perlmodules>} {($ Id.VSub_Number 1)}]
                                  redirects: []
                                  do_fork: T
                                )
                              ]
                              spids: [527 541]
                            )
                          ]
                          else_action: []
                          fi_kw: <Id.KW_Fi fi>
                          redirects: []
                        )
                      ]
                      right: <Id.Op_DSemi _>
                    )
                  ]
                  arms_end: <Id.KW_Esac esac>
                  redirects: []
                )
                (command.If
                  if_kw: <Id.KW_If if>
                  arms: [
                    (IfArm
                      keyword: <Id.KW_If if>
                      cond: 
                        (condition.Shell
                          commands: [
                            (command.Sentence
                              child: 
                                (command.DBracket
                                  left: <Id.KW_DLeftBracket '[['>
                                  expr: 
                                    (bool_expr.Binary
                                      op_id: Id.BoolBinary_GlobDEqual
                                      left: {(DQ ($ Id.VSub_DollarName cur))}
                                      right: {<-> <Id.Lit_Other '*'>}
                                    )
                                  right: <Id.Lit_DRightBracket ']]'>
                                  redirects: []
                                )
                              terminator: <Id.Op_Semi _>
                            )
                          ]
                        )
                      then_kw: <Id.KW_Then then>
                      action: [
                        (command.ShAssignment
                          left: <Id.Lit_VarLike 'COMPREPLY='>
                          pairs: [
                            (AssignPair
                              left: <Id.Lit_VarLike 'COMPREPLY='>
                              lhs: 
                                (sh_lhs_expr.Name
                                  left: <Id.Lit_VarLike 'COMPREPLY='>
                                  name: COMPREPLY
                                )
                              op: assign_op.Equal
                              rhs: 
                                {
                                  (ShArrayLiteral
                                    left: <Id.Op_LParen _>
                                    words: [
                                      {
                                        (CommandSub
                                          left_token: <Id.Left_DollarParen '$('>
                                          child: 
                                            (command.Simple
                                              blame_tok: <compgen>
                                              more_env: []
                                              words: [
                                                {<compgen>}
                                                {<-W>}
                                                {
                                                  (SQ 
                                                    <
'-C -s -T -u -U -W -X -h -v -V -c -w -d -D -p\n'
                                                    > <'            -n -a -F -l -0 -I -m -M -P -S -x -i -e'>
                                                  )
                                                }
                                                {<-->}
                                                {(DQ ($ Id.VSub_DollarName cur))}
                                              ]
                                              redirects: []
                                              do_fork: T
                                            )
                                          right: <Id.Eof_RParen _>
                                        )
                                      }
                                    ]
                                    right: <Id.Right_ShArrayLiteral _>
                                  )
                                }
                            )
                          ]
                          redirects: []
                        )
                      ]
                      spids: [587 603]
                    )
                  ]
                  else_kw: <Id.KW_Else else>
                  else_action: [
                    (command.Simple
                      blame_tok: <_filedir>
                      more_env: []
                      words: [{<_filedir>}]
                      redirects: []
                      do_fork: T
                    )
                  ]
                  fi_kw: <Id.KW_Fi fi>
                  redirects: []
                )
              ]
              redirects: []
              right: <Id.Lit_RBrace '}'>
            )
        )
        (command.Simple
          blame_tok: <complete>
          more_env: []
          words: [{<complete>} {<-F>} {<_perl>} {<perl>}]
          redirects: []
          do_fork: T
        )
      ]
      ops: [<Id.Op_DAmp _>]
    )
    (command.AndOr
      children: [
        (command.ShFunction
          name_tok: <_perldoc>
          name: _perldoc
          body: 
            (BraceGroup
              left: <Id.Lit_LBrace '{'>
              children: [
                (command.Simple
                  blame_tok: <local>
                  more_env: []
                  words: [{<local>} {<cur>} {<prev>} {<words>} {<cword>}]
                  redirects: []
                  do_fork: T
                )
                (command.AndOr
                  children: [
                    (command.Simple
                      blame_tok: <_init_completion>
                      more_env: []
                      words: [{<_init_completion>} {<-n>} {<Id.Lit_Colon ':'>}]
                      redirects: []
                      do_fork: T
                    )
                    (command.ControlFlow keyword:<Id.ControlFlow_Return return>)
                  ]
                  ops: [<Id.Op_DPipe _>]
                )
                (command.Simple
                  blame_tok: <local>
                  more_env: []
                  words: [{<local>} {<Id.Lit_VarLike 'prefix='> (DQ )} {<temp>}]
                  redirects: []
                  do_fork: T
                )
                (command.If
                  if_kw: <Id.KW_If if>
                  arms: [
                    (IfArm
                      keyword: <Id.KW_If if>
                      cond: 
                        (condition.Shell
                          commands: [
                            (command.Sentence
                              child: 
                                (command.DBracket
                                  left: <Id.KW_DLeftBracket '[['>
                                  expr: 
                                    (bool_expr.Binary
                                      op_id: Id.BoolBinary_GlobDEqual
                                      left: {(DQ ($ Id.VSub_DollarName cur))}
                                      right: {<-> <Id.Lit_Other '?'> <Id.Lit_Other '*'>}
                                    )
                                  right: <Id.Lit_DRightBracket ']]'>
                                  redirects: []
                                )
                              terminator: <Id.Op_Semi _>
                            )
                          ]
                        )
                      then_kw: <Id.KW_Then then>
                      action: [
                        (command.ShAssignment
                          left: <Id.Lit_VarLike 'temp='>
                          pairs: [
                            (AssignPair
                              left: <Id.Lit_VarLike 'temp='>
                              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'temp='> name:temp)
                              op: assign_op.Equal
                              rhs: {($ Id.VSub_DollarName cur)}
                            )
                          ]
                          redirects: []
                        )
                        (command.ShAssignment
                          left: <Id.Lit_VarLike 'prev='>
                          pairs: [
                            (AssignPair
                              left: <Id.Lit_VarLike 'prev='>
                              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'prev='> name:prev)
                              op: assign_op.Equal
                              rhs: 
                                {
                                  (BracedVarSub
                                    left: <Id.Left_DollarBrace '${'>
                                    token: <Id.VSub_Name temp>
                                    var_name: temp
                                    suffix_op: 
                                      (suffix_op.Slice
                                        begin: {<Id.Lit_Digits 0>}
                                        length: {<Id.Lit_Digits 2>}
                                      )
                                    right: <Id.Arith_RBrace _>
                                  )
                                }
                            )
                          ]
                          redirects: []
                        )
                        (command.ShAssignment
                          left: <Id.Lit_VarLike 'cur='>
                          pairs: [
                            (AssignPair
                              left: <Id.Lit_VarLike 'cur='>
                              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'cur='> name:cur)
                              op: assign_op.Equal
                              rhs: 
                                {
                                  (BracedVarSub
                                    left: <Id.Left_DollarBrace '${'>
                                    token: <Id.VSub_Name temp>
                                    var_name: temp
                                    suffix_op: (suffix_op.Slice begin:{<Id.Lit_Digits 2>})
                                    right: <Id.Arith_RBrace _>
                                  )
                                }
                            )
                          ]
                          redirects: []
                        )
                        (command.ShAssignment
                          left: <Id.Lit_VarLike 'prefix='>
                          pairs: [
                            (AssignPair
                              left: <Id.Lit_VarLike 'prefix='>
                              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'prefix='> name:prefix)
                              op: assign_op.Equal
                              rhs: {($ Id.VSub_DollarName prev)}
                            )
                          ]
                          redirects: []
                        )
                      ]
                      spids: [696 713]
                    )
                  ]
                  else_action: []
                  fi_kw: <Id.KW_Fi fi>
                  redirects: []
                )
                (command.Simple
                  blame_tok: <local>
                  more_env: []
                  words: [
                    {<local>}
                    {<Id.Lit_VarLike 'perl='> 
                      (DQ 
                        (BracedVarSub
                          left: <Id.Left_DollarBrace '${'>
                          token: <Id.VSub_Number 1>
                          var_name: 1
                          suffix_op: (suffix_op.Unary op:<Id.VOp1_Percent '%'> arg_word:{<doc>})
                          right: <Id.Right_DollarBrace '}'>
                        )
                      )
                    }
                  ]
                  redirects: []
                  do_fork: T
                )
                (command.AndOr
                  children: [
                    (command.DBracket
                      left: <Id.KW_DLeftBracket '[['>
                      expr: 
                        (bool_expr.Binary
                          op_id: Id.BoolBinary_GlobDEqual
                          left: {($ Id.VSub_DollarName perl)}
                          right: {($ Id.VSub_Number 1)}
                        )
                      right: <Id.Lit_DRightBracket ']]'>
                      redirects: []
                    )
                    (command.Pipeline
                      negated: <Id.KW_Bang '!'>
                      children: [
                        (command.Simple
                          blame_tok: <type>
                          more_env: []
                          words: [{<type>} {($ Id.VSub_DollarName perl)}]
                          redirects: [
                            (Redir
                              op: <Id.Redir_AndGreat '&>'>
                              loc: (redir_loc.Fd fd:1)
                              arg: {<'/dev/null'>}
                            )
                          ]
                          do_fork: T
                        )
                      ]
                      ops: []
                    )
                    (command.ShAssignment
                      left: <Id.Lit_VarLike 'perl='>
                      pairs: [
                        (AssignPair
                          left: <Id.Lit_VarLike 'perl='>
                          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'perl='> name:perl)
                          op: assign_op.Equal
                          rhs: (rhs_word__Empty)
                        )
                      ]
                      redirects: []
                    )
                  ]
                  ops: [<Id.Op_DPipe _> <Id.Op_DAmp _>]
                )
                (command.Case
                  case_kw: <Id.KW_Case case>
                  to_match: (case_arg.Word w:{($ Id.VSub_DollarName prev)})
                  arms_start: <Id.KW_In in>
                  arms: [
                    (CaseArm
                      left: <-h>
                      pattern: (pat.Words words:[{<-h>} {<-V>} {<-n>} {<-o>} {<-M>} {<-w>} {<-L>}])
                      middle: <Id.Right_CasePat _>
                      action: [
                        (command.ControlFlow
                          keyword: <Id.ControlFlow_Return return>
                          arg_word: {<0>}
                        )
                      ]
                      right: <Id.Op_DSemi _>
                    )
                    (CaseArm
                      left: <-d>
                      pattern: (pat.Words words:[{<-d>}])
                      middle: <Id.Right_CasePat _>
                      action: [
                        (command.Simple
                          blame_tok: <_filedir>
                          more_env: []
                          words: [{<_filedir>}]
                          redirects: []
                          do_fork: T
                        )
                        (command.ControlFlow
                          keyword: <Id.ControlFlow_Return return>
                          arg_word: {<0>}
                        )
                      ]
                      right: <Id.Op_DSemi _>
                    )
                    (CaseArm
                      left: <-f>
                      pattern: (pat.Words words:[{<-f>}])
                      middle: <Id.Right_CasePat _>
                      action: [
                        (command.Simple
                          blame_tok: <_perlfunctions>
                          more_env: []
                          words: [{<_perlfunctions>} {($ Id.VSub_DollarName perl)}]
                          redirects: []
                          do_fork: T
                        )
                        (command.ControlFlow
                          keyword: <Id.ControlFlow_Return return>
                          arg_word: {<0>}
                        )
                      ]
                      right: <Id.Op_DSemi _>
                    )
                  ]
                  arms_end: <Id.KW_Esac esac>
                  redirects: []
                )
                (command.If
                  if_kw: <Id.KW_If if>
                  arms: [
                    (IfArm
                      keyword: <Id.KW_If if>
                      cond: 
                        (condition.Shell
                          commands: [
                            (command.Sentence
                              child: 
                                (command.DBracket
                                  left: <Id.KW_DLeftBracket '[['>
                                  expr: 
                                    (bool_expr.Binary
                                      op_id: Id.BoolBinary_GlobDEqual
                                      left: {(DQ ($ Id.VSub_DollarName cur))}
                                      right: {<-> <Id.Lit_Other '*'>}
                                    )
                                  right: <Id.Lit_DRightBracket ']]'>
                                  redirects: []
                                )
                              terminator: <Id.Op_Semi _>
                            )
                          ]
                        )
                      then_kw: <Id.KW_Then then>
                      action: [
                        (command.ShAssignment
                          left: <Id.Lit_VarLike 'COMPREPLY='>
                          pairs: [
                            (AssignPair
                              left: <Id.Lit_VarLike 'COMPREPLY='>
                              lhs: 
                                (sh_lhs_expr.Name
                                  left: <Id.Lit_VarLike 'COMPREPLY='>
                                  name: COMPREPLY
                                )
                              op: assign_op.Equal
                              rhs: 
                                {
                                  (ShArrayLiteral
                                    left: <Id.Op_LParen _>
                                    words: [
                                      {
                                        (CommandSub
                                          left_token: <Id.Left_DollarParen '$('>
                                          child: 
                                            (command.Simple
                                              blame_tok: <compgen>
                                              more_env: []
                                              words: [
                                                {<compgen>}
                                                {<-W>}
                                                {(SQ <'$( _parse_help "$1" -h )'>)}
                                                {<-->}
                                                {(DQ ($ Id.VSub_DollarName cur))}
                                              ]
                                              redirects: []
                                              do_fork: T
                                            )
                                          right: <Id.Eof_RParen _>
                                        )
                                      }
                                    ]
                                    right: <Id.Right_ShArrayLiteral _>
                                  )
                                }
                            )
                          ]
                          redirects: []
                        )
                      ]
                      spids: [852 868]
                    )
                  ]
                  else_kw: <Id.KW_Else else>
                  else_action: [
                    (command.If
                      if_kw: <Id.KW_If if>
                      arms: [
                        (IfArm
                          keyword: <Id.KW_If if>
                          cond: 
                            (condition.Shell
                              commands: [
                                (command.Sentence
                                  child: 
                                    (command.DBracket
                                      left: <Id.KW_DLeftBracket '[['>
                                      expr: 
                                        (bool_expr.Binary
                                          op_id: Id.BoolBinary_GlobNEqual
                                          left: {(DQ ($ Id.VSub_DollarName cur))}
                                          right: 
                                            {
                                              (word_part.ExtGlob
                                                op: <Id.ExtGlob_At '@('>
                                                arms: [{<Id.Lit_Other '*'> <'/'>} {<'[.~]'>}]
                                                right: <Id.Right_ExtGlob _>
                                              ) <Id.Lit_Other '*'>
                                            }
                                        )
                                      right: <Id.Lit_DRightBracket ']]'>
                                      redirects: []
                                    )
                                  terminator: <Id.Op_Semi _>
                                )
                              ]
                            )
                          then_kw: <Id.KW_Then then>
                          action: [
                            (command.Simple
                              blame_tok: <_perlmodules>
                              more_env: []
                              words: [{<_perlmodules>} {($ Id.VSub_DollarName perl)}]
                              redirects: []
                              do_fork: T
                            )
                            (command.If
                              if_kw: <Id.KW_If if>
                              arms: [
                                (IfArm
                                  keyword: <Id.KW_If if>
                                  cond: 
                                    (condition.Shell
                                      commands: [
                                        (command.Sentence
                                          child: 
                                            (command.DBracket
                                              left: <Id.KW_DLeftBracket '[['>
                                              expr: 
                                                (bool_expr.Binary
                                                  op_id: Id.BoolBinary_GlobDEqual
                                                  left: {($ Id.VSub_DollarName cur)}
                                                  right: {<p> <Id.Lit_Other '*'>}
                                                )
                                              right: <Id.Lit_DRightBracket ']]'>
                                              redirects: []
                                            )
                                          terminator: <Id.Op_Semi _>
                                        )
                                      ]
                                    )
                                  then_kw: <Id.KW_Then then>
                                  action: [
                                    (command.ShAssignment
                                      left: <Id.Lit_VarLike 'COMPREPLY+='>
                                      pairs: [
                                        (AssignPair
                                          left: <Id.Lit_VarLike 'COMPREPLY+='>
                                          lhs: 
                                            (sh_lhs_expr.Name
                                              left: <Id.Lit_VarLike 'COMPREPLY+='>
                                              name: COMPREPLY
                                            )
                                          op: assign_op.PlusEqual
                                          rhs: 
                                            {
                                              (ShArrayLiteral
                                                left: <Id.Op_LParen _>
                                                words: [
                                                  {
                                                    (CommandSub
                                                      left_token: <Id.Left_DollarParen '$('>
                                                      child: 
                                                        (command.Simple
                                                          blame_tok: <compgen>
                                                          more_env: []
                                                          words: [
                                                            {<compgen>}
                                                            {<-W>}
                                                            {
                                                              (SQ 
                                                                <
'$( PERLDOC_PAGER=/bin/cat "$1" -u perl |  \\\n'
                                                                > <'                     sed -ne "/perl.*Perl overview/,/perlwin32/p" | \\\n'> 
                                                                <
'                     awk "\\$NF=2 && \\$1 ~ /^perl/ { print \\$1 }" )'
                                                                >
                                                              )
                                                            }
                                                            {<-->}
                                                            {(DQ ($ Id.VSub_DollarName cur))}
                                                          ]
                                                          redirects: []
                                                          do_fork: T
                                                        )
                                                      right: <Id.Eof_RParen _>
                                                    )
                                                  }
                                                ]
                                                right: <Id.Right_ShArrayLiteral _>
                                              )
                                            }
                                        )
                                      ]
                                      redirects: []
                                    )
                                  ]
                                  spids: [931 945]
                                )
                              ]
                              else_action: []
                              fi_kw: <Id.KW_Fi fi>
                              redirects: []
                            )
                          ]
                          spids: [902 923]
                        )
                      ]
                      else_action: []
                      fi_kw: <Id.KW_Fi fi>
                      redirects: []
                    )
                    (command.Simple
                      blame_tok: <_filedir>
                      more_env: []
                      words: [{<_filedir>} {(SQ <'p@([lm]|od)'>)}]
                      redirects: []
                      do_fork: T
                    )
                  ]
                  fi_kw: <Id.KW_Fi fi>
                  redirects: []
                )
              ]
              redirects: []
              right: <Id.Lit_RBrace '}'>
            )
        )
        (command.Simple
          blame_tok: <complete>
          more_env: []
          words: [{<complete>} {<-F>} {<_perldoc>} {<-o>} {<bashdefault>} {<perldoc>}]
          redirects: []
          do_fork: T
        )
      ]
      ops: [<Id.Op_DAmp _>]
    )
  ]
)