Help for this page

Select Code to Download


  1. or download this
    sub param {
       my ($self,$param) = @_;
       return $self->{'r'}->param($param);
    }
    
  2. or download this
    my $self = {
       r     => CGI->new(),
       html  => undef,
       redir => undef,
    };
    
  3. or download this
    sub output {
       my $self = shift;
    ...
          # etc ...
       }
    }