Class::Workflow::Transition::Strict - Verify that the transition is in the

Class-Workflow documentation Contained in the Class-Workflow distribution.

Index

Code Index:

NAME

Top

Class::Workflow::Transition::Strict - Verify that the transition is in the instance's current state before applying.

SYNOPSIS

Top

	package MyTransition;
	use Moose;

	with qw/
		Class::Workflow::Transition
		Class::Workflow::Transition::Strict
	/;

DESCRIPTION

Top

This mixin role provides a before in Moose wrapper around the apply method, that verifies that the transition is present in the current state of the instance.

Normally you use the state introspection methods to retrieve transition objects from the state of the instance directly, but this role adds an extra level of protection.

Class-Workflow documentation Contained in the Class-Workflow distribution. 
#!/usr/bin/perl

package Class::Workflow::Transition::Strict;
use Moose::Role;

before apply => sub {
	my ( $self, $instance, @args ) = @_;
	my $state = $instance->state;

	unless ( $state->has_transition( $self ) ) {
		die "$self is not in $instance\'s current state ($state)"
	}
};

__PACKAGE__;

__END__