| line |
true |
false |
branch |
|
76
|
96 |
0 |
if ('ARRAY' eq ref $points and @{$points;} > 0) { } |
|
152
|
96 |
0 |
unless (defined $stripes) |
|
182
|
0 |
192 |
if @{$self->{'ARROWS'};} == 1 |
|
186
|
109 |
83 |
if ($arrow->{'DIRECTION'} =~ /^([^-]+)-([^-]+)$/) { } |
|
195
|
64 |
128 |
if ($self->{'ALLOW_DIAGONAL_LINES'} and $arrow->{'WIDTH'} == $arrow->{'HEIGHT'}) { } |
|
198
|
4 |
60 |
if ($previous_was_diagonal and $previous_was_diagonal eq $arrow->{'DIRECTION'} || defined $d2 && $previous_was_diagonal eq "$d2-$d1") { } |
|
215
|
30 |
30 |
$d1 eq 'up' || defined $d2 && $d2 eq 'up' ? : |
|
223
|
16 |
112 |
if (defined $previous_was_diagonal) { } |
|
225
|
4 |
12 |
if ($arrow->{'DIRECTION'} =~ /^down/) { } |
|
|
4 |
8 |
elsif ($arrow->{'DIRECTION'} =~ /^up/) { } |
|
235
|
4 |
4 |
$previous_was_diagonal =~ /down/ ? : |
|
240
|
36 |
76 |
if ($previous_direction ne $d1) |
|
242
|
8 |
28 |
if ($d1 eq 'down') { } |
|
|
10 |
18 |
elsif ($d1 eq 'up') { } |
|
|
9 |
9 |
elsif ($previous_direction eq 'down') { } |
|
|
9 |
0 |
elsif ($previous_direction eq 'up') { } |
|
244
|
4 |
4 |
if ($previous_direction eq 'right') { } |
|
|
4 |
0 |
elsif ($previous_direction eq 'left') { } |
|
259
|
5 |
5 |
if ($previous_direction eq 'right') { } |
|
|
5 |
0 |
elsif ($previous_direction eq 'left') { } |
|
274
|
4 |
5 |
if ($d1 eq 'left') { } |
|
285
|
4 |
5 |
if ($d1 eq 'left') { } |
|
301
|
45 |
83 |
defined $d2 ? : |
|
305
|
84 |
108 |
if ($arrow_index != 0 and defined $connection) |
|
343
|
0 |
0 |
if ($x == $start_connector->{'X'} and $y == $start_connector->{'Y'}) |
|
352
|
0 |
0 |
if ($x == $end_connector->{'X'} and $y == $end_connector->{'Y'}) |
|
370
|
0 |
0 |
if ($which eq 'start') { } |
|
386
|
0 |
0 |
if ($which eq 'start') { } |
|
426
|
96 |
0 |
unless $self->{'NOT_CONNECTABLE_START'} |
|
427
|
96 |
0 |
unless $self->{'NOT_CONNECTABLE_END'} |
|
440
|
0 |
0 |
unless $self->{'NOT_CONNECTABLE_START'} |
|
441
|
0 |
0 |
unless $self->{'NOT_CONNECTABLE_END'} |
|
460
|
96 |
96 |
if ($arrow == $self->{'ARROWS'}[0]) |
|
494
|
0 |
0 |
if ($arrow == $self->{'ARROWS'}[0]) |
|
498
|
0 |
0 |
if ($name eq $start_connector->{'NAME'}) |
|
506
|
0 |
0 |
if $arrow->{'DIRECTION'} eq $arrow_type->[0] |
|
515
|
0 |
0 |
if ($name eq $end_connector->{'NAME'}) |
|
523
|
0 |
0 |
if $arrow->{'DIRECTION'} eq $arrow_type->[0] |
|
545
|
0 |
0 |
if ($connection) { } |
|
587
|
0 |
0 |
if (defined $connector_name_array) { } |
|
599
|
0 |
0 |
if (defined $start_element) |
|
602
|
0 |
0 |
if (defined $connector_name_array) { } |
|
604
|
0 |
0 |
if ($connector_name_array->[$WIRL_CONNECTOR_NAME_INDEX] eq "start" or $connector_name_array->[$MULTI_WIRL_CONNECTOR_NAME_INDEX] eq "startsection_0") |
|
615
|
0 |
0 |
if ($reference_x == 0 and $reference_y == 0) |
|
621
|
0 |
0 |
if ($is_start) { } |
|
638
|
0 |
0 |
if ($arrow == $start_element) { } |
|
669
|
0 |
0 |
if (defined $end_element) |
|
695
|
0 |
0 |
if ($reference_x == 0 and $reference_y == 0) |
|
703
|
0 |
0 |
if (defined $start_element) |
|
709
|
0 |
0 |
if ($reference_x == $end_connector->{'X'} + $self->{'POINTS_OFFSETS'}[$arrow_index][0] and $reference_y == $end_connector->{'Y'} + $self->{'POINTS_OFFSETS'}[$arrow_index][1]) |
|
739
|
0 |
0 |
if ($connector_name eq $start_connector->{'NAME'} . "section_$arrow_index") |
|
745
|
0 |
0 |
if (defined $start_element) |
|
751
|
0 |
0 |
if ($connector_name eq $end_connector->{'NAME'} . "section_$arrow_index") |
|
772
|
0 |
0 |
if (exists $self->{'ARROWS'}[$section_index]) { } |
|
794
|
0 |
0 |
if ($self->is_over_element($arrow, $x_offset, $y_offset, 0, @{$$self{"POINTS_OFFSETS"}[$index];})) |
|
911
|
0 |
0 |
if @{$self->{'ARROWS'};} == 1 |
|
928
|
0 |
0 |
if @{$self->{'ARROWS'};} == 1 |
|
961
|
0 |
0 |
if (1 == @{$self->{'ARROWS'};}) { } |
|
965
|
0 |
0 |
if ($direction =~ /(.*)-(.*)/) |
|
976
|
0 |
0 |
if ($self->is_over_element($arrow, $x, $y, 0, @{$$self{"POINTS_OFFSETS"}[$index];})) |
|
988
|
0 |
0 |
if ($direction =~ /(.*)-(.*)/) |
|
1011
|
0 |
0 |
if ($direction =~ /(.*)-(.*)/) |
|
1031
|
0 |
0 |
if ($stripe_x - $field <= $x and $x < $stripe_x + $strip->{'WIDTH'} + $field and $stripe_y - $field <= $y and $y < $stripe_y + $strip->{'HEIGHT'} + $field) |
|
1121
|
0 |
0 |
unless $self->{'EDITABLE'} |