tidy

kentfredric · Jul 31, 2012 · 015954c · 015954c
1 parent 0713f75
commit 015954c
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 14 deletions.
diff --git a/lib/Gentoo/Perl/Distmap/Map.pm b/lib/Gentoo/Perl/Distmap/Map.pm
@@ -24,7 +24,7 @@ sub multi_repo_dists {
 
 sub dists_in_repo {
   my ( $self, $repo ) = @_;
-  return grep { $self->store->{$_}->in_repo( $repo ) } $self->all_mapped_dists;
+  return grep { $self->store->{$_}->in_repo($repo) } $self->all_mapped_dists;
 }
 
 sub to_rec {
@@ -46,7 +46,7 @@ sub from_rec {
   my $in;
   require Gentoo::Perl::Distmap::RecordSet;
   for my $dist ( keys %{$rec_clone} ) {
-    $in->{$dist} = Gentoo::Perl::Distmap::RecordSet->from_rec($rec_clone->{$dist}) 
+    $in->{$dist} = Gentoo::Perl::Distmap::RecordSet->from_rec( $rec_clone->{$dist} );
   }
   return $class->new( store => $in, );
 }

diff --git a/lib/Gentoo/Perl/Distmap/Record.pm b/lib/Gentoo/Perl/Distmap/Record.pm
@@ -24,15 +24,16 @@ sub has_versions {
 }
 
 sub enumerate_packages {
-	my( $self ) = @_;
-	my @out;
-	my $prefix = sprintf '=%s/%s-', $self->category, $self->package;
-	my $suffix = sprintf '::%s', $self->repository;
-	for my $version (@{ $self->versions_gentoo }) {
-		push @out, $prefix . $version . $suffix;
-	}
-	return @out;
+  my ($self) = @_;
+  my @out;
+  my $prefix = sprintf '=%s/%s-', $self->category, $self->package;
+  my $suffix = sprintf '::%s', $self->repository;
+  for my $version ( @{ $self->versions_gentoo } ) {
+    push @out, $prefix . $version . $suffix;
+  }
+  return @out;
 }
+
 sub to_rec {
   my ($self) = @_;
   return {

diff --git a/lib/Gentoo/Perl/Distmap/RecordSet.pm b/lib/Gentoo/Perl/Distmap/RecordSet.pm
@@ -5,7 +5,6 @@ package Gentoo::Perl::Distmap::RecordSet;
 
 # ABSTRACT: A collection of Record objects representing versions in >1 repos.
 
-
 use Moo;
 use Sub::Quote qw( quote_sub );
 
@@ -20,16 +19,16 @@ sub is_multi_repo {
   my $self = shift;
   my %seen;
   for my $record ( grep { $_->has_versions } @{ $self->records } ) {
-  	$seen{ $record->repository }++;
+    $seen{ $record->repository }++;
   }
   return 1 if scalar keys %seen > 1;
   return;
 }
 
 sub in_repo {
   my ( $self, $repository ) = @_;
-  return grep { $_->repository eq $repository } 
-  	 grep { $_->has_versions } @{ $self->records };
+  return grep { $_->repository eq $repository }
+    grep { $_->has_versions } @{ $self->records };
 }
 
 sub to_rec {