perl -MPPI -MPPI::Dumper -e "PPI::Dumper->new( PPI::Document->new(\'package MyPack{ sub new{my class shift; return bless{},$class}  }') )->print"

PPI::Document
  PPI::Statement::Package
    PPI::Token::Word    'package'
    PPI::Token::Whitespace      ' '
    PPI::Token::Word    'MyPack'
    PPI::Structure::Block       { ... }
      PPI::Token::Whitespace    ' '
      PPI::Statement::Sub
        PPI::Token::Word        'sub'
        PPI::Token::Whitespace          ' '
        PPI::Token::Word        'new'
        PPI::Structure::Block   { ... }
          PPI::Statement::Variable
            PPI::Token::Word    'my'
            PPI::Token::Whitespace      ' '
            PPI::Token::Word    'class'
            PPI::Token::Whitespace      ' '
            PPI::Token::Word    'shift'
            PPI::Token::Structure       ';'
          PPI::Token::Whitespace        ' '
          PPI::Statement::Break
            PPI::Token::Word    'return'
            PPI::Token::Whitespace      ' '
            PPI::Token::Word    'bless'
            PPI::Structure::Constructor         { ... }
            PPI::Token::Operator        ','
            PPI::Token::Symbol          '$class'
      PPI::Token::Whitespace    '  '