sub balance_by {
    my ($self,$entry) = @_;

    my %valid_params = map {$_ => 1} qw/ foo bar /;

    $self->{'balance_by'} = (defined $entry and exists $valid_params{$entry})
        ? $entry 
        : 'foo';
    return $self->{'balance_by'};
}