The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Pangloss::Term::Status - the status of a term.

SYNOPSIS

  use Pangloss::Term::Status;
  my $status = new Pangloss::Term::Status();

  $status->pending()
         ->notes( $text )
         ->creator( $user )
         ->date( time );

  do { ... } if $status->is_pending();

DESCRIPTION

This class represents a status associated with a term. It inherits from Pangloss::StoredObject::Common.

FLAGS

The following flags are available as class variables:

  PENDING
  APPROVED
  REJECTED
  DEPRECATED

They are also available as a hash with lowercase keys via $class->status_codes.

METHODS

$obj->code

internal method to set/get status code.

$obj = $obj->pending, $obj->accepted, $obj->rejected, $obj->deprecated

set this status code to one of the above. At present, multiple flags can only be set (ie: approved | deprecated) by setting $obj->code directly.

$bool = $obj->is_pending, $obj->is_accepted, $obj->is_rejected, $obj->is_deprecated

test if this status code is one of the above.

AUTHOR

Steve Purkis <spurkis@quiup.com>

SEE ALSO

Pangloss::Term