| line |
true |
false |
branch |
|
39
|
0 |
0 |
@rgb ? : |
|
50
|
0 |
0 |
if $alias{$res} |
|
90
|
0 |
0 |
unless ($Ps =~ /^\d+$/u) |
|
91
|
0 |
0 |
unless $Ps = $oscPs{$Ps} |
|
100
|
0 |
0 |
unless @_ |
|
101
|
0 |
0 |
unless defined $_[0] |
|
102
|
0 |
0 |
if $_[0] =~ /$osc_answer_re/u |
|
107
|
0 |
0 |
if ($debug) |
|
112
|
0 |
0 |
unless open my $tty, "+<", "/dev/tty" |
|
124
|
0 |
0 |
if $answer =~ /$osc_st_re\z/u |
|
127
|
0 |
0 |
if ($debug) |
|
138
|
0 |
0 |
unless my $rgb = osc_answer(ask(osc_stp(@_))) |
|
139
|
0 |
0 |
unless my(@rgb) = $rgb =~ m[rgb:([\da-f]+)/([\da-f]+)/([\da-f]+)]iu |
|
141
|
0 |
0 |
$max == 255 ? : |
|
157
|
0 |
0 |
@rgb ? : |
|
163
|
0 |
0 |
@rgb ? : |