sub balance_by { my $self = shift; my %valid_params = map {$_ => 1} ('foo', 'bar'); if (@_ or ! defined $self->{'balance_by'}) { my $entry = shift; $self->{'balance_by'} = (defined $entry and $valid_params{$entry}) ? $entry : 'foo'; } return $self->{'balance_by'}; }