package XXX::LWP::UserAgent;
use base qw(LWP::UserAgent);
sub request
{
    my $self = shift;
    my $resp = $self->SUPER::request(@_);
    return XXX::HTTP::Response::clone_from_http_response($resp);
}