Help for this page

Select Code to Download


  1. or download this
    # a bare package provided as string

...
    local %require;
    local @fixup;
...
  2. or download this
    perl -MPPI -MPPI::Dumper -e "PPI::Dumper->new( PPI::Document->new(\'pa
+ckage MyPack{ sub new{my class shift; return bless{},$class}  }') )->
+print"

...
            PPI::Token::Operator        ','
            PPI::Token::Symbol          '$class'
      PPI::Token::Whitespace    '  '