From: Dave Rolsky <autarch@urth.org>
Date: Tue, 16 Jun 2009 13:36:51 +0000 (-0500)
Subject: Tweak some code for clarity and formatting
X-Git-Tag: 0.86~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3bc310dd562250ad2bbce64058877d7d95d931a9;p=gitmo%2FClass-MOP.git

Tweak some code for clarity and formatting
---

diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index b4012ea..7df6c01 100644
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -1162,8 +1162,7 @@ sub _inline_constructor {
 
     my $name = $args{constructor_name};
 
-    unless ( $args{replace_constructor}
-        or !$self->has_method($name) ) {
+    if ( $self->has_method($name) && !$args{replace_constructor} ) {
         my $class = $self->name;
         warn "Not inlining a constructor for $class since it defines"
             . " its own constructor.\n"
@@ -1198,7 +1197,7 @@ sub _inline_destructor {
         || confess "The 'inline_destructor' option is present, but "
         . "no destructor class was specified";
 
-    if ($self->has_method('DESTROY') ) {
+    if ( $self->has_method('DESTROY') ) {
         my $class = $self->name;
         warn "Not inlining a destructor for $class since it defines"
             . " its own destructor.\n";