X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=t%2Flib%2FORTestTiedRemote.pm;h=fbb674b5d62099dff07d14d55f2619aa906e7cf5;hp=b3b88ecc0ed00bee763733eb01c1001dd22bbbe2;hb=55c0d0209fa9d9265ff178f54ae9fe5fdddef3c1;hpb=5ccce2d5c1fb651f83c73c811069003e4a591a53 diff --git a/t/lib/ORTestTiedRemote.pm b/t/lib/ORTestTiedRemote.pm index b3b88ec..fbb674b 100644 --- a/t/lib/ORTestTiedRemote.pm +++ b/t/lib/ORTestTiedRemote.pm @@ -1,9 +1,9 @@ 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 ); @@ -12,7 +12,7 @@ sub _build_hash { tie(my %hash, 'Tie::StdHash'); %hash = ( akey => 'a value'); return \%hash; -} +} sub _build_array { tie(my @array, 'Tie::StdArray'); @@ -23,23 +23,23 @@ sub _build_array { sub sum_array { my ($self) = @_; my $sum = 0; - + foreach(@{$self->array}) { $sum += $_; - } - - return $sum; + } + + return $sum; } sub sum_hash { - my ($self) = @_; + my ($self) = @_; my $sum = 0; - + foreach(values(%{$self->hash})) { $sum += $_; } - - return $sum; + + return $sum; } 1;