File Coverage

blib/lib/State/Machine/Transition.pm

Criterion	Covered	Total	%
statement	38	39	97.4
branch	4	8	50.0
condition			n/a
subroutine	8	8	100.0
pod	1	2	50.0
total	51	57	89.4

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

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

use Bubblegum::Constraints -typesof;

our $VERSION = '0.07'; # VERSION

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

has 'result' => (
    is       => 'rw',
    isa      => typeof_object,
    required => 1
);

has 'hooks' => (
    is      => 'ro',
    isa     => typeof_hashref,
    default => sub {{ before => [], during => [], after => [] }}
);

has 'executable' => (
    is      => 'rw',
    isa     => typeof_integer,
    default => 1
);

has 'terminated' => (
    is      => 'rw',
    isa     => typeof_integer,
    default => 0
);

method execute {
    return if !$self->executable;

    my @schedules = (
        $self->hooks->get('before'),
        $self->hooks->get('during'),
        $self->hooks->get('after'),
    );

    for my $schedule (@schedules) {
        if ($schedule->isa_arrayref) {
            for my $task ($schedule->list) {
                next if !$task->isa_coderef;
                $task->call($self, @_);
            }
        }
    }

    return $self->result;
}

method hook {
    my $name = shift;
    my $code = shift;

    $name->asa_string;
    $code->asa_coderef;

    my $list = $self->hooks->get($name);

    unless ($list->isa_arrayref) {
        # transition hooking failure
        State::Machine::Failure::Transition::Hook->throw(
            hook_name         => $name,
            transition_name   => $self->name,
            transition_object => $self,
        );
    }

    $list->push($code);
    return $self;
}

1;

__END__