Inside out class example, and many other tweaks

[gitmo/Class-MOP.git] / lib / Class / MOP / Attribute.pm

diff --git a/lib/Class/MOP/Attribute.pm b/lib/Class/MOP/Attribute.pm
index 5548c7a..440c0ad 100644 (file)
--- a/lib/Class/MOP/Attribute.pm
+++ b/lib/Class/MOP/Attribute.pm
@@ -90,7 +90,7 @@ sub default {
                 \$_[0]->{'$attr_name'} = \$_[1];
             }},
             'predicate' => qq{sub {
-                return defined \$_[0]->{'$attr_name'} ? 1 : 0;
+                defined \$_[0]->{'$attr_name'} ? 1 : 0;
             }}
         );