File Coverage

blib/lib/Log/AndError/Constants.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod			n/a
total	40	40	100.0

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__