(command.AndOr ops: [Id.Op_DAmp] children: [ (command.ShFunction name: _cpan2dist body: (BraceGroup children: [ (C {<local>} {<cur>} {<prev>} {<words>} {<cword>}) (command.AndOr ops: [Id.Op_DPipe] children: [ (C {<_init_completion>}) (command.ControlFlow token:<Id.ControlFlow_Return return>) ] ) (command.Case to_match: {($ Id.VSub_DollarName '$prev')} arms: [ (case_arm pat_list: [{<--format>}] action: [ (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:COMPREPLY) op: assign_op.Equal rhs: { (sh_array_literal left: <Id.Op_LParen _> words: [ { (command_sub left_token: <Id.Left_DollarParen '$('> child: (C {<compgen>} {<-W>} { (SQ <'$(perl -MCPANPLUS::Dist -e \\\n'> < ' "print map { \\"\\$_\\n\\" } CPANPLUS::Dist->dist_types")' > ) } {<-->} {(DQ ($ Id.VSub_DollarName '$cur'))} ) ) } ] ) } spids: [45] ) ] ) (command.ControlFlow token: <Id.ControlFlow_Return return> arg_word: {<0>} ) ] spids: [37 38 77 -1] ) (case_arm pat_list: [{<--banlist>} {<--ignorelist>} {<--modulelist>} {<--logfile>}] action: [ (C {<_filedir>}) (command.ControlFlow token: <Id.ControlFlow_Return return> arg_word: {<0>} ) ] spids: [80 87 98 -1] ) ] ) (command.If arms: [ (if_arm cond: (condition.Shell commands: [ (command.Sentence child: (command.DBracket expr: (bool_expr.Binary op_id: Id.BoolBinary_GlobDEqual left: {(DQ ($ Id.VSub_DollarName '$cur'))} right: {<-> <Id.Lit_Other '*'>} ) ) terminator: <Id.Op_Semi _> ) ] ) action: [ (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:COMPREPLY) op: assign_op.Equal rhs: { (sh_array_literal left: <Id.Op_LParen _> words: [ { (command_sub left_token: <Id.Left_DollarParen '$('> child: (C {<compgen>} {<-W>} {(SQ <'$( _parse_help "$1" )'>)} {<-->} {(DQ ($ Id.VSub_DollarName '$cur'))} ) ) } ] ) } spids: [124] ) ] ) ] spids: [105 121] ) ] else_action: [ (C {<local>} {<Id.Lit_VarLike 'cpandirs='> (sh_array_literal left: <Id.Op_LParen _> words: [ {(DQ ($ Id.VSub_DollarName '$HOME') <'/.cpanplus/'>)} {(DQ ($ Id.VSub_DollarName '$HOME') <'/.cpan/source/modules/'>)} ] ) } ) (C {<local>} {<packagelist>}) (command.ForEach iter_name: dir iter_words: [ { (braced_var_sub token: <Id.VSub_Name cpandirs> bracket_op: (bracket_op.WholeArray op_id:Id.Lit_At) ) } ] do_arg_iter: F body: (command.DoGroup children: [ (command.AndOr ops: [Id.Op_DAmp] children: [ (command.DBracket expr: (bool_expr.LogicalAnd left: (bool_expr.Unary op_id: Id.BoolUnary_d child: {(DQ ($ Id.VSub_DollarName '$dir'))} ) right: (bool_expr.Unary op_id: Id.BoolUnary_r child: { (DQ ($ Id.VSub_DollarName '$dir') <'/02packages.details.txt.gz'> ) } ) ) ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:packagelist) op: assign_op.Equal rhs: { (DQ ($ Id.VSub_DollarName '$dir') <'/02packages.details.txt.gz'>) } spids: [214] ) ] ) ] ) ] ) ) (command.AndOr ops: [Id.Op_DAmp] children: [ (command.DBracket expr: (bool_expr.WordTest w:{($ Id.VSub_DollarName '$packagelist')}) ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:COMPREPLY) op: assign_op.Equal rhs: { (sh_array_literal left: <Id.Op_LParen _> words: [ { (command_sub left_token: <Id.Left_DollarParen '$('> child: (command.Pipeline children: [ (command.Simple words: [ {<zgrep>} { (DQ <'^'> (braced_var_sub token: <Id.VSub_Name cur> suffix_op: (suffix_op.PatSub pat: {<->} replace: {<'::'>} replace_mode: Id.Lit_Slash ) ) ) } {($ Id.VSub_DollarName '$packagelist')} ] redirects: [ (redir op: <Id.Redir_Great '2>'> loc: (redir_loc.Fd fd:2) arg: {<'/dev/null'>} ) ] do_fork: T ) (C {<awk>} {(SQ <'{print $1}'>)}) (C {<sed>} {<-e>} {(SQ <'s/::/-/g'>)}) ] negated: F ) ) } ] ) } spids: [232] ) ] ) ] ) ] ) ] ) ) (C {<complete>} {<-F>} {<_cpan2dist>} {<-o>} {<default>} {<cpan2dist>}) ] )