How to use infiltrate_lwp ?

[Michaël Houzé]

Hi,

I try something like:
  use Log::Log4perl;
  use LWP::Debug qw(+)

  ...

  Log::Log4perl::init( "test.conf" );
  my $logger = Log::Log4perl::get_logger("code");

  Log::Log4perl::infiltrate_lwp();

  $logger->debug ("Create UserAgent");
  # UserAgent init
  my $UserAgent = LWP::UserAgent->new (agent => ... );

and so on, and instead of seeing all LWP debug message in logfile/screen, there is just Log4perl messages.

Is there any thing more needed to show LWP logs ?

Regards.

[Mike Schilli]

Try this:

use Log::Log4perl qw(:easy);
use LWP::UserAgent;
use HTTP::Request::Common;

Log::Log4perl->easy_init($DEBUG);

Log::Log4perl::infiltrate_lwp();

my $ua = LWP::UserAgent->new();
$ua->request(GET "http://www.yahoo.com");