NAME

Debug::STDERR - provide debug() method and redirect STDERR.

SYNOPSIS

use strict;
use warnings;

# set environment variables, or set and export it for your shell

BEGIN {
  $ENV{DEBUG} = 1;
  $ENV{STDERR2LOG} = "log.out";
}

use Debug::STDERR;

debug( "foo" => { bar => "baz" });

DESCRIPTION

Debug::STDERR provides debug() method and redirect STDERR out to a file.

If you want to use it, you should set tow environment variables for your shell.

$ export DEBUG=1
$ export STDERR2LOG=log.out

or edit $ENV on BEGIN block. ( you must put it on before the line 'use Debug::STDERR;' )

If you set only 'DEBUG' variable, the debug messages out to STDERR. Furthermore if you set 'STDERR2LOG' variable, the data for STDERR will be redirect to log file.

OUTPUT SAMPLE

 # sample code   

 use strict;
 use warnings;
 use LWP::UserAgent;
 BEGIN {
     $ENV{DEBUG} = 1;
 }
 use Debug::STDERR;
 my $ua = LWP::UserAgent->new;
 debug( my_debug => { ua => $ua } );

# output sample
 ------------------------------------------------------------------------------------------------------------------------
 2009-05-21 15:12:07 511529        FROM    : main of test.pl line 9 
   MESSAGE : my_debug
   DUMPER  :
     $VAR1 = {
           'ua' => bless( {
                            'max_redirect' => 7,
                            'protocols_forbidden' => undef,
                            'show_progress' => undef,
                            'handlers' => {
                                            'response_header' => bless( [
                                                                          {
                                                                            'owner' => 'LWP::UserAgent::parse_head',
                                                                            'callback' => sub { "DUMMY" },
                                                                            'm_media_type' => 'html',
                                                                            'line' => '/usr/local/lib/perl5/site_perl/5.10.0/LWP/UserAgent.pm:608'
                                                                          }
                                                                        ], 'HTTP::Config' )
                                          },
                            'no_proxy' => [],
                            'protocols_allowed' => undef,
                            'use_eval' => 1,
                            'requests_redirectable' => [
                                                         'GET',
                                                         'HEAD'
                                                       ],
                            'timeout' => 180,
                            'def_headers' => bless( {
                                                      'user-agent' => 'libwww-perl/5.826'
                                                    }, 'HTTP::Headers' ),
                            'proxy' => {},
                            'max_size' => undef
                          }, 'LWP::UserAgent' )
         };

METHOD

debug($label => \%hash)

AUTHOR

takeshi miki <miki@cpan.org>

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO