File Coverage

blib/lib/State/Machine/Failure/Transition/Hook.pm
Criterion Covered Total %
statement 9 12 75.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod n/a
total 12 16 75.0


line stmt bran cond sub pod time code
1             # State::Machine::Transition Hook Failure Class
2             package State::Machine::Failure::Transition::Hook;
3              
4 3     3   27 use Bubblegum::Class;
  3         5  
  3         29  
5 3     3   33735 use Function::Parameters;
  3         9  
  3         32  
6              
7 3     3   1490 use Bubblegum::Constraints 'typeof_string';
  3         8  
  3         50  
8              
9             extends 'State::Machine::Failure::Transition';
10              
11             our $VERSION = '0.07'; # VERSION
12              
13             has hook_name => (
14             is => 'ro',
15             isa => typeof_string,
16             required => 0,
17             );
18              
19 0     0     method _build_message {
  0            
20 0           "Transition hooking failure."
21             }
22              
23             1;