X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FORTestTiedRemote.pm;h=fbb674b5d62099dff07d14d55f2619aa906e7cf5;hb=aaec084cd37d3d4b12f29580a36b61a34b135504;hp=e859b06a4700533cd260a9f65a5bee76d41d563e;hpb=f129bfaf05b1ae0e2e2992cad47a70482dec9885;p=scpubgit%2FObject-Remote.git diff --git a/t/lib/ORTestTiedRemote.pm b/t/lib/ORTestTiedRemote.pm index e859b06..fbb674b 100644 --- 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;