#!/usr/bin/perl

# Idiom #295 String to Enum

use feature 'say';

use constant { RED => 1, GREEN => 2, BLUE => 3 };

sub TryStrToEnum { eval uc shift }

say 'BLUE  is ', BLUE;
say 'GREEN is ', GREEN;
say 'RED   is ', RED;

print "TryStrToEnum('Green') is ", TryStrToEnum('Green'),"\n";

say 'names are case sensitive';
say 'name conversion by TryStrToEnum is not case sensitive';