cleanup trailing whitespace ugliness

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

package ORTestTiedRemote;

use Moo;

use Tie::Array;
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;
}

sub _build_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;
}

sub sum_hash {
  my ($self) = @_;
  my $sum = 0;

  foreach(values(%{$self->hash})) {
    $sum += $_;
  }

  return $sum;
}

1;