Commit | Line | Data |
---|---|---|
f129bfaf | 1 | package ORTestTiedRemote; |
2 | ||
55c0d020 | 3 | use Moo; |
f129bfaf | 4 | |
5 | use Tie::Array; | |
55c0d020 | 6 | use Tie::Hash; |
f129bfaf | 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; | |
55c0d020 | 15 | } |
f129bfaf | 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; | |
55c0d020 | 26 | |
09130cd0 | 27 | foreach(@{$self->array}) { |
28 | $sum += $_; | |
55c0d020 | 29 | } |
30 | ||
31 | return $sum; | |
f129bfaf | 32 | } |
33 | ||
34 | sub sum_hash { | |
55c0d020 | 35 | my ($self) = @_; |
09130cd0 | 36 | my $sum = 0; |
55c0d020 | 37 | |
09130cd0 | 38 | foreach(values(%{$self->hash})) { |
39 | $sum += $_; | |
40 | } | |
55c0d020 | 41 | |
42 | return $sum; | |
f129bfaf | 43 | } |
44 | ||
45 | 1; | |
46 |