(CommandList children: [ (AndOr children: [ (FuncDef name: _cpan2dist body: (BraceGroup children: [ (Assignment keyword: Assign_Local pairs: [ (assign_pair lhs:(LhsName name:cur) op:Equal spids:[13]) (assign_pair lhs:(LhsName name:prev) op:Equal spids:[15]) (assign_pair lhs:(LhsName name:words) op:Equal spids:[17]) (assign_pair lhs:(LhsName name:cword) op:Equal spids:[19]) ] spids: [11] ) (AndOr children: [(C {(_init_completion)}) (ControlFlow token:<ControlFlow_Return return>)] op_id: Op_DPipe ) (Case to_match: {($ VSub_Name '$prev')} arms: [ (case_arm pat_list: [{(--format)}] action: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:COMPREPLY) op: Equal rhs: { (ArrayLiteralPart words: [ { (CommandSubPart command_list: (CommandList children: [ (C {(compgen)} {(-W)} { (SQ <'$(perl -MCPANPLUS::Dist -e \\\n'> < ' "print map { \\"\\$_\\n\\" } CPANPLUS::Dist->dist_types")' > ) } {(--)} {(DQ ($ VSub_Name '$cur'))} ) ] ) left_token: <Left_CommandSub '$('> spids: [48 67] ) } ] ) } spids: [45] ) ] spids: [45] ) (ControlFlow token: <ControlFlow_Return return> arg_word: {(0)} ) ] spids: [37 38 77 16777215] ) (case_arm pat_list: [{(--banlist)} {(--ignorelist)} {(--modulelist)} {(--logfile)}] action: [ (C {(_filedir)}) (ControlFlow token: <ControlFlow_Return return> arg_word: {(0)} ) ] spids: [80 87 98 16777215] ) ] spids: [30 34 101] ) (If arms: [ (if_arm cond: [ (Sentence child: (DBracket expr: (BoolBinary op_id: BoolBinary_GlobDEqual left: {(DQ ($ VSub_Name '$cur'))} right: {(-) (Lit_Other '*')} ) ) terminator: <Op_Semi ';'> ) ] action: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:COMPREPLY) op: Equal rhs: { (ArrayLiteralPart words: [ { (CommandSubPart command_list: (CommandList children: [ (C {(compgen)} {(-W)} {(SQ <'$( _parse_help "$1" )'>)} {(--)} {(DQ ($ VSub_Name '$cur'))} ) ] ) left_token: <Left_CommandSub '$('> spids: [127 143] ) } ] ) } spids: [124] ) ] spids: [124] ) ] spids: [16777215 121] ) ] else_action: [ (Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (LhsName name:cpandirs) op: Equal rhs: { (ArrayLiteralPart words: [ {(DQ ($ VSub_Name '$HOME') (/.cpanplus/))} {(DQ ($ VSub_Name '$HOME') (/.cpan/source/modules/))} ] ) } spids: [153] ) ] spids: [151] ) (Assignment keyword: Assign_Local pairs: [(assign_pair lhs:(LhsName name:packagelist) op:Equal spids:[171])] spids: [169] ) (ForEach iter_name: dir iter_words: [ { (BracedVarSub token: <VSub_Name cpandirs> bracket_op: (WholeArray op_id:Lit_At) spids: [180 185] ) } ] do_arg_iter: False body: (DoGroup children: [ (AndOr children: [ (DBracket expr: (LogicalAnd left: (BoolUnary op_id: BoolUnary_d child: {(DQ ($ VSub_Name '$dir'))} ) right: (BoolUnary op_id: BoolUnary_r child: {(DQ ($ VSub_Name '$dir') (/02packages.details.txt.gz))} ) ) ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:packagelist) op: Equal rhs: {(DQ ($ VSub_Name '$dir') (/02packages.details.txt.gz))} spids: [214] ) ] spids: [214] ) ] op_id: Op_DAmp ) ] spids: [188 221] ) spids: [179 186] ) (AndOr children: [ (DBracket expr: (WordTest w:{($ VSub_Name '$packagelist')}) ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:COMPREPLY) op: Equal rhs: { (ArrayLiteralPart words: [ { (CommandSubPart command_list: (CommandList children: [ (Pipeline children: [ (SimpleCommand words: [ {(zgrep)} { (DQ ('^') (BracedVarSub token: <VSub_Name cur> suffix_op: (PatSub pat: {(-)} replace: {('::')} do_all: True do_prefix: False do_suffix: False ) spids: [241 248] ) ) } {($ VSub_Name '$packagelist')} ] redirects: [ (Redir op_id: Redir_Great fd: 2 arg_word: {(/dev/null)} spids: [255] ) ] ) (C {(awk)} {(SQ <'{print $1}'>)}) (C {(sed)} {(-e)} {(SQ <'s/::/-/g'>)}) ] negated: False ) ] ) left_token: <Left_CommandSub '$('> spids: [235 276] ) } ] ) } spids: [232] ) ] spids: [232] ) ] op_id: Op_DAmp ) ] spids: [148 281] ) ] spids: [8] ) spids: [4 7] ) (C {(complete)} {(-F)} {(_cpan2dist)} {(-o)} {(default)} {(cpan2dist)}) ] op_id: Op_DAmp ) ] )