remove dielogger and warnlogger - they just are not needed
[scpubgit/Object-Remote.git] / t / lib / ORTestTiedRemote.pm
1 package ORTestTiedRemote;
2
3 use Moo; 
4
5 use Tie::Array;
6 use Tie::Hash; 
7
8 has hash => ( is => 'ro',  builder => 1 );
9 has array => ( is => 'ro', builder => 1 );
10
11 sub _build_hash {
12   tie(my %hash, 'Tie::StdHash');
13   %hash = ( akey => 'a value');
14   return \%hash;
15
16
17 sub _build_array {
18   tie(my @array, 'Tie::StdArray');
19   @array = ('another value');
20   return \@array;
21 }
22
23 sub sum_array {
24   my ($self) = @_;
25   my $sum = 0;
26     
27   foreach(@{$self->array}) {
28     $sum += $_;
29   }  
30     
31   return $sum; 
32 }
33
34 sub sum_hash {
35   my ($self) = @_; 
36   my $sum = 0;
37     
38   foreach(values(%{$self->hash})) {
39     $sum += $_;
40   }
41     
42   return $sum; 
43 }
44
45 1;
46