package Util::CoreTags; ############################################################################## # # DESCRIPTION: This object defines core event tags. # # HISTORY: # # VERSION: 0.0 # # ############################################################################## use strict; use base qw(Exporter); use vars qw(@EXPORT); @EXPORT = qw( UNKNOWN_ERROR TIMESTAMP TASK_ERROR BAD_TASK BAD_PARAMETER BAD_INPUT BAD_OUTPUT PIPE_FAILED EVAL_ERROR REMOVE_OVERLAP ASPECT_FAILED UNKNOWN_FILE ); use constant UNKNOWN_ERROR => 'core.unknown.error'; use constant TIMESTAMP => 'core.timestamp'; use constant TASK_ERROR => 'core.task.error'; use constant BAD_TASK => 'core.bad.task'; use constant BAD_PARAMETER => 'core.bad.parameter'; use constant BAD_INPUT => 'core.bad.input'; use constant BAD_OUTPUT => 'core.bad.output'; use constant PIPE_FAILED => 'core.pipe.failed'; use constant EVAL_ERROR => 'core.eval.error'; use constant REMOVE_OVERLAP => 'core.remove.overlap'; use constant ASPECT_FAILED => 'core.aspect.failed'; use constant UNKNOWN_FILE => 'core.unknown.file'; 1;