Branch Coverage

blib/lib/POE/NFA.pm
Criterion Covered Total %
branch 78 116 67.2


line true false branch
54 0 3 if defined *{"TRACE_$name";}{'CODE'}
55 0 3 if (defined *{"POE::Kernel::TRACE_$name";}{'CODE'}) { }
61 0 0 if $@
65 0 3 if $@
78 3 0 unless (defined &ASSERT_DEFAULT)
79 2 1 if (defined &POE::Kernel::ASSERT_DEFAULT) { }
91 3 0 unless (defined &TRACE_DEFAULT)
92 2 1 if (defined &POE::Kernel::TRACE_DEFAULT) { }
161 1 8 unless ref $data eq 'ARRAY'
164 1 7 if @$data & 1
169 4 3 if (ref $events eq 'ARRAY') { }
2 1 elsif (ref $events eq 'HASH') { }
195 1 17 if @params & 1
199 1 16 unless defined $POE::Kernel::poe_kernel
204 16 0 unless defined $options
207 1 5 unless exists $params{'inline_states'} or exists $params{'object_states'} or exists $params{'package_states'}
218 2 13 if (exists $params{'object_states'})
223 7 8 if (exists $params{'package_states'})
231 1 11 if keys %params
292 0 496 if ($$self[1]{'trace'})
299 11 485 if $event eq '_start'
300 11 474 if $event eq '_stop'
303 2 472 if ($event eq 'poe_nfa_stop')
309 74 398 if ($event eq 'poe_nfa_goto_state')
313 0 74 unless exists $$self[2]{$new_state}
320 0 70 unless not defined $enter_event or length $enter_event and exists $$self[2]{$new_state}{$enter_event}
333 0 74 if exists $$self[4]{'leave'}
341 70 4 if defined $enter_event
349 20 378 if ($event eq 'poe_nfa_push_state')
366 20 358 if ($event eq 'poe_nfa_pop_state')
372 0 20 unless @{$$self[5];}
392 352 6 if (exists $$self[4]{$event}) { }
2 4 elsif (exists $$self[6]{$event}) { }
4 0 elsif (exists $$self[4]{'_default'}) { }
0 0 elsif ($event ne '_signal') { }
406 0 4 if ($$self[1]{'trace'})
438 318 40 if (ref $handler eq 'CODE') { }
472 2 356 if $is_in_internal
485 0 2 unless defined $method
488 0 2 if ($name eq '_signal')
508 2 0 if ($handler) { }
512 2 0 if (ref $handler eq 'CODE') { }
0 0 elsif ($handler->can($method)) { }
513 0 2 if $$self[1]{'debug'} and exists $$self[6]{$name}
528 0 0 if $$self[1]{'debug'} and exists $$self[6]{$name}
543 0 0 if (ref $handler eq 'CODE' and $$self[1]{'trace'}) { }
553 0 0 unless ($handler->can($method))
554 0 0 if (length ref $handler) { }
620 2 2 if (defined $value) { }
625 0 2 if $value =~ /^(on|yes|true)$/i
626 0 2 if $value =~ /^(no|off|false)$/i
642 4 4 if (@_)
644 2 2 exists $$self[1]{$flag} ? :
655 8 0 if (@return_keys == 1) { }
696 0 3 if (exists $INC{'Tk.pm'}) { }
749 26 8 if (defined $$self[4] and not $$self[1]{'immediate'}) { }
770 0 20 if ($$self[1]{'immediate'}) { }
788 0 20 if ($$self[1]{'immediate'}) { }