Jeff Pang wrote:
Try change the codes to:sub handler { my $r = shift; ...
If his handler is called as a method, $class is an appropriate first variable to shift out of @_. Using ($class, $r) = @_ is a perfectly legitimate way of taking care of that.
Colin