| line |
true |
false |
branch |
|
86
|
0 |
0 |
if (@_) |
|
88
|
0 |
0 |
unless defined $message |
|
89
|
0 |
0 |
if ($message =~ m[([^\w\t :.\\/!,-])]) |
|
124
|
0 |
0 |
if @_ |
|
181
|
0 |
0 |
if @_ |
|
286
|
0 |
5 |
unless defined $id |
|
289
|
4 |
1 |
if (exists $$self{'OBJECTS'}{$id}) |
|
291
|
0 |
4 |
if $type and not $obj->isa($type) |
|
363
|
0 |
10 |
if (exists $$self{'OBJECTS'}{$id} or $id eq $$self{'ID'}) |
|
368
|
0 |
0 |
$old_type eq $new_type ? : |
|
374
|
2 |
8 |
$t eq 'CLASS' ? : |
|
396
|
0 |
0 |
unless @events |
|
400
|
0 |
0 |
unless @arcs |
|
403
|
0 |
0 |
unless @states |
|
445
|
0 |
0 |
@_ && ref $_[-1] eq 'HASH' ? : |
|
449
|
0 |
0 |
unless $types and @$types |
|
456
|
0 |
0 |
if (substr($_, 0, 1) eq '!') { } |
|
466
|
0 |
0 |
if '#ALL' =~ /$type_re/ or '#ANY' =~ /$type_re/ or !@specs && @not_specs || grep(($_ =~ /$type_re/), @specs) and not grep(($_ =~ /$type_re/), @not_specs) |
|
491
|
0 |
0 |
@_ && ref $_[-1] eq 'HASH' ? : |
|
501
|
0 |
0 |
unless uc $arc->event_id eq $uc_event_id |
|
502
|
0 |
0 |
if (uc $arc->from eq '#ALL') |
|
509
|
0 |
0 |
if (exists $arcs{'#ALL'} and not $$options{'raw'}) |
|
516
|
0 |
0 |
if exists $arcs{uc $from_state->id} |
|
517
|
0 |
0 |
uc $arc->to eq '#ALL' ? : |
|
555
|
0 |
0 |
@_ && ref $_[-1] eq 'HASH' ? : |
|
561
|
0 |
0 |
unless uc $arc->event_id eq $uc_event_id and uc $arc->from eq '#ALL' |
|
600
|
0 |
0 |
@_ && ref $_[-1] eq 'HASH' ? : |
|
631
|
0 |
0 |
if defined $arc->guard |
|
634
|
0 |
0 |
if (empty($arc->from)) { } |
|
|
0 |
0 |
elsif (not $self->state_by_id($arc->from)) { } |
|
647
|
0 |
0 |
if $from_state_via_event{join $;, $arc->from, $unique_id} |
|
652
|
0 |
0 |
if (empty($arc->to)) { } |
|
|
0 |
0 |
elsif (not $self->state_by_id($arc->to)) { } |
|
663
|
0 |
0 |
if (empty($arc->event_id)) { } |
|
|
0 |
0 |
elsif (not $self->event_by_id($arc->event_id)) { } |
|
689
|
0 |
3 |
if exists $enum_ids{$_->enum_id} |
|
702
|
0 |
3 |
if @errors |