perltidy

Author: vti

Diff for: .perltidyrc

@@ -0,0 +1 @@
+-l=120

Diff for: lib/CPAN/Audit.pm

@@ -59,8 +59,7 @@ sub command {
           unless $distname;
 
         if ( !$self->{db}->{dists}->{$distname} ) {
-            $self->stdout(
-                "__GREEN__Distribution '$distname' is not in database");
+            $self->stdout("__GREEN__Distribution '$distname' is not in database");
             return 0;
         }
 
@@ -104,8 +103,7 @@ sub command {
         }
     }
     elsif ( $command eq 'installed' ) {
-        $self->stdout(
-            'Collecting all installed modules. This can take a while...');
+        $self->stdout('Collecting all installed modules. This can take a while...');
 
         my @deps = CPAN::Audit::Installed->new( db => $self->{db} )->find(@ARGV);
 
@@ -129,15 +127,13 @@ sub command {
         foreach my $distname ( sort keys %dists ) {
             my $version_range = $dists{$distname};
 
-            my @advisories =
-              $query->advisories_for( $distname, $version_range );
+            my @advisories = $query->advisories_for( $distname, $version_range );
 
             $version_range = 'Any'
               if $version_range eq '' || $version_range eq '0';
 
             if (@advisories) {
-                $self->stdout(
-                    '__RED__%s (requires %s) has %d advisories__RESET__',
+                $self->stdout( '__RED__%s (requires %s) has %d advisories__RESET__',
                     $distname, $version_range, scalar(@advisories) );
 
                 foreach my $advisory (@advisories) {
@@ -150,8 +146,7 @@ sub command {
     }
 
     if ($total_advisories) {
-        $self->stdout( '__RED__Total advisories found: %d__RESET__',
-            $total_advisories );
+        $self->stdout( '__RED__Total advisories found: %d__RESET__', $total_advisories );
 
         return $total_advisories;
     }

Diff for: lib/CPAN/Audit/Discover.pm

@@ -20,7 +20,7 @@ sub discover {
     if ( -f "$path/cpanfile.snapshot" ) {
         return CPAN::Audit::Discover::CpanfileSnapshot->new->discover("$path/cpanfile.snapshot");
     }
-    elsif ( -f "$path/cpanfile") {
+    elsif ( -f "$path/cpanfile" ) {
         return CPAN::Audit::Discover::Cpanfile->new->discover("$path/cpanfile");
     }
     else {

Diff for: lib/CPAN/Audit/Installed.pm

@@ -38,9 +38,9 @@ sub find {
                         $module =~ s{/}{::}g;
 
                         my $distname = $self->{db}->{module2dist}->{$module};
-                        if ( $distname) {
+                        if ($distname) {
                             my $dist = $self->{db}->{dists}->{$distname};
-                            if ($dist->{main_module} eq $module) {
+                            if ( $dist->{main_module} eq $module ) {
                                 return if $seen{$module}++;
 
                                 my $version = module_version($File::Find::fullname);

Diff for: lib/CPAN/Audit/Query.pm

@@ -46,15 +46,11 @@ sub advisories_for {
 
     my @matched_advisories;
     foreach my $advisory (@advisories) {
-        my @affected_versions =
-          $version_checker->affected_versions( \@all_versions,
-            $advisory->{affected_versions} );
+        my @affected_versions = $version_checker->affected_versions( \@all_versions, $advisory->{affected_versions} );
         next unless @affected_versions;
 
         foreach my $affected_version ( reverse @affected_versions ) {
-            if ( $version_checker->in_range( $affected_version, $version_range )
-              )
-            {
+            if ( $version_checker->in_range( $affected_version, $version_range ) ) {
                 push @matched_advisories, $advisory;
                 last;
             }

Diff for: lib/CPAN/Audit/Version.pm

@@ -26,8 +26,7 @@ sub in_range {
         my ( $op, $range_version ) = $and =~ m/^(<=|<|>=|>|==|!=)?\s*([^\s]+)$/;
 
         return
-          unless
-          defined( $range_version = eval { version->parse($range_version) } );
+          unless defined( $range_version = eval { version->parse($range_version) } );
 
         $op = '>=' unless defined $op;
 
@@ -59,11 +58,11 @@ sub in_range {
 
 sub affected_versions {
     my $self = shift;
-    my ($available_versions, $range) = @_;
+    my ( $available_versions, $range ) = @_;
 
     my @affected_versions;
     foreach my $version (@$available_versions) {
-        if ($self->in_range($version, $range)) {
+        if ( $self->in_range( $version, $range ) ) {
             push @affected_versions, $version;
         }
     }