devel/p5-Object-Enum/pkg-descr


1
2
3
4
5
6
7
8
9

  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