Fix content(raw=>1) dies when there is no response

    * #384

Author: mikkoi

lib/WWW/Mechanize.pm

@@ -868,7 +868,8 @@ sub content {
 
     my $content = $self->{content};
     if ( delete $params{raw} ) {
-        $content = $self->response()->content();
+        my $res = $self->response();
+        $content = $res->content() if $res;
     }
     elsif ( delete $params{decoded_by_headers} ) {
         $content = $self->response()->decoded_content( charset => 'none' );

t/content.t

@@ -37,6 +37,7 @@ my $mech = WWW::Mechanize->new();
 $mech->{base} = 'http://example.com/';
 
 is( $mech->content, undef, 'content starts out as undef' );
+is( $mech->content(raw=>1), undef, 'raw content is just as undef as normal' );
 
 $mech->update_html($html);