Help for this page

Select Code to Download


  1. or download this
    $ perl -MO=Deparse -e '$foo{__PACKAGE__."::foo"}=1;'
$foo{'main::foo'} = 1;
-e syntax OK
  2. or download this
    $ perl -MO=Deparse -e '$foo{__PACKAGE__,"::foo"}=1;'
$foo{join $;, 'main', ':foo'} = 1;
-e syntax OK