Select Code to Download

{
  'foo'  => 'bar',
  'nose' => 'cuke',
}

use Safe;
use strict;
...
          'nose' => 'cuke'
        };

$compartment->permit_only(qw(lineseq padany const leaveeval pushmark l
+ist anonhash));

karls-mac-mini:monks karl$ perl -v

...
};
'ref-to-glob cast' trapped by operation mask at (eval 5) line 1, <DATA
+> chunk 1.
undef