9 lines
220 B
Text
9 lines
220 B
Text
use Object::Enum qw(Enum);
|
|
|
|
my $color = Enum([ qw(red yellow green) ]);
|
|
# ... later
|
|
if ($color->is_red) {
|
|
# it can't be yellow or green
|
|
|
|
WWW: http://search.cpan.org/dist/Object-Enum
|
|
Author: Hans Dieter Pearcey
|