From: Shawn M Moore <sartak@gmail.com>
Date: Sat, 30 May 2009 19:23:10 +0000 (-0400)
Subject: No need to explicitly uniq, since assigning to a hash does that already
X-Git-Tag: 0.80~47
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d2682e6e7309f3a4ee1c2c03072d499109a437e5;p=gitmo%2FMoose.git

No need to explicitly uniq, since assigning to a hash does that already
---

diff --git a/lib/Moose/Meta/Role/Application/RoleSummation.pm b/lib/Moose/Meta/Role/Application/RoleSummation.pm
index 947b47b..e9e981f 100644
--- a/lib/Moose/Meta/Role/Application/RoleSummation.pm
+++ b/lib/Moose/Meta/Role/Application/RoleSummation.pm
@@ -4,8 +4,7 @@ use strict;
 use warnings;
 use metaclass;
 
-use Scalar::Util    'blessed';
-use List::MoreUtils qw(uniq);
+use Scalar::Util 'blessed';
 
 use Moose::Meta::Role::Composite;
 
@@ -89,9 +88,10 @@ sub check_role_exclusions {
 sub check_required_methods {
     my ($self, $c) = @_;
 
-    my %all_required_methods = map { $_ => undef } uniq(map {
-        $_->get_required_method_list
-    } @{$c->get_roles});
+    my %all_required_methods =
+        map { $_ => undef }
+        map { $_->get_required_method_list }
+        @{$c->get_roles};
 
     foreach my $role (@{$c->get_roles}) {
         foreach my $required (keys %all_required_methods) {