package WeBWorK::Test; sub new($$$$$) { my $class = shift; my ($r, $courseEnvironment, $user, $key) = @_; my $self = { request => $r, courseEnvironment => $courseEnvironment, user => $user, key => $key, }; } sub go { my $self = shift; $self{request}->content_type("text/html"); $self{request}->send_http_header; print< Welcome to Hell.

There you go.

user = $self{user}
key = $self{key}

EOT } 1;