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, }; @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 ); 1;