Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: only allow certain parameters

by runrig (Abbot)
on Aug 09, 2002 at 22:49 UTC ( #189086=note: print w/replies, xml ) Need Help??


in reply to only allow certain parameters

I assume you want to set the value if a parameter is passed or if the current value is undef, and just return the current value otherwise:
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'}; }
I would also define your %valid_params outside of the subroutine. No need to define them each time you call the sub. Also if you want to nano-optimize your code, consider using exists to see if the key exists in valid_params instead of testing its value, like so:
my %valid_params; undef @valid_params{qw(foo bar)}; ... (defined $entry and exists $valid_params{$entry}) ...
Also, unless I'm mistaken, there doesn't seem to be any reason to not default your fields in the 'new' method...(unless you just wanted 'if (@_)...' in that conditional?)

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://189086]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (2)
As of 2023-02-04 02:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (30 votes). Check out past polls.

    Notices?