guard method with defined to avoid uninitialized warning on Perl < 5.12

length(undef) warns "Use of uninitialized value in length" under
use warnings on Perl < 5.12, which is reachable via as_string/dump on
a request with no method (e.g. HTTP::Request->new). This module
supports back to 5.008001, so guard with defined first, matching the
uri handling on the same line.

Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>

Author: oalders

lib/HTTP/Request.pm

@@ -119,7 +119,7 @@ sub as_string
     $eol = "\n" unless defined $eol;
 
     # method must be at least one char, matching ^[a-zA-Z0-9!#$%&'*+.^_`|~-]+$
-    my $req_line = (length $self->method) ? $self->method : "-";
+    my $req_line = (defined $self->method && length $self->method) ? $self->method : "-";
     my $uri = $self->uri;
     $uri = (defined $uri) ? $uri->as_string : "-";
     $req_line .= " $uri";
@@ -132,7 +132,7 @@ sub as_string
 sub dump
 {
     my $self = shift;
-    my @pre = ((length $self->method) ? $self->method : "-", (defined $self->uri) ? $self->uri : "-");
+    my @pre = ((defined $self->method && length $self->method) ? $self->method : "-", (defined $self->uri) ? $self->uri : "-");
     if (my $prot = $self->protocol) {
 	push(@pre, $prot);
     }