(command.CommandList children: [ (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'pkgname='> name:pkgname) op: assign_op.Equal rhs: {<perl-gtk2-ex-datasheet-dbi>} spids: [9] ) ] redirects: [] ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike '_pkgreal='> name:_pkgreal) op: assign_op.Equal rhs: {<Gtk2-Ex-Datasheet-DBI>} spids: [12] ) ] redirects: [] ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'pkgver='> name:pkgver) op: assign_op.Equal rhs: {<2.1>} spids: [15] ) ] redirects: [] ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'pkgrel='> name:pkgrel) op: assign_op.Equal rhs: {<0>} spids: [18] ) ] redirects: [] ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'pkgdesc='> name:pkgdesc) op: assign_op.Equal rhs: {(DQ <unknown>)} spids: [21] ) ] redirects: [] ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'url='> name:url) op: assign_op.Equal rhs: {(DQ <'http://search.cpan.org/dist/Gtk2-Ex-Datasheet-DBI/'>)} spids: [26] ) ] redirects: [] ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'arch='> name:arch) op: assign_op.Equal rhs: {(DQ <noarch>)} spids: [31] ) ] redirects: [] ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'license='> name:license) op: assign_op.Equal rhs: {(DQ <'GPL PerlArtistic'>)} spids: [36] ) ] redirects: [] ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'cpandepends='> name:cpandepends) op: assign_op.Equal rhs: {(DQ <'perl-gtk2 perl-dbi perl-gtk2-ex-dialogs perl-pango'>)} spids: [41] ) ] redirects: [] ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'cpanmakedepends='> name:cpanmakedepends) op: assign_op.Equal rhs: {(DQ <' '>)} spids: [46] ) ] redirects: [] ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'depends='> name:depends) op: assign_op.Equal rhs: {(DQ ($ Id.VSub_DollarName cpandepends))} spids: [51] ) ] redirects: [] ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'makedepends='> name:makedepends) op: assign_op.Equal rhs: {(DQ <'perl-dev '> ($ Id.VSub_DollarName cpanmakedepends))} spids: [56] ) ] redirects: [] ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'subpackages='> name:subpackages) op: assign_op.Equal rhs: {(DQ ($ Id.VSub_DollarName pkgname) <-doc>)} spids: [62] ) ] redirects: [] ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'source='> name:source) op: assign_op.Equal rhs: { (DQ <'http://search.cpan.org/CPAN/authors/id/D/DK/DKASAK/'> ($ Id.VSub_DollarName _pkgreal) <-> ($ Id.VSub_DollarName pkgver) <.tar.gz> ) } spids: [68] ) ] redirects: [] ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike '_builddir='> name:_builddir) op: assign_op.Equal rhs: { (DQ ($ Id.VSub_DollarName srcdir) <'/'> ($ Id.VSub_DollarName _pkgreal) <-> ($ Id.VSub_DollarName pkgver) ) } spids: [78] ) ] redirects: [] ) (command.ShFunction name: prepare body: (BraceGroup left: <Id.Lit_LBrace '{'> children: [ (C {<cd>} {(DQ ($ Id.VSub_DollarName _builddir))}) (C {<export>} {<Id.Lit_VarLike 'CFLAGS='> (command_sub left_token: <Id.Left_Backtick '`'> child: (C {<perl>} {<-MConfig>} {<-E>} {(SQ <'say $Config{ccflags}'>)}) right: <Id.Backtick_Right '`'> ) } ) (command.Simple words: [{<perl>} {<Makefile.PL>} {<Id.Lit_VarLike 'INSTALLDIRS='> <vendor>}] redirects: [] more_env: [(env_pair name:PERL_MM_USE_DEFAULT val:{<1>} spids:[120])] do_fork: T ) ] redirects: [] right: <Id.Lit_RBrace '}'> ) ) (command.ShFunction name: build body: (BraceGroup left: <Id.Lit_LBrace '{'> children: [ (C {<cd>} {(DQ ($ Id.VSub_DollarName _builddir))}) (C {<export>} {<Id.Lit_VarLike 'CFLAGS='> (command_sub left_token: <Id.Left_Backtick '`'> child: (C {<perl>} {<-MConfig>} {<-E>} {(SQ <'say $Config{ccflags}'>)}) right: <Id.Backtick_Right '`'> ) } ) (C {<make>}) ] redirects: [] right: <Id.Lit_RBrace '}'> ) ) (command.ShFunction name: package body: (BraceGroup left: <Id.Lit_LBrace '{'> children: [ (C {<cd>} {(DQ ($ Id.VSub_DollarName _builddir))}) (command.AndOr ops: [Id.Op_DPipe] children: [ (C {<make>} {<Id.Lit_VarLike 'DESTDIR='> (DQ ($ Id.VSub_DollarName pkgdir))} {<install>}) (command.ControlFlow token: <Id.ControlFlow_Return return> arg_word: {<1>} ) ] ) (C {<find>} {(DQ ($ Id.VSub_DollarName pkgdir))} {(word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\('> ch:'(')} {<-name>} {<perllocal.pod>} {<-o>} {<-name>} {<.packlist>} {(word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\)'> ch:')')} {<-delete>} ) ] redirects: [] right: <Id.Lit_RBrace '}'> ) ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'md5sums='> name:md5sums) op: assign_op.Equal rhs: {(DQ <'728708c2924a9ff08a21def204241fe1 Gtk2-Ex-Datasheet-DBI-2.1.tar.gz'>)} spids: [225] ) ] redirects: [] ) ] )