Merge pull request metacpan#464 from CPAN-API/leo/cleanup_mirrors

Cleanup PC policy, fix mirrors to delete first metacpan#463

Author: oalders

.perlcriticrc

@@ -11,7 +11,6 @@ verbose = 11
 [-RegularExpressions::RequireExtendedFormatting]
 [-RegularExpressions::RequireLineBoundaryMatching]
 [-Subroutines::ProhibitExplicitReturnUndef]
-[-ValuesAndExpressions::ProhibitAccessOfPrivateData]
 [-ValuesAndExpressions::ProhibitNoisyQuotes]
 [-Variables::ProhibitPunctuationVars]
 

lib/MetaCPAN/Script/Mirrors.pm

@@ -22,8 +22,13 @@ sub index_mirrors {
     my $ua   = LWP::UserAgent->new;
     log_info { 'Getting mirrors.json file from ' . $self->cpan };
 
-    my $json    = $self->cpan->file( 'indices', 'mirrors.json' )->slurp;
-    my $type    = $self->index->type('mirror');
+    my $json = $self->cpan->file( 'indices', 'mirrors.json' )->slurp;
+    my $type = $self->index->type('mirror');
+
+    # Clear out everything in the index
+    # so don't end up with old mirrors
+    $type->delete;
+
     my $mirrors = Cpanel::JSON::XS::decode_json($json);
     foreach my $mirror (@$mirrors) {
         $mirror->{location}