| line |
true |
false |
branch |
|
13
|
1 |
463 |
unless ref $basis eq "Graphics::Toolkit::Color::Space::Basis" |
|
17
|
445 |
18 |
unless defined $value_form |
|
18
|
446 |
17 |
if ref $value_form ne "ARRAY" |
|
19
|
0 |
463 |
if ref $value_form ne "ARRAY" |
|
20
|
1411 |
0 |
defined $_ && $_ ? : |
|
21
|
1 |
462 |
unless @$value_form == $count |
|
24
|
1 |
461 |
unless ref $suffix |
|
50
|
413 |
351 |
unless defined $suffix |
|
51
|
9 |
755 |
unless ref $suffix |
|
52
|
1 |
763 |
unless ref $suffix eq "ARRAY" |
|
53
|
3 |
760 |
unless @$suffix == $count |
|
58
|
2130 |
302 |
unless defined $suffix |
|
64
|
0 |
31 |
if not defined $format or ref $format or ref $code ne "CODE" |
|
65
|
15 |
16 |
if $self->has_formatter($format) |
|
70
|
0 |
31 |
if not defined $format or ref $format or ref $code ne "CODE" |
|
71
|
0 |
31 |
if $self->has_deformatter($format) |
|
76
|
0 |
15 |
if ref $pre_code ne "CODE" or ref $post_code ne "CODE" |
|
83
|
142 |
29 |
defined $_[1] && exists $_[0]{'formatter'}{lc $_[1]} ? : |
|
84
|
1 |
32 |
defined $_[1] && exists $_[0]{'deformatter'}{lc $_[1]} ? : |
|
88
|
0 |
2018 |
unless defined $color_def |
|
90
|
0 |
2018 |
unless ref $suffix |
|
94
|
7835 |
240 |
unless ref $tuple |
|
97
|
85 |
155 |
unless $self->are_tuple_numbers_well_formatted($tuple) |
|
99
|
0 |
155 |
unless $self->basis->is_number_tuple($tuple) |
|
100
|
132 |
23 |
wantarray ? : |
|
106
|
0 |
132 |
unless $self->basis->is_value_tuple($tuple) |
|
107
|
9 |
123 |
unless $self->has_formatter($format) |
|
109
|
3 |
120 |
unless ref $suffix |
|
118
|
70 |
170 |
unless $self->basis->is_value_tuple($dirty_tuple) |
|
131
|
70 |
171 |
unless $self->basis->is_value_tuple($tuple) |
|
133
|
0 |
171 |
unless ref $suffix |
|
136
|
422 |
97 |
unless $suffix->[$axis_index] |
|
139
|
66 |
31 |
if substr($tuple->[$axis_index], -$suf_length) eq $suffix->[$axis_index] and substr($tuple->[$axis_index], -($suf_length + 1), 1) ne " " |
|
147
|
0 |
120 |
unless $self->basis->is_value_tuple($tuple) |
|
149
|
0 |
120 |
unless ref $suffix |
|
152
|
343 |
23 |
unless $suffix->[$axis_index] |
|
155
|
23 |
0 |
if substr($tuple->[$axis_index], -$suf_length) ne $suffix->[$axis_index] |
|
164
|
146 |
9 |
unless ref $self->{'value_numifier'}{'into_numeric'} |
|
166
|
9 |
0 |
if $self->basis->is_value_tuple($tuple) |
|
170
|
116 |
4 |
unless ref $self->{'value_numifier'}{'from_numeric'} |
|
172
|
4 |
0 |
if $self->basis->is_value_tuple($tuple) |
|
177
|
70 |
170 |
if ref $tuple ne "ARRAY" |
|
178
|
0 |
170 |
if @$tuple != $self->basis->axis_count |
|
181
|
15 |
480 |
unless $tuple->[$axis_index] =~ /^$re[$axis_index]$/u |
|
195
|
1279 |
618 |
unless defined $string and not ref $string |
|
199
|
582 |
36 |
unless $self->{'basis'}->is_name($space_name) and $tuple_string |
|
202
|
35 |
1 |
if index($tuple_string, ",") != -1 |
|
207
|
1351 |
646 |
unless defined $string and not ref $string |
|
211
|
627 |
19 |
unless $self->{'basis'}->is_name($space_name) and $tuple_string |
|
214
|
17 |
2 |
if index($tuple_string, ",") != -1 |
|
219
|
1083 |
855 |
if ref $array ne "ARRAY" or not @$array |
|
220
|
809 |
46 |
unless $self->basis->is_name($array->[0]) |
|
222
|
2 |
44 |
if @$array == 1 and ref $array->[0] eq "ARRAY" |
|
223
|
5 |
41 |
unless @$array == $self->basis->axis_count |
|
228
|
1945 |
36 |
unless $self->basis->is_hash($hash) |