(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:pkgname) op:Equal rhs:{(perl-digest-sha1)} spids:[6])]
      spids: [6]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:_realname) op:Equal rhs:{(Digest-SHA1)} spids:[9])]
      spids: [9]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:pkgver) op:Equal rhs:{(2.13)} spids:[12])]
      spids: [12]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:pkgrel) op:Equal rhs:{(9)} spids:[15])]
      spids: [15]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:pkgdesc)
          op: Equal
          rhs: {(DQ ("Perl interface to the SHA-1 algorithm"))}
          spids: [18]
        )
      ]
      spids: [18]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:url)
          op: Equal
          rhs: {(DQ ("http://search.cpan.org/dist/Digest-SHA1/"))}
          spids: [23]
        )
      ]
      spids: [23]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:arch) op:Equal rhs:{(DQ (all))} spids:[28])]
      spids: [28]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:license)
          op: Equal
          rhs: {(DQ ("GPL PerlArtistic"))}
          spids: [33]
        )
      ]
      spids: [33]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:depends) op:Equal rhs:{(DQ (perl))} spids:[38])]
      spids: [38]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:makedepends) op:Equal rhs:{(DQ (perl-dev))} spids:[43])]
      spids: [43]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:install) op:Equal rhs:{(SQ )} spids:[48])]
      spids: [48]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:subpackages)
          op: Equal
          rhs: {(DQ ($ VSub_Name "$pkgname") (-doc))}
          spids: [50]
        )
      ]
      spids: [50]
    )
    (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 "$_realname") (-) 
                ($ VSub_Name "$pkgver") (".tar.gz\n") ("\tperl-digest-sha1-check-object.patch\n") ("\t")
              )
            }
          spids: [56]
        )
      ]
      spids: [56]
    )
    (FuncDef
      name: prepare
      body: 
        (BraceGroup
          children: [
            (C {(cd)} 
              {
                (DQ ($ VSub_Name "$srcdir") (/) ($ VSub_Name "$_realname") (-) ($ VSub_Name "$pkgver"))
              }
            )
            (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: [105 107 131 -1]
                        )
                      ]
                      spids: [98 102 134]
                    )
                  ]
                  spids: [95 137]
                )
              spids: [91 93]
            )
            (AndOr
              children: [
                (SimpleCommand
                  words: [
                    {(perl)}
                    {(Makefile.PL)}
                    {(Lit_VarLike "INSTALLDIRS=") (vendor)}
                    {(Lit_VarLike "OPTIMIZE=") (DQ ($ VSub_Name "$CFLAGS"))}
                  ]
                  more_env: [(env_pair name:PERL_MM_USE_DEFAULT val:{(1)} spids:[141])]
                )
                (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})
              ]
              op_id: Op_DPipe
            )
          ]
          spids: [72]
        )
      spids: [68 71]
    )
    (FuncDef
      name: build
      body: 
        (BraceGroup
          children: [
            (C {(cd)} 
              {
                (DQ ($ VSub_Name "$srcdir") (/) ($ VSub_Name "$_realname") (-) ($ VSub_Name "$pkgver"))
              }
            )
            (AndOr
              children: [(C {(make)}) (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})]
              op_id: Op_DPipe
            )
          ]
          spids: [171]
        )
      spids: [167 170]
    )
    (FuncDef
      name: package
      body: 
        (BraceGroup
          children: [
            (C {(cd)} 
              {
                (DQ ($ VSub_Name "$srcdir") (/) ($ VSub_Name "$_realname") (-) ($ VSub_Name "$pkgver"))
              }
            )
            (C {(make)} {(Lit_VarLike "DESTDIR=") (DQ ($ VSub_Name "$pkgdir"))} {(install)})
            (C {(find)} {(DQ ($ VSub_Name "$pkgdir"))} {(-name)} {(perllocal.pod)} {(-delete)})
          ]
          spids: [200]
        )
      spids: [196 199]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:md5sums)
          op: Equal
          rhs: 
            {
              (DQ ("bd22388f268434f2b24f64e28bf1aa35  Digest-SHA1-2.13.tar.gz\n") 
                ("fac055476741f65e4f6b04c609d72e9b  perl-digest-sha1-check-object.patch")
              )
            }
          spids: [243]
        )
      ]
      spids: [243]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:sha256sums)
          op: Equal
          rhs: 
            {
              (DQ 
                (
"68c1dac2187421f0eb7abf71452a06f190181b8fc4b28ededf5b90296fb943cc  Digest-SHA1-2.13.tar.gz\n"
                ) 
                (
"eb40d553901495de6283de0c5bfe20aff9c255db1e88a82615b5e71be689e814  perl-digest-sha1-check-object.patch"
                )
              )
            }
          spids: [249]
        )
      ]
      spids: [249]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:sha512sums)
          op: Equal
          rhs: 
            {
              (DQ 
                (
"44d0c57ecc7d2126a0387552e76c9204e45fba174af6ff7abc1c9ae00d549eb7370ee20948caf12fafefedec0098b8231249d14b109c53470ee1d5bf3de3305d  Digest-SHA1-2.13.tar.gz\n"
                ) 
                (
"73547d04bbd77cb82f0611132c2105574f528f2a07f4de436c41af606ec505a6a4b634f4397f4cee2d9aa94687957515ac8546b264ca8f71cbd4d4f5fdd5ee74  perl-digest-sha1-check-object.patch"
                )
              )
            }
          spids: [255]
        )
      ]
      spids: [255]
    )
  ]
)