tidy

Author: mickeyn

bin/contributor.pl

@@ -16,35 +16,33 @@
 my $all = 0;
 my ( $distribution, $release, $age );
 GetOptions(
-    "all" => \$all,
+    "all"            => \$all,
     "distribution=s" => \$distribution,
-    "release=s" => \$release,
-    "age=i" => \$age,
+    "release=s"      => \$release,
+    "age=i"          => \$age,
 );
 
 # Setup
 my $query
-    = $all ? { match_all => {} }
-    : $distribution
-    ? { term => { distribution => $distribution } }
-    : $release ? {
-        bool => {
-            must => [
-                { term => { author => get_author($release) } },
-                { term => { name   => $release } },
-            ]
-        }
+    = $all          ? { match_all => {} }
+    : $distribution ? { term => { distribution => $distribution } }
+    : $release      ? {
+    bool => {
+        must => [
+            { term => { author => get_author($release) } },
+            { term => { name   => $release } },
+        ]
     }
-    : $age
-    ? { range => { date => { gte => sprintf( 'now-%dd', $age ) } } }
-    : die "Error: must provide 'all' or 'distribution' or 'release' or 'age'";
+    }
+    : $age ? { range => { date => { gte => sprintf( 'now-%dd', $age ) } } }
+    :   die "Error: must provide 'all' or 'distribution' or 'release' or 'age'";
 
-my $body = { query => $query };
+my $body    = { query => $query };
 my $timeout = $all ? '720m' : '5m';
-my $fields = [qw< author distribution name >];
+my $fields  = [qw< author distribution name >];
 
 my $es_release = MetaCPAN::ES->new( type => "release" );
-my $scroll = $es_release->scroll(
+my $scroll     = $es_release->scroll(
     body   => $body,
     scroll => $timeout,
     fields => $fields,
@@ -64,10 +62,12 @@
 
 ###
 
-sub get_author ( $release ) {
+sub get_author ($release) {
     return unless $release;
     my $author = $release =~ s{/.*$}{}r;
-    $author or die "Error: invalid 'release' argument (format: PAUSEID/DISTRIBUTION-VERSION)";
+    $author
+        or die
+        "Error: invalid 'release' argument (format: PAUSEID/DISTRIBUTION-VERSION)";
     return $author;
 }
 

bin/cover.pl

@@ -18,7 +18,7 @@
 my ( $json_file, $test );
 GetOptions(
     "json=s" => \$json_file,
-    "test" => \$test
+    "test"   => \$test
 );
 my $cover_url     //= 'http://cpancover.com/latest/cpancover.json';
 my $cover_dev_url //= 'http://cpancover.com/latest/cpancover_dev.json';

lib/MetaCPAN/File.pm

@@ -239,11 +239,15 @@ sub add_documentation ($self) {
 
     # This is a Pod file, return its name
     $val = $doc
-        if !$val and $doc and $self->_is_perl_file();
+        if !$val
+        and $doc
+        and $self->_is_perl_file();
 
     # OR: found an indexed module with the same name
     $val = $doc
-        if !$val and $doc and grep { $_->{name} eq $doc } @indexed;
+        if !$val
+        and $doc
+        and grep { $_->{name} eq $doc } @indexed;
 
     # OR: found an indexed module with a name
     if ( !$val and my ($mod) = grep { defined $_->{name} } @indexed ) {
@@ -254,11 +258,13 @@ sub add_documentation ($self) {
     $val = $doc if !$val and defined $doc;
 
     # OR: found ANY module with a name (better than nothing)
-    if ( !$val and my ($mod) = grep { defined $_->{name} } @{ $self->{modules} } ) {
+    if ( !$val
+        and my ($mod) = grep { defined $_->{name} } @{ $self->{modules} } )
+    {
         return $mod->{name};
     }
 
-    $self->{documentation} = $val;
+    $self->{documentation}        = $val;
     $self->{documentation_length} = length($val);
 
     return undef;