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;
+ my ($self) = @_;
+ my $sum = 0;
- foreach(@{$self->array}) {
- $sum += $_;
- }
+ foreach(@{$self->array}) {
+ $sum += $_;
+ }
- return $sum;
+ return $sum;
}
sub sum_hash {
- my ($self) = @_;
- my $sum = 0;
+ my ($self) = @_;
+ my $sum = 0;
- foreach(values(%{$self->hash})) {
- $sum += $_;
- }
+ foreach(values(%{$self->hash})) {
+ $sum += $_;
+ }
- return $sum;
+ return $sum;
}
1;