path: root/devel/p5-Object-Enum/pkg-descr

  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