Commit | Line | Data |
---|---|---|
f129bfaf | 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 { | |
09130cd0 | 12 | tie(my %hash, 'Tie::StdHash'); |
13 | %hash = ( akey => 'a value'); | |
14 | return \%hash; | |
f129bfaf | 15 | } |
16 | ||
17 | sub _build_array { | |
09130cd0 | 18 | tie(my @array, 'Tie::StdArray'); |
19 | @array = ('another value'); | |
20 | return \@array; | |
f129bfaf | 21 | } |
22 | ||
23 | sub sum_array { | |
09130cd0 | 24 | my ($self) = @_; |
25 | my $sum = 0; | |
f129bfaf | 26 | |
09130cd0 | 27 | foreach(@{$self->array}) { |
28 | $sum += $_; | |
29 | } | |
f129bfaf | 30 | |
09130cd0 | 31 | return $sum; |
f129bfaf | 32 | } |
33 | ||
34 | sub sum_hash { | |
09130cd0 | 35 | my ($self) = @_; |
36 | my $sum = 0; | |
f129bfaf | 37 | |
09130cd0 | 38 | foreach(values(%{$self->hash})) { |
39 | $sum += $_; | |
40 | } | |
f129bfaf | 41 | |
09130cd0 | 42 | return $sum; |
f129bfaf | 43 | } |
44 | ||
45 | 1; | |
46 |