view release on metacpan or search on metacpan
lib/App/Spec.pm view on Meta::CPAN
my $appname = $self->name;
my $abstract = $self->abstract // '';
my $title = $self->title;
my ($options, $parameters, $subcmds) = $self->_gather_options_parameters($cmds);
my $header = $colored->(['bold'], "$appname - $title");
my $usage = <<"EOM";
$header
$abstract
EOM
my $body = '';
my $usage_header = $colored->([qw/ bold /], "Usage:");
$usage .= "$usage_header $appname";
$usage .= " @$cmds" if @$cmds;
if (keys %$subcmds) {
my $maxlength = 0;
my @table;
my $usage_string = "<subcommands>";
my $header = "Subcommands:";
if ($highlights{subcommands}) {
$colored->([qw/ bold red /], $usage_string);
$colored->([qw/ bold red /], $header);
}
else {
$colored->([qw/ bold /], $header);
}
$usage .= " $usage_string";
$body .= "$header\n";
my %keys;
lib/App/Spec.pm view on Meta::CPAN
my $highlight = $highlights{parameters}->{ $name };
push @highlights, $highlight ? 1 : 0;
my $summary = $param->summary;
my $param_usage_header = $param->to_usage_header;
if ($highlight) {
$colored->([qw/ bold red /], $param_usage_header);
}
$usage .= " " . $param_usage_header;
my ($req, $multi) = (' ', ' ');
if ($param->required) {
$req = "*";
lib/App/Spec.pm view on Meta::CPAN
push @table, ['', ' ', ' ', $_] for map { s/^ +//; $_ } @lines[1 .. $#lines];
if (length $name > $maxlength) {
$maxlength = length $name;
}
}
my $parameters_string = $colored->([qw/ bold /], "Parameters:");
$body .= "$parameters_string\n";
my @lines = $self->_output_table(\@table, [$maxlength]);
my $lines = $self->_colorize_lines(\@lines, \@highlights, $colored);
$body .= $lines;
}
lib/App/Spec.pm view on Meta::CPAN
my @lines = split m/\n/, $summary;
push @table, [$string, $req, $multi, ($lines[0] // '') . $flags];
push @table, ['', ' ', ' ', $_ ] for map { s/^ +//; $_ } @lines[1 .. $#lines];
}
my $options_string = $colored->([qw/ bold /], "Options:");
$body .= "\n$options_string\n";
my @lines = $self->_output_table(\@table, [$maxlength]);
my $lines = $self->_colorize_lines(\@lines, \@highlights, $colored);
$body .= $lines;
}
lib/App/Spec.pm view on Meta::CPAN
my ($self, $lines, $highlights, $colored) = @_;
my $output = '';
for my $i (0 .. $#$lines) {
my $line = $lines->[ $i ];
if ($highlights->[ $i ]) {
$colored->([qw/ bold red /], $line);
}
$output .= $line;
}
return $output;
}
view release on metacpan or search on metacpan
bin/spoor_installer view on Meta::CPAN
use v5.10;
use Term::ANSIColor;
use App::Spoor::Installer;
print color('bold blue');
print "Welcome to the Spoor installer\n";
print color('reset');
my ($login_log_path, $access_log_path, $error_log_path, $api_identifier, $api_secret);
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
share/res/css/bootstrap-responsive.css view on Meta::CPAN
text-shadow: none;
}
.nav-collapse .nav > li > a,
.nav-collapse .dropdown-menu a {
padding: 9px 15px;
font-weight: bold;
color: #777777;
-webkit-border-radius: 3px;
-moz-border-radius: 3px;
border-radius: 3px;
}
view release on metacpan or search on metacpan
lib/App/Syndicator/Message.pm view on Meta::CPAN
}
}
# should really be in a view.
method render_title {
return ($self->is_read ? '' : '<bold>[NEW] </bold>')
. ($self->star ? '<bold>[*] </bold>' : '')
. $self->title;
}
}
view release on metacpan or search on metacpan
lib/App/Sysadmin/Log/Simple/UDP.pm view on Meta::CPAN
carp "Couldn't get a socket: $!" unless $sock;
if ($self->{udp}->{irc}) {
my %irc = (
normal => "\x0F",
bold => "\x02",
underline => "\x1F",
white => "\x0300",
black => "\x0301",
blue => "\x0302",
green => "\x0303",
lib/App/Sysadmin/Log/Simple/UDP.pm view on Meta::CPAN
lightpurple => "\x0313",
grey => "\x0314",
lightgrey => "\x0315",
);
my $ircline = $irc{bold} . $irc{green} . '(LOG)' . $irc{normal}
. ' ' . $irc{underline} . $irc{lightblue} . $self->{user} . $irc{normal}
. ': ' . $logentry . "\r\n";
print $sock $ircline;
}
else {
view release on metacpan or search on metacpan
bin/tacochan view on Meta::CPAN
background: #3b4653 !important;
}
table td.name {
width: 150px;
font-weight: bold;
}
div.docs {
margin: 2% auto 0 auto;
padding: 20px 0 5%;
view release on metacpan or search on metacpan
lib/App/Tarotplane/UI.pm view on Meta::CPAN
sub draw_card {
my $self = shift;
my $str = shift;
my $bold = shift;
# Make room for the box borders and a single whitespace on each side.
my $linemax = getmaxx($self->{CardWin}) - 4;
$self->{CardStr} = $str if defined $str;
$columns = $linemax;
my $text = wrap('', '', $self->{CardStr});
if (defined $bold) {
attrset($self->{CardWin}, $bold ? A_BOLD : A_NORMAL);
}
erase($self->{CardWin});
box($self->{CardWin}, 0, 0);
lib/App/Tarotplane/UI.pm view on Meta::CPAN
=head2 $ui->update()
Updates screen with any new drawings. Should be called to display the results
of any draw method.
=head2 $ui->draw_card([$str, $bold])
Draws a new card displaying $str, automatically performing any text wrapping
necessary to fit in the card. If $bold is supplied and true, the drawn card
will be bold.
update() needs to be called to push the drawing to the screen.
If $str and/or $bold are not supplied, draw_card()
will use whatever was used on a previous call to draw_card().
=head2 $ui->draw_info([$str])
Draws an info bar at the bottom of the screen containing $str.
view release on metacpan or search on metacpan
A standard input page-file might look like this:
Title: My page title.
Format: textile
----
This is a textile page. It has **bold** text!
When this page is rendered the Textile plugin is created and it is then called
like so:
if ( $plugin->available() )
view release on metacpan or search on metacpan
t/02_basic.t view on Meta::CPAN
{
open my $IN, '<', \"\e[31mfoo\033[1;32mbar\033[0m";
local *STDIN = *$IN;
stdout_like {
App::Term2HTML->run;
} qr|<style>[^<]+</style>\n<pre><span class="red">foo</span><span class="bold green">bar</span></pre>|;
close $IN;
}
{
open my $IN, '<', \"\e[31mfoo\033[1;32mbar\033[0m";
local *STDIN = *$IN;
stdout_is {
App::Term2HTML->run('--inline-style');
} qq|<pre><span style="color: #f33;">foo</span><span style="font-weight: bold; color: #2c2;">bar</span></pre>\n|;
close $IN;
}
done_testing;
view release on metacpan or search on metacpan
script/term-terminfo view on Meta::CPAN
{ type => "str", value => "\e[P", var => "delete_character" },
{ type => "str", value => "\e[M", var => "delete_line" },
{ type => "str", value => "\e(0", var => "enter_alt_charset_mode" },
{ type => "str", value => "\e[?7h", var => "enter_am_mode" },
{ type => "str", value => "\e[5m", var => "enter_blink_mode" },
{ type => "str", value => "\e[1m", var => "enter_bold_mode" },
{ type => "str", value => "\e[?1049h", var => "enter_ca_mode" },
{ type => "str", value => "\e[2m", var => "enter_dim_mode" },
{ type => "str", value => "\e[4h", var => "enter_insert_mode" },
{ type => "str", value => "\e[3m", var => "enter_italics_mode" },
{ type => "str", value => "\e[7m", var => "enter_reverse_mode" },
view release on metacpan or search on metacpan
bin/test-generator-index view on Meta::CPAN
cursor: pointer;
}
.coverage-badge {
padding: 2px 6px;
border-radius: 4px;
font-weight: bold;
color: white;
font-size: 0.9em;
}
.badge-good { background-color: #4CAF50; }
.badge-warn { background-color: #FFC107; }
.badge-bad { background-color: #F44336; }
.summary-row {
font-weight: bold;
background-color: #f0f0f0;
}
td.positive { color: green; font-weight: bold; }
td.negative { color: red; font-weight: bold; }
td.neutral { color: gray; }
/* Show cursor points on the headers to show that they are clickable */
th { background-color: #f2f2f2; cursor: pointer; }
th.sortable {
cursor: pointer;
bin/test-generator-index view on Meta::CPAN
color: #aaa; /* dimmed for inactive */
font-weight: normal;
}
th .arrow.active {
color: #000; /* dark for active */
font-weight: bold;
}
.sparkline {
display: inline-block;
vertical-align: middle;
}
bin/test-generator-index view on Meta::CPAN
color: #666;
}
.new-failure {
background: #c00;
color: #fff;
font-weight: bold;
padding: 2px 6px;
border-radius: 4px;
font-size: 0.85em;
}
.notice {
bin/test-generator-index view on Meta::CPAN
margin: 10px 0;
border-radius: 4px;
font-size: 0.95em;
}
.notice strong {
font-weight: bold;
}
.notice.perl-version-cliff {
background-color: #fff3cd; /* soft amber */
border: 1px solid #ffeeba;
color: #856404;
bin/test-generator-index view on Meta::CPAN
labels: {
boxWidth: 12,
padding: 10,
font: {
size: 12,
weight: 'bold'
}
}
}, tooltip: {
callbacks: {
label: function(context) {
bin/test-generator-index view on Meta::CPAN
border: 1px solid var(--border);
}
/* Label styling */
.suggest-label {
font-weight: bold;
margin-bottom: 4px;
}
/* Ensure the test code block inherits readable colors */
.suggested-test pre {
bin/test-generator-index view on Meta::CPAN
margin: 0.2em 0;
}
.mutant-details summary {
cursor: pointer;
font-weight: bold;
}
.lcsaj-dot {
color: #5555ff;
font-size: 10px;
view release on metacpan or search on metacpan
lib/App/TimeClock/Daily/HtmlPrinter.pm view on Meta::CPAN
table { border-collapse: collapse; width: 80ex; }
th, td { margin:0; border:1px solid #000;padding:0.2em; }
caption { margin-top: 1em; }
tr, caption { text-align:left; }
.totals { border: 2px solid #000; background: #9cf; width: 40ex; padding: 0.5em;}
.totals, caption { font-size: 110%; font-weight: bold; }
th { background: #58b; color: #fff; }
tr:nth-child(even) td { background: #dfe; }
tr:nth-child(odd) td { background: #def; }
th.N, td.N { width: 10%; text-align: right; }
</style></head><body><h1>$title</h1>
view release on metacpan or search on metacpan
lib/App/TimeTracker/Utils.pm view on Meta::CPAN
our @EXPORT = qw();
our @EXPORT_OK = qw(pretty_date now error_message warning_message);
our %EXPORT_TAGS = ( all => \@EXPORT_OK );
sub error_message {
_message( 'bold red', @_ );
}
sub warning_message {
_message( 'bold yellow', @_ );
}
sub _message {
my ( $color, $message, @params ) = @_;
view release on metacpan or search on metacpan
bin/todo.pl view on Meta::CPAN
return $primap{$pri} || $pri;
}
sub priority_to_color {
my $pri = priority_from_string(shift);
my @colormap = ('blue', 'blue', 'green', 'red', 'red bold');
return $colormap[$pri - 1];
}
=head2 args_to_task
view release on metacpan or search on metacpan
&usage if !$File ;
my $wioz = App::WIoZ->new(
font_min => 18, font_max => 64,
filename => "testoutput",
#set_font => 'DejaVuSans,normal,bold',
basecolor => '226666'); # violet
#basecolor => '084A93'); # bleu
#basecolor => '29872F'); # vert
if (-f $File) {
view release on metacpan or search on metacpan
static/index.css view on Meta::CPAN
.level1 > span.name {
font-size: 150%;
}
.level2 > span.name {
font-weight: bold;
display: block;
}
.level2 {
display: inline-block;
view release on metacpan or search on metacpan
lib/App/Widget/ChartDirector.pm view on Meta::CPAN
sub sym {
&App::sub_entry if ($App::trace);
my ($self, $series, $symbols) = @_;
my $idx = $series % ($#$symbols + 1);
my $symboldef = $symbols->[$idx];
&App::sub_exit($symboldef->{symbol}, $symboldef->{size}) if ($App::trace);
return($symboldef->{symbol}, $symboldef->{size});
}
##Add a legend box at (400, 100)
#$c->addLegend(400, 100);
##Add a stacked bar layer and set the layer 3D depth to 8 pixels
view release on metacpan or search on metacpan
lib/App/Wx/PodEditor/Actions/Format.pm view on Meta::CPAN
sub format_Bold {
my ($self,$event) = @_;
my $edit = $self->_editor;
$edit->bold;
}
sub format_Italic {
my ($self,$event) = @_;
view release on metacpan or search on metacpan
lib/App/XUL.pm view on Meta::CPAN
=begin html
<pre>
MyApp.app/
Contents/
<span style="color:blue;font-weight:bold">Info.plist</span>
Frameworks/
XUL.framework/
<i>The XUL Mac framework</i>
MacOS
<span style="color:blue;font-weight:bold">start.pl</span> (Perl-Script)
Resources
<span style="color:blue;font-weight:bold">application.ini</span>
<span style="color:blue;font-weight:bold">MyApp.icns</span>
chrome/
<span style="color:blue;font-weight:bold">chrome.manifest</span>
content/
<span style="color:blue;font-weight:bold">AppXUL.js</span>
<span style="color:blue;font-weight:bold">myapp.xul</span>
defaults/
preferences/
<span style="color:blue;font-weight:bold">prefs.js</span>
perl/
server/
<span style="color:blue;font-weight:bold">server.pl</span>
modules/
<i>All Perl modules the server depends on</i>
extensions/
updates/
0/
view release on metacpan or search on metacpan
lib/App/ZFSCurses/UI/Datasets.pm view on Meta::CPAN
my $header = $main->add(
'header', 'Label',
-text => $text->title_datasets(),
-textalignment => 'left',
-bold => 1,
-fg => 'white',
-bg => 'blue',
-y => 0,
-width => -1,
-paddingspaces => 1,
lib/App/ZFSCurses/UI/Datasets.pm view on Meta::CPAN
$footer = $main->add(
'footer', 'Label',
-text => $text->footer(),
-textalignment => 'left',
-bold => 1,
-bg => 'black',
-fg => 'white',
-y => -1,
-width => -1,
-paddingspaces => 1,
view release on metacpan or search on metacpan
lib/App/ZofCMS.pm view on Meta::CPAN
=head1 AUTHOR
=for html <div style="display: table; height: 91px; background: url(http://zoffix.com/CPAN/Dist-Zilla-Plugin-Pod-Spiffy/icons/section-author.png) no-repeat left; padding-left: 120px;" ><div style="display: table-cell; vertical-align: middle;">
=for html <span style="display: inline-block; text-align: center;"> <a href="http://metacpan.org/author/ZOFFIX"> <img src="http://www.gravatar.com/avatar/328e658ab6b08dfb5c106266a4a5d065?d=http%3A%2F%2Fwww.gravatar.com%2Favatar%2F627d83ef9879f31bda...
=for html </div></div>
=head1 LICENSE
view release on metacpan or search on metacpan
ansiecho Follow the -CYS -F ' %s ' Yellow Brick Road
Option **-C** and **-F** can be used repeatedly, and they will take
effect in the reverse order of their appearance.
Next command show argument `A` in underline/bold with blinking red
arrow.
ansiecho -cRF -f'->%s' -cUD A B C
Next one does the same thing for all arguments.
with other special effects :
N None
Z 0 Zero (reset)
D 1 Double strike (boldface)
P 2 Pale (dark)
I 3 Italic
U 4 Underline
F 5 Flash (blink: slow)
Q 6 Quick (blink: rapid)
view release on metacpan or search on metacpan
lib/App/ccdiff.pm view on Meta::CPAN
exit 0;
} # pod_nroff
# Color initialization
for ($old_color, $new_color, $rev_color) {
s/^(.*)[ _]bold$/bold $1/i;
s/^bold_/bold /i;
}
my %clr = map { $_ => color (s{^(.*)[ _]bold$}{bold $1}ir =~
s{^bold[ _]}{bold }ir) }
map {( $_, "on_$_", "bold $_" )}
qw( red green blue black white cyan magenta yellow );
$clr{$_} //= color ($_) for tac_colors ();
$no_colors and $clr{$_} = "" for keys %clr;
$clr{none} = $clr{on_none} = "";
lib/App/ccdiff.pm view on Meta::CPAN
$clr_grn = $clr{$new_color};
$clr_rev = $clr{$rev_color};
$clr_dbg = $opt_r && exists $clr{"on_$rc{verbose}"} ? $clr{"on_$rc{verbose}"} : $clr{$rc{verbose}};
$reset = $no_colors ? "" : RESET;
$bg_old = $clr{$rc{bg_old} || ($opt_r ? "on_$old_color" =~ s/bold //ir :
"on_$rev_color" =~ s/bold //ir)};
$bg_new = $clr{$rc{bg_new} || ($opt_r ? "on_$new_color" =~ s/bold //ir :
"on_$rev_color" =~ s/bold //ir)};
$clr_old = $opt_r ? $clr_rev . $bg_old : $clr_red . $bg_old;
$clr_new = $opt_r ? $clr_rev . $bg_new : $clr_grn . $bg_new;
$opt_s and ($clr_new, $clr_old) = ($clr_old, $clr_new);
# Indicators
if ($opt_a) {
lib/App/ccdiff.pm view on Meta::CPAN
=item --reverse -r
Reverse/invert the foreground and background for the colored indicators.
If the foreground color has C<bold>, it will be stripped from the new background
color.
=item --swap -s
Swap the colors for new and old.
lib/App/ccdiff.pm view on Meta::CPAN
Defines the color to be used for added text. The default is C<green>.
The color C<none> is also accepted and disables this color.
Any color accepted by L<Term::ANSIColor> is allowed. Any other color will
result in a warning. This option can include C<bold> either as prefix or
as suffix.
This option may also be specified as
new-color
lib/App/ccdiff.pm view on Meta::CPAN
Defines the color to be used for deleted text. The default is C<red>.
The color C<none> is also accepted and disables this color.
Any color accepted by L<Term::ANSIColor> is allowed. Any other color will
result in a warning. This option can include C<bold> either as prefix or
as suffix.
This option may also be specified as
old-color
lib/App/ccdiff.pm view on Meta::CPAN
C<white>.
The color C<none> is also accepted and disables this color.
Any color accepted by L<Term::ANSIColor> is allowed. Any other color will
result in a warning. The C<bold> attribute is not allowed.
This option may also be specified as
bg-color
bg_color
view release on metacpan or search on metacpan
devscripts/bench view on Meta::CPAN
undef,
{
'perl (--help)' => [$^X, "$Bin/../bin/chalk", "--help"],
'node (--help)' => [$node_chalk, "--help"],
'perl (red bold str)' => [$^X, "$Bin/../bin/chalk", "red","bold","str"],
'node (red bold str)' => [$node_chalk, "red", "bold", "str"],
'perl (100_000 lines)' => sub {
open my($fh), "| $^X $Bin/../bin/chalk red bold" or die $!;
for (1..100_000) {
print $fh "foo\n";
}
close $fh or die $!;
},
'node (100_000 lines)' => sub {
open my($fh), "| $node_chalk red bold" or die $!;
for (1..100_000) {
print $fh "foo\n";
}
close $fh or die $!;
},
view release on metacpan or search on metacpan
}
}
my $NN = chr(27) . "[0m"; # normal
$NN = "" if $ON_WINDOWS or !(-t STDERR); # -t STDERR: is it a terminal?
my $BB = chr(27) . "[1m"; # bold
$BB = "" if $ON_WINDOWS or !(-t STDERR);
my $script = basename $0;
my $brief_usage = "
cloc -- Count Lines of Code
my $n_modified = 0;
my $n_added = 0;
my $n_deleted = 0;
my @min_sdiff = ();
my $NN = chr(27) . "[0m"; # normal
my $BB = chr(27) . "[1m"; # bold
my @sdiffs = sdiff( \@lines_1, \@lines_2 );
foreach my $entry (@sdiffs) {
my ($out_1, $out_2) = ('', '');
if ($entry->[0] eq 'u') {
view release on metacpan or search on metacpan
lib/App/colorxform.pm view on Meta::CPAN
elsif ($name eq 'yellow' ) { return 33 }
elsif ($name eq 'blue' ) { return 34 }
elsif ($name eq 'magenta' ) { return 35 }
elsif ($name eq 'cyan' ) { return 36 }
elsif ($name eq 'white' || $name eq 'grey' || $name eq 'gray') { return 37 }
elsif ($name =~ /\A(bold|bright) black\z/ ) { return 90 }
elsif ($name =~ /\A(bold|bright) red\z/ ) { return 91 }
elsif ($name =~ /\A(bold|bright) green\z/ ) { return 92 }
elsif ($name =~ /\A(bold|bright) yellow\z/ ) { return 93 }
elsif ($name =~ /\A(bold|bright) blue\z/ ) { return 94 }
elsif ($name =~ /\A(bold|bright) magenta\z/ ) { return 95 }
elsif ($name =~ /\A(bold|bright) cyan\z/ ) { return 96 }
elsif ($name =~ /\A(bold|bright) white\z/ ) { return 97 }
undef;
}
sub _color_name_to_bg_code {
my $code = _color_name_to_fg_code(@_);
lib/App/colorxform.pm view on Meta::CPAN
replace some colors with another, per your specification.
An example, put this in your `~/.config/colorxform.conf`:
[profile=ledger]
fg_transforms = {"blue":"#18b2b2", "red":"bold red"}
then:
% ledger -f myledger.dat --color --force-color balance | colorxform -P ledger
lib/App/colorxform.pm view on Meta::CPAN
default => {},
description => <<'_',
List of foreground colors to replace with other colors. You can specify color
code using RGB code (e.g. `#123456`) or color names like those recognized by
<pm:Term::ANSIColor> (e.g. `blue` or `bold blue`).
_
},
bg_transforms => {
schema => 'hash*',
default => {},
description => <<'_',
List of background colors to replace with other colors. You can specify color
using RGB code (e.g. `#123456`) or color names like those recognized by
<pm:Term::ANSIColor> (e.g. `blue` or `bold blue`).
_
},
},
};
lib/App/colorxform.pm view on Meta::CPAN
replace some colors with another, per your specification.
An example, put this in your C<~/.config/colorxform.conf>:
[profile=ledger]
fg_transforms = {"blue":"#18b2b2", "red":"bold red"}
then:
% ledger -f myledger.dat --color --force-color balance | colorxform -P ledger
lib/App/colorxform.pm view on Meta::CPAN
=item * B<bg_transforms> => I<hash> (default: {})
List of background colors to replace with other colors. You can specify color
using RGB code (e.g. C<#123456>) or color names like those recognized by
L<Term::ANSIColor> (e.g. C<blue> or C<bold blue>).
=item * B<fg_transforms> => I<hash> (default: {})
List of foreground colors to replace with other colors. You can specify color
code using RGB code (e.g. C<#123456>) or color names like those recognized by
L<Term::ANSIColor> (e.g. C<blue> or C<bold blue>).
=back
Returns an enveloped result (an array).
view release on metacpan or search on metacpan
lib/App/colourhexdump/DefaultColourProfile.pm view on Meta::CPAN
=head1 SYNOPSIS
This is the default colour profile.
\r => black on red '_'
\n => bold bright blue '_'
" " => blue '_'
\t => bold bright blue on yellow '_'
alphanumeric => white $char
nonprintable => red '.'
everything else => yellow $char
Invocation:
view release on metacpan or search on metacpan
inc/Pod/Markdown.pm view on Meta::CPAN
sub interior_sequence {
my ($seq_command, $seq_argument, $pod_seq) = @_[1..3];
my %interiors = (
'I' => sub { return '_' . $_[1] . '_' }, # italic
'B' => sub { return '__' . $_[1] . '__' }, # bold
'C' => sub { return '`' . $_[1] . '`' }, # monospace
'F' => sub { return '`' . $_[1] . '`' }, # system path
'S' => sub { return '`' . $_[1] . '`' }, # code
'E' => sub {
my $charname = $_[1];
view release on metacpan or search on metacpan
script/cpanmw view on Meta::CPAN
goto &{ $org_m->{_diag} }
unless $caller =~ s/^App::cpanminus::script:://;
### $caller
my @arg = @_;
if ( $caller eq 'diag_ok' ) {
$arg[1] = colored( $arg[1], 'bold green' );
}
elsif ( $caller eq 'diag_fail' ) {
$arg[1] = colored( $arg[1], 'bold red' );
}
elsif ( $caller eq 'diag_progress' ) {
$arg[1]
=~ s/^(Fetching|Configuring|Building(?: and testing)?)/colored($1,'cyan')/e;
}
elsif ( $arg[1] =~ /^-->/ ) {
$arg[1]
=~ s/(?<=--> Working on )(\S+)/colored( $1, 'bold yellow' )/e;
}
elsif ( $arg[1] =~ /^==>/ ) {
$arg[1] =~ s/(Found dependencies)/colored($1,'bold magenta')/e;
}
elsif ( $arg[1] =~ s/^(Successfully \S+)(\s+\S+)/colored($1,'bold green') . colored($2, 'bold yellow')/e )
{
}
elsif ( $_[0]->{verbose} ) {
$arg[1] = colored( $arg[1], 'cyan' );
}