sub redirect { my ($self, $location) = @_; $self->header_type('redirect'); $self->header_add(-location => $location); return; }