Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

update for new ANSIColorx version

  • Loading branch information...
commit cf79b248c6e13db4071a3792ab9d99408fc2cafb 1 parent 037b650
@jettero authored
View
7 lib/Term/ReadLine/CLISH/Message.pm
@@ -3,7 +3,6 @@ package Term::ReadLine::CLISH::Message;
use Moose;
use namespace::sweep; # like autoclean, but doesn't murder overloads
use Term::ANSIColorx::ColorNicknames;
-use Term::ANSIColor ();
use common::sense;
use overload '""' => sub { $_[0]->stringify }, fallback => 1;
@@ -57,7 +56,11 @@ sub _apply_color {
s/\%C(?:\([^()]*\))?//g;
} else {
- s/\%C(?:\(([^()]*)\))?/"$1" ? Term::ANSIColor::color("$1") : Term::ANSIColor::color('reset')/eg;
+ s{\%C(?:\(([^()]*)\))?}{
+ "$1"
+ ? Term::ANSIColorx::ColorNicknames::color("$1")
+ : Term::ANSIColorx::ColorNicknames::color('reset')
+ }eg;
}
$_
View
2  lib/Term/ReadLine/CLISH/Message/Debug.pm
@@ -6,7 +6,7 @@ use common::sense;
extends 'Term::ReadLine::CLISH::Message';
-has qw(+format default) => "%% %C(black)DEBUG %s%C";
+has qw(+format default) => "%% %C(coal)DEBUG %s%C";
has qw(+msg default) => sub {
my $e = $@;
$e =~ s/\s+at\s+\(eval\s+\d+\)\s+line \d+\.//;
Please sign in to comment.
Something went wrong with that request. Please try again.