如何在Perl中干净地提取MySQL枚举值？

I have some code which needs to ensure some data is in a mysql enum prior to insertion in the database. The cleanest way I've found of doing this is the following code:I have some code which needs to ensure some dat