Skip to content

Commit 40e58b2

Browse files
oaldersoalders
committed
Tidy more files
I think there was tidyall caching on my previous PR
1 parent 99f460d commit 40e58b2

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

43 files changed

+114
-116
lines changed

‎lib/MetaCPAN/API.pm‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -164,7 +164,7 @@ sub _is_admin {
164164
return 0 unless $username;
165165

166166
my @admins = (
167-
'haarg', 'jberger', 'mickeyn', 'oalders',
167+
'haarg', 'jberger', 'mickeyn', 'oalders',
168168
'ranguard', 'reyjrar', 'ssoriche',
169169
$ENV{HARNESS_ACTIVE} ? 'tester' : (),
170170
);

‎lib/MetaCPAN/Document/File/Set.pm‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -22,7 +22,7 @@ has query_file => (
2222
dir
2323
interesting_files
2424
files_by_category
25-
)
25+
)
2626
],
2727
);
2828

@@ -626,7 +626,7 @@ sub autocomplete_suggester {
626626
my $got = $_->{fields};
627627
my %record;
628628
@record{@fields} = map { $got->{$_}[0] } @fields;
629-
$record{name} = delete $record{documentation}; # rename
629+
$record{name} = delete $record{documentation}; # rename
630630
( $_->{fields}{documentation}[0] => \%record );
631631
} @{ $data->{hits}{hits} };
632632

@@ -649,7 +649,7 @@ sub autocomplete_suggester {
649649
$valid{$a}->{deprecated} <=> $valid{$b}->{deprecated}
650650
|| $favorites->{ $valid{$b}->{distribution} }
651651
<=> $favorites->{ $valid{$a}->{distribution} }
652-
|| $docs{$b} <=> $docs{$a}
652+
|| $docs{$b} <=> $docs{$a}
653653
|| length($a) <=> length($b)
654654
|| $a cmp $b
655655
}

‎lib/MetaCPAN/Document/Release/Set.pm‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -31,7 +31,7 @@ has query_release => (
3131
reverse_dependencies
3232
top_uploaders
3333
versions
34-
>
34+
>
3535
],
3636
);
3737

@@ -66,7 +66,7 @@ sub predecessor {
6666
{
6767
and => [
6868
{ term => { distribution => $name } },
69-
{ not => { filter => { term => { status => 'latest' } } } },
69+
{ not => { filter => { term => { status => 'latest' } } } },
7070
]
7171
}
7272
)->sort( [ { date => 'desc' } ] )->first;

‎lib/MetaCPAN/Model.pm‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -13,7 +13,7 @@ analyzer lowercase => (
1313
analyzer fulltext => ( type => 'english' );
1414

1515
tokenizer camelcase => (
16-
type => 'pattern',
16+
type => 'pattern',
1717
pattern =>
1818
"([^\\p{L}\\d]+)|(?<=\\D)(?=\\d)|(?<=\\d)(?=\\D)|(?<=[\\p{L}&&[^\\p{Lu}]])(?=\\p{Lu})|(?<=\\p{Lu})(?=\\p{Lu}[\\p{L}&&[^\\p{Lu}]])"
1919
);

‎lib/MetaCPAN/Model/Archive.pm‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -57,7 +57,7 @@ has _extractor => (
5757
qw(
5858
is_impolite
5959
is_naughty
60-
)
60+
)
6161
],
6262
init_arg => undef,
6363
lazy => 1,

‎lib/MetaCPAN/Model/Search.pm‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -152,7 +152,7 @@ sub _search_collapsed {
152152
size => 0,
153153
fields => [
154154
qw(
155-
)
155+
)
156156
],
157157
};
158158

@@ -357,7 +357,7 @@ sub build_query {
357357
pod_lines
358358
release
359359
status
360-
)
360+
)
361361
],
362362
}
363363
);

