tidy

Author: mickeyn

bin/cve.pl

@@ -40,8 +40,9 @@
 );
 
 # setup
-$cve_url     //= 'https://cpan-security.github.io/cpansa-feed/cpansa.json';
-$cve_dev_url //= 'https://cpan-security.github.io/cpansa-feed/cpansa_dev.json';
+$cve_url //= 'https://cpan-security.github.io/cpansa-feed/cpansa.json';
+$cve_dev_url
+    //= 'https://cpan-security.github.io/cpansa-feed/cpansa_dev.json';
 
 my $es_release = MetaCPAN::ES->new( index => "release" );
 my $es_cve     = MetaCPAN::ES->new( index => "cve" );

bin/river.pl

@@ -12,14 +12,13 @@
 use MetaCPAN::Ingest qw< read_url >;
 
 # args
-my ( $json );
-GetOptions(
-    "json=s" => \$json,
-);
+my ($json);
+GetOptions( "json=s" => \$json, );
 
 # setup
 my $river_url //= 'https://neilb.org/river-of-cpan.json.gz';
-my $river_data = decode_json( $json ? path($json)->slurp : read_url($river_url) );
+my $river_data
+    = decode_json( $json ? path($json)->slurp : read_url($river_url) );
 
 my $es   = MetaCPAN::ES->new( index => "distribution" );
 my $bulk = $es->bulk();

lib/MetaCPAN/Release.pm

@@ -295,10 +295,10 @@ sub document_release ( $self, %args ) {
         stat     => $stat,
         status   => $self->{status},
 
-        # Call in scalar context to make sure we only get one value (building a hash).
-        resources => scalar $meta->resources,
-        version => scalar $meta->version,
-        version_numified => numify_version(scalar $meta->version),
+# Call in scalar context to make sure we only get one value (building a hash).
+        resources        => scalar $meta->resources,
+        version          => scalar $meta->version,
+        version_numified => numify_version( scalar $meta->version ),
     };
 
     return $document;

t/00_setup.t

@@ -155,7 +155,7 @@ subtest 'River Indexing' => sub {
     `perl $river_script -json $river_file`;
 
     my $es_distribution = MetaCPAN::ES->new( index => 'distribution' );
-    my $dist = $es_distribution->get( id => 'HTML-Parser' );
+    my $dist            = $es_distribution->get( id => 'HTML-Parser' );
     ok( exists $dist->{_source}{river}, "Found River entry" );
 };
 
@@ -188,8 +188,7 @@ subtest 'CVE Indexing' => sub {
             query => { match => { distribution => 'HTML-Parser' } },
         }
     )->{count};
-    ok( $cve_count > 0,
-        "Found ($cve_count) test CVEs" );
+    ok( $cve_count > 0, "Found ($cve_count) test CVEs" );
 };
 
 # TODO: