File Coverage

blib/lib/State/Machine/State.pm

Criterion	Covered	Total	%
statement	26	33	78.7
branch	1	4	25.0
condition	1	3	33.3
subroutine	7	8	87.5
pod	2	2	100.0
total	37	50	74.0

# ABSTRACT: State Machine State Class
package State::Machine::State;

use Bubblegum::Class;
use Function::Parameters;
use State::Machine::Failure::Transition::Unknown;
use State::Machine::Transition;
use Try::Tiny;

use Bubblegum::Constraints -typesof;

our $VERSION = '0.07'; # VERSION

has 'name' => (
    is       => 'ro',
    isa      => typeof_string,
    required => 1
);

has 'next' => (
    is       => 'rw',
    isa      => typeof_string,
    required => 0
);

has 'transitions' => (
    is      => 'ro',
    isa     => typeof_hashref,
    default => sub {{}}
);

method add_transition {
    my $trans = pop;
    my $name  = shift;

    if ($trans->isa('State::Machine::Transition')) {
        $name //= $trans->name;
        $self->transitions->set($name => $trans);
        return $trans;
    }

    # transition not found
    State::Machine::Failure::Transition::Unknown->throw(
        transition_name => $name,
    );
}

method remove_transition {
    my $name = shift;

    if ($self->transitions->get($name->asa_string)) {
        return $self->transitions->delete($name);
    }

    # transition not found
    State::Machine::Failure::Transition::Unknown->throw(
        transition_name => $name,
    );
}

1;

__END__