2006-05-22 02:10:10 +02:00
|
|
|
use Object::Enum qw(Enum);
|
|
|
|
|
|
|
|
|
|
my $color = Enum([ qw(red yellow green) ]);
|
|
|
|
|
# ... later
|
|
|
|
|
if ($color->is_red) {
|
|
|
|
|
# it can't be yellow or green
|
|
|
|
|
|
2006-12-08 03:47:55 +01:00
|
|
|
WWW: http://search.cpan.org/dist/Object-Enum/
|
2006-05-22 02:10:10 +02:00
|
|
|
Author: Hans Dieter Pearcey
|
