in reply to null values

I sometimes find it useful to define a wrapper function to set a default value: 

sub defaulted_param {
   my ($param_name, $default_value) = @_;
   return $default_value unless defined $q->param($param_name);
   return $q->param($param_name);
}

[download]
(assuming $q is global, of course).

Flavio (perl -e 'print(scalar(reverse("\nti.xittelop\@oivalf")))')

Don't fool yourself.

Replies are listed 'Best First'.
Re^2: null values
by mrborisguy (Hermit) on May 26, 2005 at 18:10 UTC

    For future reference, I believe, if I can remember right, that usually when $q->param($param_name); is used, a person is using mod_perl. In this case, you should always pass $q to the sub as well, otherwise bad things tend to happen (at least they always did for me!).

        -Bryan

[reply]
[d/l]

In Section Seekers of Perl Wisdom