| line |
true |
false |
branch |
|
145
|
0 |
15 |
unless @_ |
|
146
|
10 |
5 |
ref $_[0] ? : |
|
170
|
0 |
0 |
if (eval "require $mod" and defined &$call) { } |
|
174
|
0 |
0 |
if (not $@ =~ /^Can't locate /u) |
|
182
|
0 |
0 |
ref $_[0] ? : |
|
193
|
0 |
0 |
if (($ENV{'TERM'} // "") =~ /^xterm/u) |
|
196
|
0 |
0 |
if @rgb >= 3 |
|
199
|
0 |
0 |
if (my $term_program = $ENV{'TERM_PROGRAM'}) |
|
200
|
0 |
0 |
if $debug |
|
204
|
0 |
0 |
if @rgb >= 3 |
|
214
|
0 |
0 |
if (defined $ENV{'TERM_LUMINANCE'}) |
|
215
|
0 |
0 |
if $debug |
|
219
|
0 |
0 |
if (defined(my $env = $ENV{'BRIGHTNESS'})) |
|
220
|
0 |
0 |
if $debug |
|
225
|
0 |
0 |
if (my $bgcolor = $ENV{'TERM_BGCOLOR'}) { } |
|
226
|
0 |
0 |
if $debug |
|
227
|
0 |
0 |
if (my(@rgb) = parse_rgb($bgcolor)) { } |
|
264
|
0 |
0 |
$luminance > $param{'threshold'} ? : |
|
|
0 |
0 |
unless my $option = $luminance > $param{'threshold'} ? $param{'light'} : $param{'dark'} |
|
273
|
0 |
0 |
if ($rgb =~ /^\#?([\da-f]{2})([\da-f]{2})([\da-f]{2})$/iu) { } |
|
|
0 |
0 |
elsif ($rgb =~ /^\#([\da-f])([\da-f])([\da-f])$/iu) { } |
|
|
0 |
0 |
elsif ($rgb =~ /^([0-5])([0-5])([0-5])$/u) { } |
|
|
0 |
0 |
elsif ($rgb =~ /^(\d+),(\d+),(\d+)$/u) { } |
|
298
|
0 |
0 |
unless my(@rgb) = get_rgb("background") |