Help for this page

Select Code to Download


  1. or download this
    >perl -MO=Concise -e"use constant BUFFER => 20; if (BUFFER() != 20) {}
+"
3  <@> leave[1 ref] vKP/REFC ->(end)
...
2     <;> nextstate(main 72 -e:1) v ->3
-     <0> ex-const v/4 ->3
-e syntax OK
  2. or download this
    >perl -le"use constant FOO => 'abc'; print %{{ FOO => 'def' }};"
FOOdef

>perl -le"use constant FOO => 'abc'; print %{{ FOO() => 'def' }};"
abcdef