require HTTP::Response;
use Carp 'cluck';

my $old_content = \&HTTP::Response::content;
*HTTP::Response::content = sub {
    cluck "HTTP::Response::content called - do you want HTTP::Response::decoded_content instead?";
    goto &$old_content;
};