my $name = $self->name();
$ENUMS{$name} ||= { map { $_ => 1 } @{ $self->values() } };
- return
- "defined $val"
- . "&& ! ref $val" . '&& $'
- . __PACKAGE__
- . '::ENUMS{'
- . B::perlstring($name)
- . "}{ $val }";
+ return 'defined(' . $val . ') '
+ . '&& !ref(' . $val . ') '
+ . '&& $' . __PACKAGE__ . '::ENUMS{' . B::perlstring($name) . '}'
+ . '{' . $val . '}';
};
sub new {