| line |
true |
false |
branch |
|
34
|
0 |
0 |
UNIVERSAL::isa($ref, 'ARRAY') ? : |
|
52
|
0 |
0 |
unless _is_hash($decl) |
|
60
|
0 |
0 |
if ($name =~ /^\((.*)\)$/) |
|
65
|
0 |
0 |
if $secondary |
|
68
|
0 |
0 |
unless my $method = $self->can("_handle_attr_$k") |
|
69
|
0 |
0 |
if (defined(my $v = shift @decl)) |
|
70
|
0 |
0 |
if $debug and $debug & 16 |
|
82
|
0 |
0 |
if defined $$state{$_}{$event} |
|
85
|
0 |
0 |
if grep(($_ eq $event), @{$$state{$_};}) |
|
87
|
0 |
0 |
if ($seen) |
|
88
|
0 |
0 |
unless (defined $current) |
|
92
|
0 |
0 |
if $seen |
|
137
|
0 |
0 |
unless _is_hash($v) |
|
139
|
0 |
0 |
if defined $action |
|
145
|
0 |
0 |
unless _is_hash($v) |
|
147
|
0 |
0 |
if (defined $action) |
|
156
|
0 |
0 |
unless _is_hash($v) |
|
158
|
0 |
0 |
if (defined $target) |
|
167
|
0 |
0 |
if $$state{'full_name'} eq '/__any__' |
|
168
|
0 |
0 |
unless _is_array($v) |
|
176
|
0 |
1 |
if (defined(my $any = delete $$self{'states'}{'/__any__'})) |
|
188
|
0 |
1 |
if (@ss) |
|
191
|
0 |
0 |
if (defined $event) |
|
194
|
0 |
0 |
if (my($next_state) = grep({not $$_{'secondary'};} @ss)) |
|
217
|
0 |
1 |
if (not defined $jump || defined $$state{'enter'} and @$ss) |
|
218
|
0 |
0 |
if (my($main) = grep({not $$_{'secondary'};} @$ss)) { } |
|
226
|
0 |
1 |
if defined $jump |
|
244
|
0 |
0 |
if ($target =~ /^__(\w+)__$/) |
|
247
|
0 |
0 |
if ($target =~ m[^/]) { } |
|
248
|
0 |
0 |
if $$self{'states'}{$target} |
|
249
|
0 |
0 |
if $debug and $debug & 32 |
|
255
|
0 |
0 |
if ($$self{'states'}{$target_abs}) |
|
256
|
0 |
0 |
if $debug and $debug & 32 |
|
278
|
0 |
1 |
$parent ? : |
|
279
|
0 |
1 |
if $debug and $debug & 16 |
|
281
|
0 |
1 |
if ($parent and $parent_name ne '__any__') |
|
286
|
0 |
2 |
if (defined(my $action = $$state{$when})) |
|
294
|
0 |
1 |
if (not defined $$state{'enter'} and $name ne '__any__') |
|
295
|
0 |
0 |
if (defined(my $jump = $$state{'jump_abs'})) |
|
298
|
0 |
0 |
if $debug and $debug & 32 |
|
303
|
0 |
0 |
if ($self->state eq $name) { } |
|
304
|
0 |
0 |
if $debug and $debug & 64 |
|
308
|
0 |
0 |
if $debug and $debug & 64 |
|
321
|
0 |
0 |
if (my $method = $self->next::can) |
|
322
|
0 |
0 |
if $self->state_changed_on_call($method, $self) |
|
326
|
0 |
0 |
if $debug and $debug & 32 |
|
335
|
0 |
0 |
if $debug and $debug & 32 |
|
340
|
0 |
0 |
if $debug and $debug & 64 |
|
351
|
0 |
0 |
if $debug and $debug & 64 |
|
352
|
0 |
0 |
if (my $method = $self->can($before)) |
|
353
|
0 |
0 |
if $self->state_changed_on_call($method, $self, @_) |
|
357
|
0 |
0 |
if $debug and $debug & 32 |
|
366
|
0 |
0 |
if $debug and $debug & 64 |
|
368
|
0 |
0 |
if $method |
|
380
|
0 |
0 |
if $debug and $debug & 64 |
|
381
|
0 |
0 |
if (my $method = $self->can($before)) |
|
382
|
0 |
0 |
if $self->state_changed_on_call($method, $self, @_) |
|
386
|
0 |
0 |
if $debug and $debug & 32 |
|
399
|
0 |
1 |
$parent ? : |
|
413
|
0 |
1 |
if $parent |