ad4f267b7a
search.cpan.org is shutting down. It will redirect to metacpan.org after June 25, 2018. With hat: perl
8 lines
193 B
Text
8 lines
193 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: https://metacpan.org/release/Object-Enum
|