From: Dave Rolsky Date: Mon, 26 Apr 2010 18:04:20 +0000 (-0500) Subject: No parens on call to defined X-Git-Tag: 1.05~8 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0b91067ba7ef4f9b41c2e4fdb1c433e7aa175294;p=gitmo%2FMoose.git No parens on call to defined --- diff --git a/lib/Moose/Meta/Class.pm b/lib/Moose/Meta/Class.pm index 1e2cb86..a1fdb2e 100644 --- a/lib/Moose/Meta/Class.pm +++ b/lib/Moose/Meta/Class.pm @@ -364,7 +364,7 @@ sub _base_metaclasses { sub _find_common_base { my $self = shift; my ($meta1, $meta2) = map { Class::MOP::class_of($_) } @_; - return unless defined($meta1) && defined($meta2); + return unless defined $meta1 && defined $meta2; # FIXME? This doesn't account for multiple inheritance (not sure # if it needs to though). For example, if somewhere in $meta1's @@ -438,7 +438,7 @@ sub _can_fix_class_metaclass_incompatibility_by_role_reconciliation { my $common_base_name = $self->_find_common_base(blessed($self), $super_meta_name); # if they're not both moose metaclasses, and the cmop fixing couldn't # do anything, there's nothing more we can do - return unless defined($common_base_name); + return unless defined $common_base_name; return unless $common_base_name->isa('Moose::Meta::Class'); my @super_meta_name_ancestor_names = $self->_get_ancestors_until($super_meta_name, $common_base_name); @@ -463,7 +463,7 @@ sub _can_fix_single_metaclass_incompatibility_by_role_reconciliation { my $common_base_name = $self->_find_common_base($class_specific_meta_name, $super_specific_meta_name); # if they're not both moose metaclasses, and the cmop fixing couldn't # do anything, there's nothing more we can do - return unless defined($common_base_name); + return unless defined $common_base_name; return unless $common_base_name->isa($metaclasses{$metaclass_type}); my @super_specific_meta_name_ancestor_names = $self->_get_ancestors_until($super_specific_meta_name, $common_base_name);