simplify then:: code for recent Futures

[scpubgit/Object-Remote.git] / t / lib / ORTestTiedRemote.pm

diff --git a/t/lib/ORTestTiedRemote.pm b/t/lib/ORTestTiedRemote.pm
index e859b06..fbb674b 100644 (file)
--- a/t/lib/ORTestTiedRemote.pm
+++ b/t/lib/ORTestTiedRemote.pm
@@ -1,45 +1,45 @@
 package ORTestTiedRemote;
 
-use Moo; 
+use Moo;
 
 use Tie::Array;
-use Tie::Hash; 
+use Tie::Hash;
 
 has hash => ( is => 'ro',  builder => 1 );
 has array => ( is => 'ro', builder => 1 );
 
 sub _build_hash {
-    tie(my %hash, 'Tie::StdHash');
-    %hash = ( akey => 'a value');
-    return \%hash;
-} 
+  tie(my %hash, 'Tie::StdHash');
+  %hash = ( akey => 'a value');
+  return \%hash;
+}
 
 sub _build_array {
-    tie(my @array, 'Tie::StdArray');
-    @array = ('another value');
-    return \@array;
+  tie(my @array, 'Tie::StdArray');
+  @array = ('another value');
+  return \@array;
 }
 
 sub sum_array {
-    my ($self) = @_;
-    my $sum = 0;
-    
-    foreach(@{$self->array}) {
-        $sum += $_;
-    }  
-    
-    return $sum; 
+  my ($self) = @_;
+  my $sum = 0;
+
+  foreach(@{$self->array}) {
+    $sum += $_;
+  }
+
+  return $sum;
 }
 
 sub sum_hash {
-    my ($self) = @_; 
-    my $sum = 0;
-    
-    foreach(values(%{$self->hash})) {
-        $sum += $_;
-    }
-    
-    return $sum; 
+  my ($self) = @_;
+  my $sum = 0;
+
+  foreach(values(%{$self->hash})) {
+    $sum += $_;
+  }
+
+  return $sum;
 }
 
 1;