From: Dave Rolsky Date: Mon, 7 Sep 2009 19:17:38 +0000 (-0500) Subject: Remove some useless comments X-Git-Tag: 0.89_02~22 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=094b50c0f630bf7ec93e598b50637ca38c99d474;p=gitmo%2FMoose.git Remove some useless comments --- diff --git a/lib/Moose/Meta/Role/Application/ToRole.pm b/lib/Moose/Meta/Role/Application/ToRole.pm index dc9eed2..150def9 100644 --- a/lib/Moose/Meta/Role/Application/ToRole.pm +++ b/lib/Moose/Meta/Role/Application/ToRole.pm @@ -76,9 +76,8 @@ sub apply_methods { if ($self->is_method_aliased($method_name)) { my $aliased_method_name = $self->get_method_aliases->{$method_name}; - # it if it has one already + if ($role2->has_method($aliased_method_name) && - # and if they are not the same thing ... $role2->get_method($aliased_method_name)->body != $role1->get_method($method_name)->body) { require Moose; @@ -100,9 +99,7 @@ sub apply_methods { next if $self->is_method_excluded($method_name); - # it if it has one already if ($role2->has_method($method_name) && - # and if they are not the same thing ... $role2->get_method($method_name)->body != $role1->get_method($method_name)->body) { # method conflicts between roles result # in the method becoming a requirement @@ -112,7 +109,6 @@ sub apply_methods { ); } else { - # add it, although it could be overridden $role2->add_method( $method_name, $role1->get_method($method_name)