sub param {
   my ($self,$param) = @_;
   return $self->{'r'}->param($param);
}