Linux Certif

Toute la documentation sur la certification Linux LPI

Log::Log4perl::Level.3pm

NAME

Log::Log4perl::Level - Predefined log levels

SYNOPSIS

   use Log::Log4perl::Level;
   print $ERROR, "\n";
 
   # -- or --
 
   use Log::Log4perl qw(:levels);
   print $ERROR, "\n";
 
 

DESCRIPTION

"Log::Log4perl::Level" simply exports a predefined set of Log4perl log levels into the caller's name space. It is used internally by "Log::Log4perl". The following scalars are defined:

     $OFF
     $FATAL
     $ERROR
     $WARN
     $INFO
     $DEBUG
     $TRACE
     $ALL
 
 

"Log::Log4perl" also exports these constants into the caller's namespace if you pull it in providing the ":levels" tag:

     use Log::Log4perl qw(:levels);
 
 

This is the preferred way, there's usually no need to call "Log::Log4perl::Level" explicitely.

The numerical values assigned to these constants are purely virtual, only used by Log::Log4perl internally and can change at any time, so please don't make any assumptions.

If the caller wants to import these constants into a different namespace, it can be provided with the "use" command:

     use Log::Log4perl::Level qw(MyNameSpace);
 
 

After this $MyNameSpace::ERROR, $MyNameSpace::INFO etc. will be defined accordingly.

Numeric levels and Strings

Level variables like $DEBUG or $WARN have numeric values that are internal to Log4perl. Transform them to strings that can be used in a Log4perl configuration file, use the c<to_level()> function provided by Log::Log4perl::Level:

     use Log::Log4perl qw(:easy);
     use Log::Log4perl::Level;
 
         # prints "DEBUG"
     print Log::Log4perl::Level::to_level( $DEBUG ), "\n";
 
 

To perform the reverse transformation, which takes a string like ``DEBUG'' and converts it into a constant like $DEBUG, use the to_priority() function:

     use Log::Log4perl qw(:easy);
     use Log::Log4perl::Level;
 
     my $numval = Log::Log4perl::Level::to_priority( "DEBUG" );
 
 

after which $numval could be used where a numerical value is required:

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

COPYRIGHT AND LICENSE

Copyright 2002-2009 by Mike Schilli <m@perlmeister.com> and Kevin Goess <cpan@goess.org>.

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