mirror of
https://git.FreeBSD.org/ports.git
synced 2025-01-12 07:27:57 +00:00
e3ddec92ef
PR: ports/102633 Submitted by: Jin-Shan Tseng <tjs@cdpa.nsysu.edu.tw> Approved by: aaron (maintainer, EBUSY blanket)
10 lines
221 B
Plaintext
10 lines
221 B
Plaintext
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
|