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

[mscha]

$mech->content(raw=>1) dies when there is no current response, while $mech->content() simply returns undef.
Can you please make $mech->content(raw=>1) (and perhaps other variations that I haven't tested) return undef in such a case as well?

$ perl -MWWW::Mechanize -E 'my $mech = WWW::Mechanize->new; say $mech->content() // "(undef)";'
(undef)

$ perl -MWWW::Mechanize -E 'my $mech = WWW::Mechanize->new; say $mech->content(raw=>1) // "(undef)";'
Can't call method "content" on an undefined value at /opt/perl-5.38/lib/site_perl/5.38.0/WWW/Mechanize.pm line 335.

[oalders]

That sounds like a reasonable change. I'd be interested to hear from @petdance. My main concern is that even innocuous changes tend to break things in the wild.

The docs do say:

A fresh instance of WWW::Mechanize will return undef when $mech->content() is called, because no content is present before a request has been made.

I guess it's not 100% clear if that means just content() or also content(...).

[petdance]

This looks entirely reasonable to throw in content

    if ( delete $params{raw} ) {
        $content = $self->response()->content();
    }

to

    if ( delete $params{raw} ) {
        my $res = $self->response();
        $content = $res->content() if $res;
    }

[oalders]

If someone wants to create a PR, I'm happy to release.