my $rst = RESET;
for my $check (@order) {
- my $color = (grep { $_ eq $check } @checks) ? GREEN '✓' : RED '✗';
+ my $color = (grep { $_ eq $check } @checks) ? GREEN UNDERLINE : RED;
$base =~ s/#([a-zA-Z-]+)/$color$1$rst/;
}
+ $base =~ s/([A-Z ]+)\n=*/BOLD($1).RESET/ge;
$base
}