Mvalve::Const - Mvalve Constants


Mvalve documentation Contained in the Mvalve distribution.

Index


Code Index:

NAME

Top

Mvalve::Const - Mvalve Constants

CONSTANTS

Top

DESTINATION_HEADER

EMERGENCY_HEADER

MVALVE_TRACE

RETRY_HEADER

DURATION_HEADER


Mvalve documentation Contained in the Mvalve distribution.

# $Id: /mirror/coderepos/lang/perl/Mvalve/trunk/lib/Mvalve/Const.pm 65693 2008-07-15T01:07:26.094046Z daisuke  $

package Mvalve::Const;
use strict;
use Exporter qw(import);

use constant +{
    EMERGENCY_HEADER   => 'X-Mvalve-Emergency',
    DESTINATION_HEADER => 'X-Mvalve-Destination',
    RETRY_HEADER       => 'X-Mvalve-Retry-Time',
    DURATION_HEADER    => 'X-Mvalve-Duration',
    MVALVE_TRACE       => $ENV{MVALVE_TRACE} ? 1 : 0,
};

our @EXPORT_OK = qw(
    EMERGENCY_HEADER
    DESTINATION_HEADER
    RETRY_HEADER
    DURATION_HEADER
    MVALVE_TRACE
);

1;

__END__