This is very useful, although I have not tested it beyond simple enumerated lists. It should be a core module.
One thing it can't do, but this is largely a Perl limitation:
use enum qw( FOO BAR );
my %MOO = (
FOO => 'Foo',
BAR => 'Bar',
Was this review helpful to you? Yes No