(command.AndOr ops: [Op_DAmp] children: [ (command.FuncDef name: _cpan2dist body: (command.BraceGroup children: [ (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs:(lhs_expr.LhsName name:cur) op:Equal) (assign_pair lhs:(lhs_expr.LhsName name:prev) op:Equal) (assign_pair lhs:(lhs_expr.LhsName name:words) op:Equal) (assign_pair lhs:(lhs_expr.LhsName name:cword) op:Equal) ] ) (command.AndOr ops: [Op_DPipe] children: [ (C {(_init_completion)}) (command.ControlFlow token:<ControlFlow_Return return>) ] ) (command.Case to_match: {($ VSub_DollarName '$prev')} arms: [ (case_arm pat_list: [{(--format)}] action: [ (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:COMPREPLY) op: Equal rhs: { (word_part.ArrayLiteralPart words: [ { (word_part.CommandSubPart command_list: (command.CommandList children: [ (C {(compgen)} {(-W)} { (SQ <'$(perl -MCPANPLUS::Dist -e \\\n'> < ' "print map { \\"\\$_\\n\\" } CPANPLUS::Dist->dist_types")' > ) } {(--)} {(DQ ($ VSub_DollarName '$cur'))} ) ] ) left_token: <Left_CommandSub '$('> ) } ] ) } ) ] ) (command.ControlFlow token: <ControlFlow_Return return> arg_word: {(0)} ) ] ) (case_arm pat_list: [{(--banlist)} {(--ignorelist)} {(--modulelist)} {(--logfile)}] action: [ (C {(_filedir)}) (command.ControlFlow token: <ControlFlow_Return return> arg_word: {(0)} ) ] ) ] ) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.DBracket expr: (bool_expr.BoolBinary op_id: BoolBinary_GlobDEqual left: {(DQ ($ VSub_DollarName '$cur'))} right: {(-) (Lit_Other '*')} ) ) terminator: <Op_Semi ';'> ) ] action: [ (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:COMPREPLY) op: Equal rhs: { (word_part.ArrayLiteralPart words: [ { (word_part.CommandSubPart command_list: (command.CommandList children: [ (C {(compgen)} {(-W)} {(SQ <'$( _parse_help "$1" )'>)} {(--)} {(DQ ($ VSub_DollarName '$cur'))} ) ] ) left_token: <Left_CommandSub '$('> ) } ] ) } ) ] ) ] ) ] else_action: [ (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:cpandirs) op: Equal rhs: { (word_part.ArrayLiteralPart words: [ {(DQ ($ VSub_DollarName '$HOME') (/.cpanplus/))} {(DQ ($ VSub_DollarName '$HOME') (/.cpan/source/modules/))} ] ) } ) ] ) (command.Assignment keyword: Assign_Local pairs: [(assign_pair lhs:(lhs_expr.LhsName name:packagelist) op:Equal)] ) (command.ForEach iter_name: dir iter_words: [ { (word_part.BracedVarSub token: <VSub_Name cpandirs> bracket_op: (bracket_op.WholeArray op_id:Lit_At) ) } ] do_arg_iter: F body: (command.DoGroup children: [ (command.AndOr ops: [Op_DAmp] children: [ (command.DBracket expr: (bool_expr.LogicalAnd left: (bool_expr.BoolUnary op_id: BoolUnary_d child: {(DQ ($ VSub_DollarName '$dir'))} ) right: (bool_expr.BoolUnary op_id: BoolUnary_r child: {(DQ ($ VSub_DollarName '$dir') (/02packages.details.txt.gz))} ) ) ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:packagelist) op: Equal rhs: {(DQ ($ VSub_DollarName '$dir') (/02packages.details.txt.gz))} ) ] ) ] ) ] ) ) (command.AndOr ops: [Op_DAmp] children: [ (command.DBracket expr: (bool_expr.WordTest w:{($ VSub_DollarName '$packagelist')}) ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:COMPREPLY) op: Equal rhs: { (word_part.ArrayLiteralPart words: [ { (word_part.CommandSubPart command_list: (command.CommandList children: [ (command.Pipeline children: [ (command.SimpleCommand words: [ {(zgrep)} { (DQ ('^') (word_part.BracedVarSub token: <VSub_Name cur> suffix_op: (suffix_op.PatSub pat: {(-)} replace: {('::')} replace_mode: Lit_Slash ) ) ) } {($ VSub_DollarName '$packagelist')} ] redirects: [ (redir.Redir op: <Redir_Great '2>'> fd: 2 arg_word: {(/dev/null)} ) ] ) (C {(awk)} {(SQ <'{print $1}'>)}) (C {(sed)} {(-e)} {(SQ <'s/::/-/g'>)}) ] negated: F ) ] ) left_token: <Left_CommandSub '$('> ) } ] ) } ) ] ) ] ) ] ) ] ) ) (C {(complete)} {(-F)} {(_cpan2dist)} {(-o)} {(default)} {(cpan2dist)}) ] )