Select Code to Download

use constant {
  zed     => 0,
...
  repos   => (qw(oss non-oss debug)),
  two     => 2,
};

{
  zed     => 0,
...
  repos   => (qw(oss non-oss debug)),
  two     => 2,
}

c:\@Work\Perl\monks>perl -wMstrict -MData::Dumper -le
"print Dumper {
...
          'zed' => 0,
          'two' => 2
        };

c:\@Work\Perl\monks>perl -wMstrict -le
"use constant [ qw(a b c d) ];
...
 print A;
"
bcd