Help for this page

Select Code to Download


  1. or download this
    sub self_or_default {
    return @_ if defined($_[0]) && (!ref($_[0])) &&($_[0] eq 'CGI');
...
    }
    return wantarray ? @_ : $Q;
}
  2. or download this
    sub url_param {
    my ($self,@p) = self_or_default(@_);
    my $name = shift(@p);
    return undef unless exists($ENV{QUERY_STRING});
...