(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:pkgname) op:Equal rhs:{(perl-unicode-string)} spids:[9])]
      spids: [9]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:_pkgreal) op:Equal rhs:{(Unicode-String)} spids:[12])]
      spids: [12]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:pkgver) op:Equal rhs:{(2.09)} spids:[15])]
      spids: [15]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:pkgrel) op:Equal rhs:{(5)} spids:[18])]
      spids: [18]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:pkgdesc)
          op: Equal
          rhs: {(DQ ("String of Unicode characters for perl (UCS2/UTF16)"))}
          spids: [21]
        )
      ]
      spids: [21]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:url)
          op: Equal
          rhs: {(DQ ("http://search.cpan.org/dist/Unicode-String/"))}
          spids: [26]
        )
      ]
      spids: [26]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:arch) op:Equal rhs:{(DQ (all))} spids:[31])]
      spids: [31]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:license)
          op: Equal
          rhs: {(DQ ("GPL PerlArtistic"))}
          spids: [36]
        )
      ]
      spids: [36]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:cpandepends) op:Equal rhs:{(DQ )} spids:[41])]
      spids: [41]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:cpanmakedepends) op:Equal rhs:{(DQ ("   "))} spids:[45])]
      spids: [45]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:depends)
          op: Equal
          rhs: {(DQ ($ VSub_Name "$cpandepends"))}
          spids: [50]
        )
      ]
      spids: [50]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:makedepends)
          op: Equal
          rhs: {(DQ ("perl-dev ") ($ VSub_Name "$cpanmakedepends"))}
          spids: [55]
        )
      ]
      spids: [55]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:subpackages)
          op: Equal
          rhs: {(DQ ($ VSub_Name "$pkgname") (-doc))}
          spids: [61]
        )
      ]
      spids: [61]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:source)
          op: Equal
          rhs: 
            {
              (DQ ("http://search.cpan.org/CPAN/authors/id/G/GA/GAAS/") ($ VSub_Name "$_pkgreal") (-) 
                ($ VSub_Name "$pkgver") (".tar.gz\n") ("\tperl-Unicode-String-2.09-undefined.patch\n") ("\t")
              )
            }
          spids: [67]
        )
      ]
      spids: [67]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:_builddir)
          op: Equal
          rhs: {(DQ ($ VSub_Name "$srcdir") (/) ($ VSub_Name "$_pkgreal") (-) ($ VSub_Name "$pkgver"))}
          spids: [79]
        )
      ]
      spids: [79]
    )
    (FuncDef
      name: prepare
      body: 
        (BraceGroup
          children: [
            (C {(cd)} {(DQ ($ VSub_Name "$_builddir"))})
            (ForEach
              iter_name: i
              iter_words: [{($ VSub_Name "$source")}]
              do_arg_iter: False
              body: 
                (DoGroup
                  children: [
                    (Case
                      to_match: {($ VSub_Name "$i")}
                      arms: [
                        (case_arm
                          pat_list: [{(Lit_Other "*") (.patch)}]
                          action: [
                            (Sentence
                              child: (C {(msg)} {($ VSub_Name "$i")})
                              terminator: <Op_Semi ";">
                            )
                            (AndOr
                              children: [
                                (C {(patch)} {(-p1)} {(-i)} 
                                  {(DQ ($ VSub_Name "$srcdir")) (/) ($ VSub_Name "$i")}
                                )
                                (ControlFlow
                                  token: <ControlFlow_Return return>
                                  arg_word: {(1)}
                                )
                              ]
                              op_id: Op_DPipe
                            )
                          ]
                          spids: [122 124 148 -1]
                        )
                      ]
                      spids: [115 119 151]
                    )
                  ]
                  spids: [112 154]
                )
              spids: [108 110]
            )
            (C {(export)} 
              {(Lit_VarLike "CFLAGS=") 
                (CommandSubPart
                  command_list: 
                    (CommandList
                      children: [(C {(perl)} {(-MConfig)} {(-E)} {(SQ <"say $Config{ccflags}">)})]
                    )
                  left_token: <Left_Backtick "`">
                  spids: [160 170]
                )
              }
            )
            (SimpleCommand
              words: [{(perl)} {(Makefile.PL)} {(Lit_VarLike "INSTALLDIRS=") (vendor)}]
              more_env: [(env_pair name:PERL_MM_USE_DEFAULT val:{(1)} spids:[173])]
            )
          ]
          spids: [93]
        )
      spids: [89 92]
    )
    (FuncDef
      name: build
      body: 
        (BraceGroup
          children: [
            (C {(cd)} {(DQ ($ VSub_Name "$_builddir"))})
            (C {(export)} 
              {(Lit_VarLike "CFLAGS=") 
                (CommandSubPart
                  command_list: 
                    (CommandList
                      children: [(C {(perl)} {(-MConfig)} {(-E)} {(SQ <"say $Config{ccflags}">)})]
                    )
                  left_token: <Left_Backtick "`">
                  spids: [203 213]
                )
              }
            )
            (AndOr children:[(C {(make)})(C {(make)} {(test)})] op_id:Op_DAmp)
          ]
          spids: [190]
        )
      spids: [186 189]
    )
    (FuncDef
      name: package
      body: 
        (BraceGroup
          children: [
            (C {(cd)} {(DQ ($ VSub_Name "$_builddir"))})
            (AndOr
              children: [
                (C {(make)} {(Lit_VarLike "DESTDIR=") (DQ ($ VSub_Name "$pkgdir"))} {(install)})
                (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})
              ]
              op_id: Op_DPipe
            )
            (C {(find)} {(DQ ($ VSub_Name "$pkgdir"))} 
              {(EscapedLiteralPart token:<Lit_EscapedChar "\\(">)} {(-name)} {(perllocal.pod)} {(-o)} {(-name)} {(.packlist)} 
              {(EscapedLiteralPart token:<Lit_EscapedChar "\\)">)} {(-delete)}
            )
          ]
          spids: [231]
        )
      spids: [227 230]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:md5sums)
          op: Equal
          rhs: 
            {
              (DQ ("553e68e603723bf7c631f8701ab0d678  Unicode-String-2.09.tar.gz\n") 
                ("b08a47f2bd8b046a98fe4951f3eb6e43  perl-Unicode-String-2.09-undefined.patch")
              )
            }
          spids: [282]
        )
      ]
      spids: [282]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:sha256sums)
          op: Equal
          rhs: 
            {
              (DQ 
                (
"c817bedb954ea2d488bade56059028b99e0198f6826482e2f68fd6d78653faad  Unicode-String-2.09.tar.gz\n"
                ) 
                (
"7128483d06c846a9fbfbc1dc501b755b879914885f12559fec30ac4f6fb12d39  perl-Unicode-String-2.09-undefined.patch"
                )
              )
            }
          spids: [288]
        )
      ]
      spids: [288]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:sha512sums)
          op: Equal
          rhs: 
            {
              (DQ 
                (
"88bd5fe4a1e8ac05b7da5f75411f3e2cb17fb756ca926ace7f46d047ba7a7f22e54462efb61c2f0bf651d2c63d6fe74bffa8b7bcf49aa59847135a43b5cde759  Unicode-String-2.09.tar.gz\n"
                ) 
                (
"b25a6c91d5ecc11dd3c8a675024111a3dfadaf3b22f2b3000f5fb3f7e79741b28aafa709b3c72ff7e6f4f936d8fbc38f50ca5994513b47badb57a31872e99450  perl-Unicode-String-2.09-undefined.patch"
                )
              )
            }
          spids: [294]
        )
      ]
      spids: [294]
    )
  ]
)