#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package Job::Status;

use strict;

# This package is just to define the status codes.
# We have two places where these codes are used:
# - The Job database interface.
# - The Job object abtraction.
#
# It just seems cleaner to me to declare these in a 'neutral' place.
#

# Using 4 character constants, because
# - They can be stored in a single 32 bit long word
# - The are actually _readable_, as opposed to arbitrary numbers
#
use constant kNew      => 'NEW ';
use constant kQueued   => 'IN_Q';
use constant kRunning  => 'RUN ';
use constant kComplete => 'DONE';
use constant kDead     => 'DEAD';
use constant kAbort    => 'ABT ';
use constant kAborted  => 'ABTD';

1;