|
79
|
1 |
10 |
0 |
$$self{'_all_styles'} ||= do {
my $parser = $self->ansi_parser;
my $styles = {'bold', {'font-weight', 'bold'}, 'dark', {'opacity', '0.7'}, 'underline', {'text-decoration', 'underline'}, 'concealed', {'visibility', 'hidden'}};
{
my $i = 0;
foreach my $fg ($parser->foreground_colors) {
$$styles{$fg} = {'color', $COLORS[$i++]};
} ;
$i = 0;
foreach my $bg ($parser->background_colors) {
$$styles{$bg} = {'background-color', $COLORS[$i++]};
} ;
} ;
+{%$styles, %{{} unless $$self{'styles'};}}
} |