| line |
true |
false |
branch |
|
36
|
11 |
86 |
unless defined $color_def |
|
38
|
59 |
27 |
ref $self ? : |
|
42
|
3 |
106 |
unless @args |
|
43
|
7 |
28 |
if (not @args % 2 and $args[0] eq 'range' || $args[0] eq 'color' || $args[0] eq 'raw') |
|
44
|
0 |
8 |
if (@args == 2 and $args[0] eq 'color') { } |
|
|
8 |
0 |
elsif (@args > 2) { } |
|
47
|
7 |
1 |
if @args == scalar(keys %h) * 2 |
|
52
|
3 |
4 |
if @args == 2 and $first_arg_is_color_space and ref $args[1] eq "ARRAY" |
|
53
|
9 |
90 |
if @args == 3 or @args > 3 and $first_arg_is_color_space |
|
54
|
17 |
82 |
if @args == 6 or @args == 8 |
|
55
|
91 |
8 |
@args == 1 ? : |
|
59
|
20 |
125 |
if ref $color_def eq __PACKAGE__ |
|
64
|
47 |
252 |
unless ref $value_obj eq "Graphics::Toolkit::Color::Values" |
|
71
|
0 |
35 |
if @$raw_args == 1 and ref $raw_args->[0] eq "HASH" and not defined $only_parameter && $only_parameter eq 'to' && ref _new_from_scalar_def($raw_args) |
|
74
|
34 |
1 |
if (@$raw_args == 1 and defined $only_parameter and $only_parameter) |
|
75
|
0 |
34 |
if @$required_parameter > 1 |
|
76
|
0 |
34 |
if @$required_parameter and $required_parameter->[0] ne $only_parameter |
|
84
|
2 |
137 |
if (@$raw_args % 2) |
|
85
|
0 |
2 |
defined $only_parameter && $only_parameter ? : |
|
91
|
10 |
28 |
if (ref $parameter_alias eq "HASH" and exists $parameter_alias->{$parameter_name} and exists $arg_hash{$parameter_alias->{$parameter_name}}) |
|
95
|
6 |
65 |
unless exists $arg_hash{$parameter_name} |
|
99
|
0 |
34 |
if (ref $parameter_alias eq "HASH" and exists $parameter_alias->{$parameter_name} and exists $arg_hash{$parameter_alias->{$parameter_name}}) |
|
105
|
109 |
376 |
exists $arg_hash{$parameter_name} ? : |
|
107
|
7 |
124 |
if %arg_hash |
|
128
|
1 |
64 |
unless ref $arg |
|
134
|
34 |
2 |
unless @args |
|
163
|
6 |
5 |
wantarray ? : |
|
181
|
2 |
7 |
unless ref $arg |
|
183
|
0 |
7 |
unless ref $target_color |
|
185
|
0 |
7 |
unless ref $color_space |
|
186
|
3 |
4 |
if (defined $arg->{'select'}) |
|
187
|
2 |
1 |
if (not ref $arg->{'select'}) { } |
|
|
1 |
0 |
elsif (ref $arg->{'select'} eq 'ARRAY') { } |
|
189
|
0 |
2 |
unless $color_space->is_axis_name($arg->{'select'}) |
|
192
|
0 |
2 |
unless $color_space->is_axis_name($axis_name) |
|
199
|
0 |
7 |
unless ref $range_def |
|
224
|
7 |
8 |
unless ref $self eq __PACKAGE__ |
|
225
|
0 |
6 |
unless ref $self or @args |
|
227
|
3 |
12 |
if (not @args % 2 and @args and $args[0] eq 'color' || $args[0] eq 'range' || $args[0] eq 'in' || $args[0] eq 'raw') { } |
|
233
|
0 |
3 |
unless defined $color_def or ref $self |
|
236
|
0 |
12 |
if @args and not defined $color_def |
|
240
|
13 |
2 |
defined $color_def ? : |
|
241
|
0 |
15 |
unless ref $values |
|
256
|
0 |
3 |
unless ref $arg |
|
258
|
0 |
3 |
unless ref $color_space |
|
264
|
0 |
10 |
if @args == 1 and ref $args[0] eq "HASH" |
|
272
|
1 |
9 |
if @args % 2 or not @args or @args > 10 |
|
276
|
0 |
9 |
unless ref $color_space |
|
282
|
0 |
10 |
if @args == 1 and ref $args[0] eq "HASH" |
|
290
|
1 |
9 |
if @args % 2 or not @args or @args > 10 |
|
294
|
0 |
9 |
unless ref $color_space |
|
311
|
2 |
22 |
unless ref $arg |
|
313
|
1 |
21 |
unless ref $color_space |
|
315
|
10 |
11 |
if (ref $recipe) { } |
|
316
|
1 |
9 |
if ref $arg->{'amount'} |
|
317
|
5 |
4 |
if $arg->{'amount'} < 0 |
|
318
|
1 |
8 |
if $arg->{'amount'} > 100 |
|
320
|
8 |
1 |
if $arg->{'amount'} < 100 |
|
323
|
2 |
9 |
if (ref $arg->{'to'} ne 'ARRAY') { } |
|
327
|
1 |
8 |
if ref $arg->{'to'} eq "ARRAY" and ref $arg->{'amount'} eq "ARRAY" and @{$arg->{'amount'};} != @{$arg->{'to'};} |
|
329
|
5 |
3 |
unless (ref $arg->{'amount'}) |
|
332
|
5 |
0 |
$arg->{'amount'} < 0 ? : |
|
339
|
0 |
14 |
unless ref $color |
|
343
|
6 |
2 |
if $amount_sum < 100 |
|
344
|
1 |
7 |
if ($amount_sum > 100) |
|
362
|
1 |
14 |
unless ref $arg and !ref($arg->{'only'}) || ref $arg->{'only'} eq 'ARRAY' |
|
364
|
1 |
13 |
unless ref $color_space |
|
379
|
1 |
11 |
unless ref $arg |
|
380
|
2 |
9 |
unless is_nr($arg->{'steps'}) |
|
381
|
0 |
9 |
unless $arg->{'steps'} |
|
382
|
1 |
8 |
unless is_nr($arg->{'tilt'}) |
|
383
|
1 |
7 |
if ref $arg->{'target'} ne "HASH" |
|
385
|
2 |
5 |
if (keys %{$$arg{'target'};}) { } |
|
387
|
1 |
1 |
unless ref $target_values |
|
405
|
2 |
12 |
unless ref $arg |
|
408
|
9 |
3 |
if (ref $target_color) { } |
|
411
|
1 |
2 |
if ref $arg->{'to'} ne "ARRAY" or not @{$arg->{'to'};} |
|
414
|
1 |
4 |
unless ref $target_color |
|
419
|
1 |
9 |
unless is_nr($arg->{'steps'}) and $arg->{'steps'} > 0 |
|
421
|
1 |
8 |
unless is_nr($arg->{'tilt'}) |
|
423
|
1 |
7 |
unless ref $color_space |
|
441
|
6 |
12 |
unless ref $arg |
|
443
|
1 |
11 |
unless ref $color_space |
|
445
|
3 |
8 |
unless is_nr($arg->{'radius'}) or $color_space->is_number_tuple($arg->{'radius'}) |
|
447
|
2 |
6 |
unless is_nr($arg->{'minimal_distance'}) and $arg->{'minimal_distance'} > 0 |
|
449
|
1 |
5 |
if $color_space->axis_count > 3 and not ref $arg->{'radius'} |