| Log-AndError documentation | Contained in the Log-AndError distribution. |
Log::AndError::Constants - Log::AndError constants module.
use Log::AndError::Constants qw( :all :debug :log );
This module provides constants for use with any LCM class module.
Currently the following tags are supported.
:debug - Exports DEBUG0 DEBUG1 DEBUG2 DEBUG3 DEBUG4 DEBUG5 constants.
:log - Exports ALWAYSLOG constant.
:all - Exports all of the above.
John Ballem of Brown University
perl(1).
| Log-AndError documentation | Contained in the Log-AndError distribution. |
package Log::AndError::Constants; use strict; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); require Exporter; @ISA = qw(Exporter); # Items to export into callers namespace by default. Note: do not export # names by default without a very good reason. Use EXPORT_OK instead. # Do not simply export all your public functions/methods/constants. @EXPORT = qw( ); $VERSION = '0.01'; # debugging and logging constants use constant ALWAYSLOG => -3; use constant INFO => -2; use constant DEBUG0 => 0; use constant DEBUG1 => 1; use constant DEBUG2 => 2; use constant DEBUG3 => 3; use constant DEBUG4 => 4; use constant DEBUG5 => 5; my @Debug = qw( DEBUG0 DEBUG1 DEBUG2 DEBUG3 DEBUG4 DEBUG5 ); my @Log = qw( ALWAYSLOG INFO ); @EXPORT_OK = ( @Debug, @Log ); %EXPORT_TAGS = ( 'all' => [ @EXPORT_OK ], 'debug' => [ @Debug ], 'log' => [ @Log ], ); 1; __END__ # Below is the stub of documentation for your module. You better edit it!
1;