Mvalve::Const - Mvalve Constants

Mvalve documentation

Contained in the Mvalve distribution.

Index

NAME
CONSTANTS

Code Index:

package Mvalve::Const
__END__
EOF

NAME

Mvalve::Const - Mvalve Constants

CONSTANTS

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__