sub param{ my $self = shift; return $self->{CGI}->param(@_); } sub xr{ my $self = shift; return XR::xr(@_); }