Skip to content

Commit 397c61c

Browse files
committed
Remove direct uses of List::MoreUtils
1 parent fc741b6 commit 397c61c

File tree

4 files changed

+7
-7
lines changed

4 files changed

+7
-7
lines changed

cpanfile

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -81,8 +81,7 @@ requires 'IO::Uncompress::Bunzip2', '2.106';
8181
requires 'IO::Zlib';
8282
requires 'IPC::Run3';
8383
requires 'List::AllUtils', '0.09';
84-
requires 'List::MoreUtils', '0.413';
85-
requires 'List::Util', '1.45';
84+
requires 'List::Util', '1.62';
8685
requires 'Log::Any::Adapter';
8786
requires 'Log::Any::Adapter::Log4perl';
8887
requires 'Log::Contextual';

improve-search-results/app.pl

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
use Mojolicious::Lite;
22

33
use Mojo::Pg;
4-
use List::MoreUtils 'first_index';
4+
use List::AllUtils 'first_index';
55

66
my $user = getpwuid($<); # for vagrant user on dev box
77

lib/MetaCPAN/Server/Controller.pm

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -4,6 +4,7 @@ use Moose;
44
use namespace::autoclean;
55

66
use Cpanel::JSON::XS ();
7+
use List::AllUtils ();
78
use Moose::Util ();
89
use MetaCPAN::Types::TypeTiny qw( HashRef );
910
use MetaCPAN::Util qw( single_valued_arrayref_to_scalar );
@@ -161,7 +162,7 @@ sub join : ActionClass('~Deserialize') {
161162
|| single_valued_arrayref_to_scalar( $_->{fields} )
162163
} @{ $c->stash->{hits}->{hits} }
163164
];
164-
my @ids = List::MoreUtils::uniq grep {defined}
165+
my @ids = List::AllUtils::uniq grep {defined}
165166
map { ref $cself eq 'CODE' ? $cself->($_) : $_->{$cself} } @$data;
166167
my $filter = { terms => { $config->{foreign} => [@ids] } };
167168
my $filtered = {%$query}; # don't work on $query

t/release/packages-unclaimable.t

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -3,11 +3,11 @@ use warnings;
33
use lib 't/lib';
44

55
use Cpanel::JSON::XS ();
6-
use IO::String;
7-
use List::MoreUtils qw( uniq );
6+
use IO::String ();
7+
use List::AllUtils qw( uniq );
88
use MetaCPAN::Server::Test;
99
use MetaCPAN::TestHelpers qw( test_release );
10-
use Module::Metadata;
10+
use Module::Metadata ();
1111
use Test::More;
1212

1313
test_release(

0 commit comments

Comments
 (0)