sub new
{
    my($class, $method, $uri, $header, $content) = @_;
    my $self = $class->SUPER::new($header, $content);  # L. 62
    $self->method($method);
    $self->uri($uri);
    $self;
}