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