tidy

Author: mickeyn

bin/author.pl

@@ -199,7 +199,7 @@ ($id)
     return undef
         unless $dir->is_dir;
 
-    my $cpan_file_map     = cpan_file_map( $findls_file );
+    my $cpan_file_map     = cpan_file_map($findls_file);
     my $author_cpan_files = $cpan_file_map->{$id}
         or return undef;
 

bin/backpan.pl

@@ -18,7 +18,7 @@
 );
 
 # setup
-my $cpan_file_map = cpan_file_map( $findls_file );
+my $cpan_file_map = cpan_file_map($findls_file);
 my $es_release    = MetaCPAN::ES->new( index => "release" );
 my $es_file       = MetaCPAN::ES->new( index => "file" );
 

lib/MetaCPAN/ES.pm

@@ -37,12 +37,10 @@ sub new ( $class, %args ) {
     }, $class;
 }
 
-sub test ( $self ) {
-    return !!(
-        ref($self) eq __PACKAGE__
-        and ref($self->{es})
-        and ref($self->{es}) =~ /^Search::Elasticsearch/
-    );
+sub test ($self) {
+    return !!( ref($self) eq __PACKAGE__
+        and ref( $self->{es} )
+        and ref( $self->{es} ) =~ /^Search::Elasticsearch/ );
 }
 
 sub index ( $self, %args ) {

lib/MetaCPAN/Mapper.pm

@@ -35,12 +35,10 @@ sub new ( $class, %args ) {
     }, $class;
 }
 
-sub test ( $self ) {
-    return !!(
-        ref($self) eq __PACKAGE__
-        and ref($self->{es})
-        and ref($self->{es}) =~ /^Search::Elasticsearch/
-    );
+sub test ($self) {
+    return !!( ref($self) eq __PACKAGE__
+        and ref( $self->{es} )
+        and ref( $self->{es} ) =~ /^Search::Elasticsearch/ );
 }
 
 sub index_exists ( $self, $index ) {

t/00_setup.t

@@ -29,7 +29,7 @@ subtest 'Check Files' => sub {
     ok( $d_modules->child('02packages.details.txt.gz'),
         "Found 02packages.details.txt.gz" );
     ok( $d_modules->child('06perms.txt'), "Found 06perms.txt" );
-    ok( $d_indices->child('find-ls.gz'), "Found find-ls.gz" );
+    ok( $d_indices->child('find-ls.gz'),  "Found find-ls.gz" );
 };
 
 my @packages = qw<