e3ddec92ef
PR: ports/102633 Submitted by: Jin-Shan Tseng <tjs@cdpa.nsysu.edu.tw> Approved by: aaron (maintainer, EBUSY blanket)
9 lines
221 B
Text
9 lines
221 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
|