The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
PPI::Document
  PPI::Statement
    PPI::Token::Word  	'map'
    PPI::Token::Whitespace  	' '
    PPI::Structure::Block  	{ ... }
      PPI::Statement
        PPI::Token::Magic  	'$_'
        PPI::Token::Whitespace  	' '
        PPI::Token::Operator  	'=>'
        PPI::Token::Whitespace  	' '
        PPI::Token::Number  	'1'
    PPI::Token::Whitespace  	' '
    PPI::Token::Symbol  	'@foo'
    PPI::Token::Structure  	';'
  PPI::Token::Whitespace  	'\n'
  PPI::Statement
    PPI::Token::Word  	'map'
    PPI::Structure::List  	( ... )
      PPI::Statement
        PPI::Structure::Block  	{ ... }
          PPI::Statement
            PPI::Token::Magic  	'$_'
            PPI::Token::Whitespace  	' '
            PPI::Token::Operator  	'=>'
            PPI::Token::Whitespace  	' '
            PPI::Token::Number  	'1'
        PPI::Token::Whitespace  	' '
        PPI::Token::Symbol  	'@foo'
    PPI::Token::Structure  	';'
  PPI::Token::Whitespace  	'\n'
  PPI::Statement
    PPI::Token::Word  	'foo'
    PPI::Token::Whitespace  	' '
    PPI::Structure::Block  	{ ... }
      PPI::Statement
        PPI::Token::Magic  	'$_'
        PPI::Token::Whitespace  	' '
        PPI::Token::Operator  	'=>'
        PPI::Token::Whitespace  	' '
        PPI::Token::Number  	'1'
    PPI::Token::Operator  	','
    PPI::Token::Whitespace  	' '
    PPI::Token::Symbol  	'@foo'
    PPI::Token::Structure  	';'
  PPI::Token::Whitespace  	'\n'
  PPI::Statement
    PPI::Token::Word  	'foo'
    PPI::Structure::List  	( ... )
      PPI::Statement
        PPI::Structure::Constructor  	{ ... }
          PPI::Statement
            PPI::Token::Magic  	'$_'
            PPI::Token::Whitespace  	' '
            PPI::Token::Operator  	'=>'
            PPI::Token::Whitespace  	' '
            PPI::Token::Number  	'1'
        PPI::Token::Operator  	','
        PPI::Token::Whitespace  	' '
        PPI::Token::Symbol  	'@foo'
    PPI::Token::Structure  	';'
  PPI::Token::Whitespace  	'\n'