From: Dave Rolsky <autarch@urth.org>
Date: Mon, 6 Sep 2010 14:59:24 +0000 (-0500)
Subject: Tidy code
X-Git-Tag: 1.08~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=08d23070593e026c21656e1322725fda74b2e140;p=gitmo%2FClass-MOP.git

Tidy code
---

diff --git a/lib/Class/MOP/Mixin/HasMethods.pm b/lib/Class/MOP/Mixin/HasMethods.pm
index ba48dd9..fd85003 100644
--- a/lib/Class/MOP/Mixin/HasMethods.pm
+++ b/lib/Class/MOP/Mixin/HasMethods.pm
@@ -164,8 +164,9 @@ sub get_method_list {
     # Constants may show up as some sort of reference in the namespace hash
     # ref, depending on the Perl version.
     return grep {
-               defined $namespace->{$_}
-            && ( ref(\$namespace->{$_}) ne 'GLOB' || *{ $namespace->{$_} }{CODE} )
+        defined $namespace->{$_}
+            && ( ref( \$namespace->{$_} ) ne 'GLOB'
+            || *{ $namespace->{$_} }{CODE} )
             && $self->has_method($_)
         }
         keys %{$namespace};