more readable inlined code

[gitmo/Moose.git] / lib / Moose / Meta / TypeConstraint / Enum.pm

diff --git a/lib/Moose/Meta/TypeConstraint/Enum.pm b/lib/Moose/Meta/TypeConstraint/Enum.pm
index b19c59b..65b7753 100644 (file)
--- a/lib/Moose/Meta/TypeConstraint/Enum.pm
+++ b/lib/Moose/Meta/TypeConstraint/Enum.pm
@@ -22,13 +22,10 @@ my $inliner = sub {
     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 {