package WeBWorK::Test; use Apache::Request; use Apache::Constants qw(:common); sub new($$$$$) { my $class = shift; my ($r, $courseEnvironment, $user, $key) = @_; my $self = { r => $r, courseEnvironment => $courseEnvironment, user => $user, key => $key, }; bless $self, $class; return $self; } sub go($) { my $self = shift; $self->{r}->content_type("text/html"); $self->{r}->send_http_header; # get some stuff together my $user = $self->{user}; my $key = $self->{key}; print< Welcome to Hell.

There you go.

user = $user
key = $key

EOT return OK; } 1;