File Coverage

blib/lib/OpenInteract2/Constants.pm

Criterion	Covered	Total	%
statement	105	105	100.0
branch			n/a
condition			n/a
subroutine	35	35	100.0
pod			n/a
total	140	140	100.0

package OpenInteract2::Constants;

# $Id: Constants.pm,v 1.11 2005/03/18 04:09:48 lachoy Exp $

use strict;
use base qw( Exporter );

$OpenInteract2::Constants::VERSION  = sprintf("%d.%02d", q$Revision: 1.11 $ =~ /(\d+)\.(\d+)/);

# TODO: Are these used?

use constant OI_OK       => 1;
use constant OI_REDIRECT => 3;
use constant OI_DECLINED => 4;
use constant OI_STOP     => 5;
use constant OI_ERROR    => 255;
my @OI_STATUS = qw( OI_OK OI_REDIRECT OI_DECLINED OI_STOP OI_ERROR );

use constant LALL   => 50;
use constant LDEBUG => 5;
use constant LINFO  => 4;
use constant LWARN  => 3;
use constant LERROR => 2;
use constant LFATAL => 1;
use constant LOFF   => 0;
my @LOG_LEVEL = qw( LALL LDEBUG LINFO LWARN LERROR LFATAL LOFF );

# Log4perl categories

use constant LOG_OI        => 'OI2';
use constant LOG_ACTION    => 'OI2.ACTION';
use constant LOG_APP       => 'OI2.APP';
use constant LOG_AUTH      => 'OI2.AUTH';
use constant LOG_CACHE     => 'OI2.CACHE';
use constant LOG_CONFIG    => 'OI2.CONFIG';
use constant LOG_DS        => 'OI2.DATASOURCE';
use constant LOG_INIT      => 'OI2.INITIALIZE';
use constant LOG_REQUEST   => 'OI2.REQUEST';
use constant LOG_RESPONSE  => 'OI2.RESPONSE';
use constant LOG_SECURITY  => 'OI2.SECURITY';
use constant LOG_SESSION   => 'OI2.SESSION';
use constant LOG_SPOPS     => 'OI2.SPOPS';
use constant LOG_TEMPLATE  => 'OI2.TEMPLATE';
use constant LOG_TRANSLATE => 'OI2.TRANSLATE';
my @LOG_CATEGORY = qw(
    LOG_OI LOG_ACTION LOG_APP LOG_AUTH LOG_CACHE LOG_CONFIG
    LOG_DS LOG_INIT LOG_REQUEST LOG_RESPONSE LOG_SESSION
    LOG_SECURITY LOG_SPOPS LOG_TEMPLATE LOG_TRANSLATE
);

use constant BOOTSTRAP_CONF_DIR  => 'conf';
use constant BOOTSTRAP_CONF_FILE => 'bootstrap.ini';
my @FILE = qw( BOOTSTRAP_CONF_DIR BOOTSTRAP_CONF_FILE );

use constant ACTION_KEY     => 'ACTION';
use constant REQUEST_KEY    => 'REQUEST';
use constant RESPONSE_KEY   => 'RESPONSE';
my @TEMPLATE_KEYS = qw( ACTION_KEY REQUEST_KEY RESPONSE_KEY );

use constant SESSION_COOKIE => 'oi2ssn';

@OpenInteract2::Constants::EXPORT_OK   = (
        @OI_STATUS, @LOG_LEVEL, @LOG_CATEGORY, @FILE, @TEMPLATE_KEYS, 'SESSION_COOKIE',
);
%OpenInteract2::Constants::EXPORT_TAGS = (
    'all'      => [ @OpenInteract2::Constants::EXPORT_OK ],
    'oi'       => [ @OI_STATUS ],
    'log'      => [ @LOG_LEVEL, @LOG_CATEGORY ],
    'file'     => [ @FILE ],
    'template' => [ @TEMPLATE_KEYS ],
);

1;

__END__