sub get {
    my $self = shift;
    my $uri = shift;

    $uri = $self->{base}
	    ? URI->new_abs( $uri, $self->{base} )
	    : URI->new( $uri );

    return $self->SUPER::get( $uri, @_ );
}