The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

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