move reused code into _uri_with_base method

Author: sjohnston

lib/WWW/Mechanize.pm

@@ -476,11 +476,7 @@ sub get {
     my $self = shift;
     my $uri = shift;
 
-    $uri = $uri->url if ref($uri) eq 'WWW::Mechanize::Link';
-
-    $uri = $self->base
-            ? URI->new_abs( $uri, $self->base )
-            : URI->new( $uri );
+    $uri = $self->_uri_with_base( $uri );
 
     # It appears we are returning a super-class method,
     # but it in turn calls the request() method here in Mechanize
@@ -499,11 +495,7 @@ sub post {
     my $self = shift;
     my $uri = shift;
 
-    $uri = $uri->url if ref($uri) eq 'WWW::Mechanize::Link';
-
-    $uri = $self->base
-            ? URI->new_abs( $uri, $self->base )
-            : URI->new( $uri );
+    $uri = $self->_uri_with_base( $uri );
 
     # It appears we are returning a super-class method,
     # but it in turn calls the request() method here in Mechanize
@@ -525,11 +517,7 @@ sub put {
     my $self = shift;
     my $uri = shift;
 
-    $uri = $uri->url if ref($uri) eq 'WWW::Mechanize::Link';
-
-    $uri = $self->base
-            ? URI->new_abs( $uri, $self->base )
-            : URI->new( $uri );
+    $uri = $self->_uri_with_base( $uri );
 
     # It appears we are returning a super-class method,
     # but it in turn calls the request() method here in Mechanize
@@ -557,15 +545,24 @@ sub head {
     my $self = shift;
     my $uri = shift;
 
+    $uri = $self->_uri_with_base( $uri );
+
+    # It appears we are returning a super-class method,
+    # but it in turn calls the request() method here in Mechanize
+    return $self->SUPER::head( $uri->as_string, @_ );
+}
+
+sub _uri_with_base {
+    my $self = shift;
+    my $uri = shift;
+
     $uri = $uri->url if ref($uri) eq 'WWW::Mechanize::Link';
 
     $uri = $self->base
             ? URI->new_abs( $uri, $self->base )
             : URI->new( $uri );
 
-    # It appears we are returning a super-class method,
-    # but it in turn calls the request() method here in Mechanize
-    return $self->SUPER::head( $uri->as_string, @_ );
+    return $uri;
 }
 
 =head2 $mech->reload()