Help for this page

Select Code to Download


  1. or download this
      my %enum_values = map +($_ => 1), @{ $constraints->{enum} };
  if (keys(%enum_values) && !$enum_values{$value}) {
    my $enum_values_string = join ', ', sort keys %enum_values;
    ...
  2. or download this
      use List::Util qw{ none };
  if (none { $_ eq $value } @$enum_values) {
    ...