‎lib/MetaCPAN/Model/User/Account.pm‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -148,7 +148,7 @@ sub get_identities {
148148

149149
sub remove_identity {
150150
my ( $self, $identity ) = @_;
151-
my $ids = $self->identity;
151+
my $ids = $self->identity;
152152
my ($id) = grep { $_->{name} eq $identity } @$ids;
153153
@$ids = grep { $_->{name} ne $identity } @$ids;
154154

‎lib/MetaCPAN/Query/Contributor.pm‎

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -27,8 +27,7 @@ sub find_release_contributors {
2727
$res->{hits}{total} or return {};
2828

2929
return +{
30-
contributors => [ map { $_->{_source} } @{ $res->{hits}{hits} } ]
31-
};
30+
contributors => [ map { $_->{_source} } @{ $res->{hits}{hits} } ] };
3231
}
3332

3433
sub find_author_contributions {
@@ -47,8 +46,7 @@ sub find_author_contributions {
4746
$res->{hits}{total} or return {};
4847

4948
return +{
50-
contributors => [ map { $_->{_source} } @{ $res->{hits}{hits} } ]
51-
};
49+
contributors => [ map { $_->{_source} } @{ $res->{hits}{hits} } ] };
5250
}
5351

5452
__PACKAGE__->meta->make_immutable;

‎lib/MetaCPAN/Query/File.pm‎

Lines changed: 12 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -63,7 +63,7 @@ my %special_files = (
6363
ChangeLog
6464
Changes
6565
News
66-
)
66+
)
6767
),
6868
],
6969
contributing => [
@@ -72,7 +72,7 @@ my %special_files = (
7272
Contributing
7373
Hacking
7474
Development
75-
)
75+
)
7676
),
7777
],
7878
license => [
@@ -85,13 +85,13 @@ my %special_files = (
8585
COPYING
8686
Artistic
8787
ARTISTIC
88-
)
88+
)
8989
],
9090
install => [
9191
_doc_files(
9292
qw(
9393
Install
94-
)
94+
)
9595
),
9696
],
9797
dist => [
@@ -107,7 +107,7 @@ my %special_files = (
107107
prereqs.yml
108108
dist.ini
109109
minil.toml
110-
)
110+
)
111111
],
112112
other => [
113113
_doc_files(
@@ -119,26 +119,26 @@ my %special_files = (
119119
THANKS
120120
ToDo
121121
Todo
122-
)
122+
)
123123
),
124124
],
125125
);
126126
my %perl_files = (
127127
changelog => [
128128
qw(
129129
perldelta.pod
130-
)
130+
)
131131
],
132132
license => [
133133
qw(
134134
perlartistic.pod
135135
perlgpl.pod
136-
)
136+
)
137137
],
138138
contributing => [
139139
qw(
140140
perlhack.pod
141-
)
141+
)
142142
],
143143
);
144144

@@ -147,7 +147,7 @@ my %path_files = (
147147
qw(
148148
eg
149149
ex
150-
)
150+
)
151151
],
152152
);
153153

@@ -157,7 +157,7 @@ my %prefix_files = (
157157
example
158158
Example
159159
sample
160-
)
160+
)
161161
],
162162
);
163163

@@ -285,7 +285,7 @@ sub interesting_files {
285285
pod_lines
286286
release
287287
status
288-
)
288+
)
289289
];
290290

291291
my $body = {

‎lib/MetaCPAN/Query/Release.pm‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -19,14 +19,14 @@ sub author_status {
1919

2020
my ( $id_2, $id_1 ) = $id =~ /^((\w)\w)/;
2121
$status->{links} = {
22-
cpan_directory => "http://cpan.org/authors/id/$id_1/$id_2/$id",
22+
cpan_directory => "http://cpan.org/authors/id/$id_1/$id_2/$id",
2323
backpan_directory =>
2424
"https://cpan.metacpan.org/authors/id/$id_1/$id_2/$id",
25-
cpants => "http://cpants.cpanauthors.org/author/$id",
25+
cpants => "http://cpants.cpanauthors.org/author/$id",
2626
cpantesters_reports =>
2727
"http://cpantesters.org/author/$id_1/$id.html",
2828
cpantesters_matrix => "http://matrix.cpantesters.org/?author=$id",
29-
metacpan_explorer =>
29+
metacpan_explorer =>
3030
"https://explorer.metacpan.org/?url=/author/$id",
3131
};
3232
}
@@ -86,7 +86,7 @@ sub get_contributors {
8686

8787
my $release = $res->{hits}{hits}[0]{_source};
8888
my $contribs = $release->{metadata}{x_contributors} || [];
89-
my $authors = $release->{metadata}{author} || [];
89+
my $authors = $release->{metadata}{author} || [];
9090

9191
for ( \( $contribs, $authors ) ) {
9292

@@ -982,7 +982,7 @@ sub modules {
982982
pod_lines
983983
release
984984
status
985-
)
985+
)
986986
],
987987
};
988988

0 commit comments

Comments
 (0)