Lines Matching refs:color
30 my $color = "auto";
89 $_ = "--color=$color";
111 'color=s' => \$color,
112 'no-color' => sub { $color = 'never'; },
189 if ($color =~ /^always$/i) {
190 $color = 1;
191 } elsif ($color =~ /^never$/i) {
192 $color = 0;
193 } elsif ($color =~ /^auto$/i) {
194 $color = (-t STDOUT);
196 die "Invalid color mode: $color\n";
486 $prefix = BLUE . BOLD . $prefix . RESET if $color;
1315 $output .= BOLD if $color;
1317 $output .= RED if $color && $level eq 'ERROR';
1318 $output .= MAGENTA if $color && $level eq 'WARNING';
1320 $output .= RESET if $color;