| line |
true |
false |
branch |
|
18
|
128 |
82 |
if ($class = ref $proto) { } |
|
24
|
202 |
8 |
if @args |
|
30
|
0 |
128 |
@_ && ref $_[0] eq 'HASH' ? : |
|
31
|
128 |
0 |
unless defined $$args{'red'} |
|
32
|
128 |
0 |
unless defined $$args{'green'} |
|
33
|
128 |
0 |
unless defined $$args{'blue'} |
|
41
|
171 |
55 |
if (@_ == 1) { } |
|
|
29 |
26 |
elsif (@_ == 3) { } |
|
|
0 |
26 |
elsif (@_ == 6) { } |
|
|
2 |
24 |
elsif (@_) { } |
|
64
|
129 |
71 |
if (UNIVERSAL::isa($col, 'HASH')) { } |
|
|
31 |
40 |
elsif (UNIVERSAL::isa($col, 'ARRAY')) { } |
|
|
0 |
40 |
elsif (ref $col) { } |
|
66
|
387 |
0 |
defined $$col{$_} ? : |
|
86
|
0 |
480 |
if $_ < 0 |
|
87
|
0 |
480 |
if $_ > 255 |
|
99
|
40 |
50 |
if (@_) |
|
101
|
0 |
40 |
unless defined $hex |
|
102
|
4 |
36 |
if ($hex =~ / ^
\#? # short form of hex triplet: #abc
([0-9a-f]) # red
([0-9a-f]) # green
([0-9a-f]) # blue
$
/xi) { } |
|
|
36 |
0 |
elsif ($hex =~ / ^
\#? # long form of hex triple: #aabbcc
([0-9a-f]{2}) # red
([0-9a-f]{2}) # green
([0-9a-f]{2}) # blue
$
/xi) { } |
|
144
|
2 |
14 |
if (@_) |
|
146
|
0 |
2 |
if $$self[0] < 0 |
|
147
|
0 |
2 |
if $$self[0] > 255 |
|
155
|
0 |
12 |
if (@_) |
|
157
|
0 |
0 |
if $$self[1] < 0 |
|
158
|
0 |
0 |
if $$self[1] > 255 |
|
166
|
0 |
12 |
if (@_) |
|
168
|
0 |
0 |
if $$self[2] < 0 |
|
169
|
0 |
0 |
if $$self[2] > 255 |
|
178
|
0 |
1 |
if (@_) { } |
|
191
|
0 |
0 |
@_ && ref $_[0] eq 'HASH' ? : |
|
193
|
0 |
0 |
if (defined($value = $$args{'red'})) |
|
195
|
0 |
0 |
if $$self[0] < 0 |
|
196
|
0 |
0 |
if $$self[0] > 255 |
|
198
|
0 |
0 |
if (defined($value = $$args{'green'})) |
|
200
|
0 |
0 |
if $$self[1] < 0 |
|
201
|
0 |
0 |
if $$self[1] > 255 |
|
203
|
0 |
0 |
if (defined($value = $$args{'blue'})) |
|
205
|
0 |
0 |
if $$self[2] < 0 |
|
206
|
0 |
0 |
if $$self[2] > 255 |
|
214
|
106 |
0 |
@_ && ref $_[0] eq 'HASH' ? : |
|
216
|
106 |
0 |
if (defined($delta = $$args{'red'})) |
|
218
|
0 |
106 |
if $$self[0] < 0 |
|
219
|
0 |
106 |
if $$self[0] > 255 |
|
221
|
106 |
0 |
if (defined($delta = $$args{'green'})) |
|
223
|
0 |
106 |
if $$self[1] < 0 |
|
224
|
0 |
106 |
if $$self[1] > 255 |
|
226
|
106 |
0 |
if (defined($delta = $$args{'blue'})) |
|
228
|
0 |
106 |
if $$self[2] < 0 |
|
229
|
0 |
106 |
if $$self[2] > 255 |
|
251
|
0 |
22 |
wantarray ? : |
|
266
|
33 |
0 |
unless (@args) |
|
274
|
30 |
3 |
if ($delta) { } |
|
276
|
24 |
6 |
if ($r == $max) { } |
|
|
2 |
4 |
elsif ($g == $max) { } |
|
286
|
0 |
30 |
if $h < 0 |