Log::AndError::Constants - Log::AndError constants module.


Log-AndError documentation Contained in the Log-AndError distribution.

Index


Code Index:

NAME

Top

  Log::AndError::Constants - Log::AndError constants module.

SYNOPSIS

Top

  use Log::AndError::Constants qw( :all :debug :log );

DESCRIPTION

Top

  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. 




AUTHOR

Top

John Ballem of Brown University

SEE ALSO

Top

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;