Const.pm

package HefceOA::Const;

use Exporter;
@ISA = qw( Exporter );

use constant {
    COMPLIANT           => 1,
    DEP                 => 2,
    DEP_COMPLIANT       => 4,
    DEP_TIMING          => 8,
    DIS                 => 16,
    DIS_DISCOVERABLE    => 32,
    ACC                 => 64,
    ACC_TIMING          => 128,
    ACC_EMBARGO         => 256,
    EX_DEP              => 512,
    EX_ACC              => 1024,
    EX_TEC              => 2048,
    EX_FUR              => 4096,
    EX                  => 8192,
    AUDIT               => 16384,
    AUD_UP_OA           => 32768,
    AUD_UP_URL          => 65536,
    AUD_CORE_DATES      => 131072,
};

@EXPORT = qw(
    COMPLIANT
    DEP
    DEP_COMPLIANT
    DEP_TIMING
    DIS
    DIS_DISCOVERABLE
    ACC
    ACC_TIMING
    ACC_EMBARGO
    EX_DEP
    EX_ACC
    EX_TEC
    EX_FUR
    EX
    AUDIT
    AUD_UP_OA
    AUD_UP_URL
    AUD_CORE_DATES
);

1;