Result:
found more than 644 distributions - search limited to the first 2001 files matching your query
( run in 0.650 )
App-CSV2Chart
view release on metacpan or search on metacpan
lib/App/CSV2Chart/API/ToXLSX.pm view on Meta::CPAN
my $csv = Text::CSV->new;
my $workbook = Excel::Writer::XLSX->new($fn);
my $headings = $csv->getline($fh);
my $worksheet = $workbook->add_worksheet();
my $bold = $workbook->add_format( bold => 1 );
# Add the worksheet data that the charts will refer to.
my $data = [ map { [] } @$headings ];
while ( my $row = $csv->getline($fh) )
{
lib/App/CSV2Chart/API/ToXLSX.pm view on Meta::CPAN
{
push @{ $data->[$i] }, $v;
}
}
$worksheet->write( 'A1', $headings, $bold );
$worksheet->write( 'A2', $data );
my $w = @$headings;
my $h = @{ $data->[0] };
App-CamelPKI
view release on metacpan or search on metacpan
root/src/css/perso.css view on Meta::CPAN
#menu dt {
cursor: pointer;
<!--color: #fff;--!>
text-align: center;
text-decoration: none;
font-weight: bold;
font-size: 15px;
<!--background: #000;--!>
border: 1px solid #B4B079;
}
#menu dd {
root/src/css/perso.css view on Meta::CPAN
a { color: black; }
a:link { text-decoration: none; }
a:visited { text-decoration: none; }
a:hover { text-decoration: none; }
a:active { text-decoration: none; }
a.bold { font-weight: bold; }
a.info:link { cursor:none; border-bottom: 1px dotted #333 }
a.info:visited { cursor:none; border-bottom: 1px dotted #333 }
a.info:hover { cursor:help; text-decoration: none}
a.info:active { cursor:help; text-decoration: none}
root/src/css/perso.css view on Meta::CPAN
#flashMessage, .error, .error_message {
color:#000000;
font-size: 13px;
margin: 8px 0px;
font-weight: bold;
}
.error_message {
clear: both;
}
.error em {
root/src/css/perso.css view on Meta::CPAN
vertical-align: bottom;
}
div.required {
clear: both;
color:#222;
font-weight:bold;
}
div.optional {
clear: both;
color:#555;
}
App-Caoliu
view release on metacpan or search on metacpan
t/sample/sample.html view on Meta::CPAN
h3{font-weight:normal}
h2 a,h3 a{color:#000}
h4{margin:20px 0 10px;font-size:1.1em}
textarea,input,select{font:12px Arial;padding:1px 0px 1px 0px;vertical-align:middle;margin-bottom:1px}
.c{clear:both;height:0;font:0/0 Arial;}
.b{font-weight:bold}
.tal{text-align:left}
.tac{text-align:center}
.tar{text-align:right}
.fr{float:right}
.fl{float:left}
t/sample/sample.html view on Meta::CPAN
.t2{border-top:#A6CBE7 1px solid;margin:0px auto 5px;}
.t3{margin:auto}
.t4{padding:1px 0 1px 1px}
.h{border-bottom:4px solid #dbecF4;background:#B1D3E0;text-align:left;color:#004c7d;padding:5px 7px 3px 7px;}
.h span{font-weight:normal;}
.h h2{font-weight:bold}
.h a{font-family:Arial;color:#004c7d}
.h span a,.h span{color:#5599bb;}
.h a.a2{margin-left:12px;}
.tr1 th{padding:5px 10px;text-align:left;vertical-align:top;font-weight:normal;}
.tr1 td.td1{border:1px solid #D4EFF7;}
t/sample/sample.html view on Meta::CPAN
.t{padding:1px}
.pages{margin:3px 0;font:11px/12px Tahoma}
.pages *{vertical-align:middle;}
.pages a{padding:1px 4px 1px;border:1px solid #A6CBE7;margin:0 1px 0 0;text-align:center;text-decoration:none;font:normal 12px/14px verdana;}
.pages a:hover{border:#659b28 1px solid;background:#f3f8ef;text-decoration:none;color:#004c7d}
.pages input{margin-bottom:0px;border:1px solid #659b28;height:15px;font:bold 12px/15px Verdana;padding-bottom:1px;padding-left:1px;margin-right:1px;color:#659b28;}
</style>
</head><body>
<div id="header">
<table cellspacing="0" cellpadding="0" align="center" width="100%">
<tr>
t/sample/sample.html view on Meta::CPAN
<b><a href="../../../index.php">²ÝÁñÉç…^</a> » <a href="../../../thread0806.php?fid=15">†ÖÞÓдaÔ„“…^</a> » [MP4/1.09GB]DV-1194 Ãô¸ÐÉíówÖ±¶ßà ÖÐÎ÷Àï²Ë(ÖÐÎÄ×ÖÄ»)</b></td><td align="right">
<b><a href="../../../read.php?fid=15&tid=951593&toread=1">ÞDµ½„Ó‘B¾Wí“</a>
</b></td></tr><tr><td height="5" colspan="2"></td></tr></table></div>
<div class="t3"><table width="100%" align="center" cellspacing="0" cellpadding="0">
<tr><td align="left"><div class="pages"><a href="../../../read.php?tid=951593&page=1" style="font-weight:bold">«</a><b> 1 </b><a href="../../../read.php?tid=951593&page=2">2</a><a href='../../../read.php?tid=951593&page=2' style='font-weight:bo...
</td></tr>
</table></div>
t/sample/sample.html view on Meta::CPAN
<span><a class="s3" title="»Øʹ˘Ç" style="cursor:pointer;" onclick="postreply('»Ø 9˜Ç(b4321)µÄÌû×Ó');">9 ˜Ç</a></span>
</div></th></tr></table></div>
<div class="t3"><table cellspacing="0" cellpadding="0" width="100%" align="center">
<tr><td align="left"><div class="pages"><a href="../../../read.php?tid=951593&page=1" style="font-weight:bold">«</a><b> 1 </b><a href="../../../read.php?tid=951593&page=2">2</a><a href='../../../read.php?tid=951593&page=2' style='font-weight:bo...
<td valign="center" align="right">
</td></tr>
<tr><td align="left"><br />.:. <b><a href="index.php">²ÝÁñÉç…^</a> -> <a href="../../../thread0806.php?fid=15">†ÖÞÓдaÔ„“…^</a></b></td>
</tr></table></div>
App-Changelog2x
view release on metacpan or search on metacpan
bin/changelog2x view on Meta::CPAN
<a href="http://perl.org" class="changelog-html-a">perl.org</a>
The following content (which already has a C<class> attribute):
<xhtml:span class="bold">Bold Span</xhtml:span>
yields:
<span class="bold changelog-html-span">Bold Span</span>
No other foreign XML tags are copied over, at present. Allowance has been
made for future extension with information such as version-control system
specification, hosting information, Dublin Core metadata, etc.
App-Chart
view release on metacpan or search on metacpan
lib/App/Chart/Pango/Ex/ANSItoMarkup.pm view on Meta::CPAN
package App::Chart::Pango::Ex::ANSItoMarkup;
use 5.008;
use strict;
use warnings;
my %shorthand = ('<span weight=bold' => 'b',
'<span style=italic' => 'i',
'<span strikethrough=true' => 's',
'<span underline=single' => 'u');
my @colour = ('black',
lib/App/Chart/Pango/Ex/ANSItoMarkup.pm view on Meta::CPAN
foreach my $num (split /;/, $3) {
if ($num == 0) {
@$attr = ();
} elsif ($num == 1) {
# bold
$attr->[_A_WEIGHT] = 'weight=bold';
} elsif ($num == 2) {
# faint, or dark, or something
$attr->[_A_WEIGHT] = 'weight=light';
lib/App/Chart/Pango/Ex/ANSItoMarkup.pm view on Meta::CPAN
} elsif ($num == 21) {
# double underline
$attr->[_A_UNDERLINE] = 'underline=double';
} elsif ($num == 22) {
# normal colour/intensity, ie. neither bold nor faint
$attr->[_A_WEIGHT] = undef;
} elsif ($num == 23) {
# not italic
$attr->[_A_STYLE] = undef;
App-Cheats
view release on metacpan or search on metacpan
GREY='\033[00;37m'
# View color ansi escapes with less (like Vim)
less -R file
# Make xterm text color bold
BOLD='\033[1m'
# Make xterm text color blink
BLINK='\033[5m'
# JQuery Tooltip CSS
#/* ------------------- Tooltip ------------------------- */
#.ui-tooltip {
# padding: 10px 20px;
# border-radius: 20px;
# font: bold 14px"Helvetica Neue", Sans-Serif;
# box-shadow: 0 0 7px black;
# background-color: white;
# width: fit-content;
# position: absolute;
#}
# Excel - Simple: Check for errors openning an excel file and write to a cell
# Also rename the worksheet
perl -MExcel::Writer::XLSX -E "$wb = Excel::Writer::XLSX->new('my.xlsx') or die qq($!\n); $ws = $wb->add_worksheet('my'); $ws->write('A1', 'Hello Excel'); $wb->close"
# Excel - Simple: Add a format to make a cell bold
perl -MExcel::Writer::XLSX -E "$wb = Excel::Writer::XLSX->new('my.xlsx') or die qq($!\n); $ws = $wb->add_worksheet('my'); $format = $wb->add_format; $format->set_bold; $ws->write(0, 0, 'Hello Excel', $format); $wb->close"
# Create a spreadsheet/excel with formulas using perl (only on lnxbr42)
perl -MExcel::Writer::XLSX -le '
$wb=Excel::Writer::XLSX->new("new.xlsx");
$ws=$wb->add_worksheet;
# Notebook example 1. multiple pages/tabs (PTk)
perl -MTk -MTk::NoteBook -le '$nb=MainWindow->new->NoteBook->pack(-fill => "both", -expand => 1); @pgs = map { $nb->add("page$_", -label => "Page $_") } 0..5; $pgs[0]->Button(-text => "Button $_")->pack(-fill => "both") for 1..5; $pgs[1]->Label(-text...
# Notebook example 2. multiple pages/tabs (PTk)
# Command when clicking a page/tab
perl -MTk -MTk::NoteBook -le '$nb=MainWindow->new->NoteBook(-font => "Courier 14 bold")->pack(-fill => "both", -expand => 1); @pgs = map { $nb->add("page$_", -label => "Page $_") } 0..20; $pgs[0]->Button(-text => "Button $_")->pack(-fill => "both") f...
# Notebook example 3. multiple pages/tabs (PTk)
# Page deletion
perl -MTk -MTk::NoteBook -le '$nb=MainWindow->new->NoteBook->pack(-fill => "both", -expand => 1); @pgs = map { $nb->add("page$_", -label => "Page $_") } 0..10; $nb->pagecget("page0", "-state"); $pgs[0]->Button(-text => "Button $_")->pack(-fill => "bo...
#############################################################
## Perl Modules - Tk (Tags)
#############################################################
# Text tags example (PTk)
perl -MTk -le '$t=tkinit->Text->pack; $t->tagConfigure("bold", -font => "Courier 24 bold"); $t->insert("end", "Normal Text\n"); $t->insert("end", "Bold Text\n", "bold"); MainLoop'
# Make select text bold (PTk)
perl -MTk -le '$w=tkinit; $t=$w->Text->pack; $t->tagConfigure("bold", -font => "bold"); $t->insert("end", "A Bunch of text"); $w->Button(-text => "BOLD", -command => sub{$t->tagAdd("bold", "sel.first", "sel.last")} )->pack; MainLoop'
# Check if a selection exists (PTk)
perl -MTk -le '$w=tkinit; $t=$w->Text->pack; $t->tagConfigure("bold", -font => "bold"); $t->insert("end", "A Bunch of text"); $w->Button(-text => "BOLD", -command => sub{$t->tagAdd("bold", "sel.first", "sel.last") if $t->tagRanges("sel")} )->pack; Ma...
#############################################################
## Perl Modules - Tk (Appendix B)
#############################################################
set number
# Vim resource (vimrc) file. other features.
set nowrap
set cursorline
hi CursorLine term=bold cterm=bold guibg=Grey40
set cursorcolumn
# Do not go past the end of the file when searching (Vim)
set nowrapscan
App-Chit
view release on metacpan or search on metacpan
lib/App/Chit/Command/show.pm view on Meta::CPAN
shift( @log ) while @log > $opt->{msg};
for my $x ( @log ) {
if ( $x->{role} eq 'user' ) {
if ( $opt->{colour} ) {
print colored( ['bold cyan'], $x->{content} ), "\n";
}
else {
print "PROMPT: ", $x->{content}, "\n";
}
}
App-Chronicle
view release on metacpan or search on metacpan
t/test-archive-links.t view on Meta::CPAN
# Create some data
#
my %data;
my $link = "/some_blog_post.html";
$data{ 'body' } = "This is **bold**";
$data{ 'link' } = Chronicle::URI->new($link);
$data{ 'date' } = scalar( localtime() );
App-Cinema
view release on metacpan or search on metacpan
root/src/menu/home.tt2 view on Meta::CPAN
<div id="about">
<p><b>What is</b>
</p>
<p>
Welcome to JandC.CO.CC. This website is designed to demo how to use
<span style="font-weight: bold;">Catalyst</span> and <span style="font-weight: bold;">
Moose</span> to build a
secured web application with less SQL, HTML, and JavaScript but more
flexibility and efficiency. <br><br>You can start from
<a href="[% Catalyst.uri_for('/menu/howto') %]">
How-To</a>
App-CmdDirs
view release on metacpan or search on metacpan
lib/App/CmdDirs/Traverser/Base.pm view on Meta::CPAN
next if ! -d $dir;
next if ! $self->test($dir);
# Tell the user what command is going to be run
unless ($quiet) {
print color 'bold green';
print "Performing `$command` in <$dir>\n";
print color 'reset';
}
# Descend into the directory & run the command
App-Codit
view release on metacpan or search on metacpan
lib/App/Codit/Plugins/Exporter.pm view on Meta::CPAN
#converting data
my $art = $self->extGet('Art');
my $l = $self->Label(-font => $options{'font'});
my $f = $l->cget('-font');
my $fntnorm = $widg->fontCompose($f, -slant => 'roman', -weight => 'normal');
my $fntbold = $widg->fontCompose($f, -slant => 'roman', -weight => 'bold');
my $fntbolditalic = $widg->fontCompose($f, -slant => 'italic', -weight => 'bold');
my $fntitalic = $widg->fontCompose($f, -slant => 'italic', -weight => 'normal');
my $linespace = $self->fontMetrics($f, '-linespace');
my $desc = $self->fontMetrics($f, '-descent');
lib/App/Codit/Plugins/Exporter.pm view on Meta::CPAN
my %tags = ();
for ($theme->tagList) {
my $tag = $_;
# print "tag: $tag\n";
my %options = ();
my $bold = $theme->getItem($tag, '-weight');
$bold = 0 unless defined $bold;
my $slant = $theme->getItem($tag, '-slant');
$slant = 0 unless defined $slant;
if ($bold and $slant) {
# print " setting font bold/italic\n";
$options{'-font'} = $fntbolditalic
} elsif ($bold) {
# print " setting font bold\n";
$options{'-font'} = $fntbold
} elsif ($slant) {
# print " setting font italic\n";
$options{'-font'} = $fntitalic
} else {
# print " normal font remains\n";
App-Dapper
view release on metacpan or search on metacpan
--------------
```
## Text
Text elements may be formatted as well. Here are some examples of bold,
italics, code, links, and blockquotes:
Markdown | Result
----------------------------------------|----------------------------------
This is a normal paragraph. | This is a normal paragraph.
This text is `**bold**.` | This text is **bold**.
This text is also `__bold__.` | This text is also **bold**.
This text is `*italicized*.` | This text is *italicized*.
This text is also `_italicized_.` | This text is also _italicized_.
`` `This is some code.` `` | `This is some code.`
Link to `[Mark Benson Portfolio](http://markbenson.io).` | Link to [Mark Benson Portfolio](http://markbenson.io/).
Link to `[Mark Benson Portfolio][ln1].` | Link to [Mark Benson][ln1].
App-Dex
view release on metacpan or search on metacpan
scripts/dex view on Meta::CPAN
}
my %ansicolors = (
ANCHOR => [qw/ green /],
ALIAS => [qw/ bold green /],
TAG => [qw/ bold blue /],
INDENT => [qw/ white on_grey3 /],
COMMENT => [qw/ grey12 /],
COLON => [qw/ bold magenta /],
DASH => [qw/ bold magenta /],
QUESTION => [qw/ bold magenta /],
YAML_DIRECTIVE => [qw/ cyan /],
TAG_DIRECTIVE => [qw/ bold cyan /],
SINGLEQUOTE => [qw/ bold green /],
SINGLEQUOTED => [qw/ green /],
SINGLEQUOTED_LINE => [qw/ green /],
DOUBLEQUOTE => [qw/ bold green /],
DOUBLEQUOTED => [qw/ green /],
DOUBLEQUOTED_LINE => [qw/ green /],
LITERAL => [qw/ bold yellow /],
FOLDED => [qw/ bold yellow /],
DOC_START => [qw/ bold /],
DOC_END => [qw/ bold /],
BLOCK_SCALAR_CONTENT => [qw/ yellow /],
TAB => [qw/ on_blue /],
ERROR => [qw/ bold red /],
EOL => [qw/ grey12 /],
TRAILING_SPACE => [qw/ on_grey6 /],
FLOWSEQ_START => [qw/ bold magenta /],
FLOWSEQ_END => [qw/ bold magenta /],
FLOWMAP_START => [qw/ bold magenta /],
FLOWMAP_END => [qw/ bold magenta /],
FLOW_COMMA => [qw/ bold magenta /],
PLAINKEY => [qw/ bright_blue /],
);
sub ansicolored {
my ($class, $tokens, %args) = @_;
App-DiffXlsText
view release on metacpan or search on metacpan
script/diff-xls-text view on Meta::CPAN
Use like you would use the Unix command B<diff>:
% diff-xls-text [options] <FILE>...
Sample F<old.xlsx> (C<*foo*> marks bolded text):
# sheet 1: en_id
| english | indonesian |
|-----------+----------------|
| boy | anak laki-laki |
App-DocKnot
view release on metacpan or search on metacpan
lib/App/DocKnot/Spin/Text.pm view on Meta::CPAN
# Turns *some text* into <strong>some text</strong>, while trying to be
# careful to avoid other uses of wildcards.
#
# $string - Text to format
#
# Returns: Text with bold replaced with HTML markup.
sub _format_bold {
my ($text) = @_;
$text =~ s{
(^|\s) [*] ( \w .*? \S ) [*] ([,.!?;\s])
}{$1<strong>$2</strong>$3}xmsg;
return $text;
lib/App/DocKnot/Spin/Text.pm view on Meta::CPAN
for (@lines) {
next unless /\S/;
if (_is_bullet $_) {
if (defined $last) {
$self->_output(start($INDENT, 'ul'));
$self->_output(li($INDENT, _format_bold($last)));
}
$last = _remove_bullet($_);
$INDENT = indent $last;
} else {
$last .= "\n$_";
}
}
if (defined $last) {
$self->_output(start($INDENT, 'ul'));
$self->_output(li($INDENT, _format_bold($last)));
}
next;
}
# Check for paragraphs that are entirely numbered lines, and turn them
lib/App/DocKnot/Spin/Text.pm view on Meta::CPAN
next unless /\S/;
my ($number) = /^(\d+)/;
$_ = _remove_number($_);
$INDENT = indent $_;
$self->_output(start($INDENT, 'ol'));
$self->_output(li($INDENT, _format_bold($_), $number));
}
next;
}
# Check for bulletted paragraphs and turn them into lists.
if (_is_bullet $_) {
$_ = _remove_bullet($_);
$INDENT = indent $_;
$self->_output(start($INDENT, 'ul'));
$self->_output(li($INDENT, p(_format_bold($_))));
next;
}
# Check for paragraphs quoted with some character and turn them into
# blockquotes provided they don't have inconsistent indentation.
my $quote = _is_quoted ($_);
if ($quote && !$broken) {
$_ = _remove_prefix($_, $quote);
$INDENT = indent $_;
$self->_output(start($INDENT, 'blockquote', p(_format_bold($_))));
next;
}
# Check for numbered paragraphs and turn them into lists.
my $number = _is_numbered ($_);
lib/App/DocKnot/Spin/Text.pm view on Meta::CPAN
my $contents = _is_contents ($_);
$_ = _remove_number($_);
$INDENT = indent $_;
s%(\n\s*\S)%<br />$1%g if ($broken || $contents);
$self->_output(start($INDENT, 'ol'));
$self->_output(li($INDENT, p(_format_bold($_)), $number));
next;
}
# Check for things that look like description lists and handle them.
# Note that we don't allow indented description lists, because they're
lib/App/DocKnot/Spin/Text.pm view on Meta::CPAN
my $title;
($title, $body) = split ("\n", $body, 2);
push (@title, $title);
}
if ($indent == $INDENT || indent ($body) == $INDENT) {
@title = map { _format_bold($_) } @title;
my $title = join ("<br />\n", @title) . "\n";
$INDENT = indent $body;
$body =~ s%(\n\s*\S)%<br />$1%g if _is_broken $body;
$self->_output(start($indent, 'dl', dt($title)));
$self->_output(start($INDENT, 'dd', p(_format_bold($body))));
next;
}
}
# If the paragraph has inconsistent indentation, we should output it
lib/App/DocKnot/Spin/Text.pm view on Meta::CPAN
if ($broken || (lines ($_) == 1 && !_is_sentence $_)) {
$self->_output(pre(strip_indent($_, $INDENT)));
$self->{pre} = 1;
} else {
$INDENT = $indent;
my $paragraph = p(_format_bold($_));
$self->_output(start($INDENT, 'blockquote', $paragraph));
}
next;
}
lib/App/DocKnot/Spin/Text.pm view on Meta::CPAN
if (!defined $self->{baseline} && !$INDENT) {
$self->{baseline} = $indent;
}
$INDENT = $indent;
s%(\n\s*\S)%<br />$1%g if $broken;
$self->_output(p(_format_bold($_)));
} continue {
$self->{whitespace} = $space;
}
lib/App/DocKnot/Spin/Text.pm view on Meta::CPAN
header) and the last modified time and revision (from the RCS C<Id> string) if
there are no subheadings already. If there's a subheading that contains RCS
identifiers, it will be replaced by a nicely formatted heading generated from
the RCS C<Id> information in the HTML output.
Text marked as C<*bold*> using the standard asterisk notation will be
surrounded by C<< <strong> >> tags, if the asterisks appear to be marking bold
text rather than serving as wildcards or some other function.
App::DocKnot::Spin::Text produces output (at least in the absence of any
lurking bugs) which complies with the XHTML 1.0 Transitional standard. The
input and output character set is assumed to be UTF-8.
App-Dochazka-WWW
view release on metacpan or search on metacpan
share/js/dochazka-www/svg-lib.js view on Meta::CPAN
// scheduled intervals in obj; how is a boolean value "holiday or
// weekend"
var r = '',
fill, i, intvl, begin, bo, end, eo, color;
if (how) {
fill = 'font-weight="bold" fill="transparent"';
} else {
fill = 'fill="black"';
}
r += '<svg width="' + absWidth + '" height="30" ' + svgBoilerPlate + '>';
// draw base rectangle
App-DualLivedList
view release on metacpan or search on metacpan
bin/dual-lived view on Meta::CPAN
my (@matches) = grep( ( $_ eq $d ), @mods );
if (@matches) {
for $d ( CPAN::Shell->expand( "Module", "$d" ) ) {
$print->bold_black( "\n\tmodule: ", $d->id ),
$print->dark_blue( "\tauthor: ", $d->cpan_userid ),
$print->dark_blue( "\tcurrent version: ", $d->cpan_version ),
$print->dark_red( "\tinstalled version: ", $d->inst_version ),
$print->dark_red( "\t", $d->inst_file );
}
$print->dark_magenta("\t@matches is core and is Dual-Lived");
}
else {
for $d ( CPAN::Shell->expand( "Module", $d ) ) {
$print->bold_black( "\n\tmodule: ", $d->id ),
$print->dark_blue( "\tauthor: ", $d->cpan_userid ),
$print->dark_blue( "\tcurrent version is: ", $d->cpan_version ),
$print->dark_red( "\tinstalled version: ", $d->inst_version ),
$print->dark_red( "\t", $d->inst_file ),
;
bin/dual-lived view on Meta::CPAN
sub list {
print "module: ", "\n";
foreach my $mod (@mods) {
for $mod ( CPAN::Shell->expand( "Module", $mod ) ) {
$print->bold_black( $mod->id );
}
}
}
sub update {
App-DuckPAN
view release on metacpan or search on metacpan
lib/App/DuckPAN.pm view on Meta::CPAN
}
sub emit_error {
my ($self, @msg) = @_;
state $prefix = $self->_output_prefix('ERROR', 'red bold');
$self->_print_msg(*STDERR, $prefix, @msg);
}
sub emit_and_exit {
my ($self, $exit_code, @msg) = @_;
state $prefix = $self->_output_prefix('FATAL', 'bright_red bold');
if ($exit_code == 0) { # This is just an info message.
$self->emit_info(@msg);
}
else { # But if it's an unhappy exit
lib/App/DuckPAN.pm view on Meta::CPAN
}
sub emit_notice {
my ($self, @msg) = @_;
state $prefix = $self->_output_prefix('NOTICE', 'yellow bold');
$self->_print_msg(*STDOUT, $prefix, @msg);
}
sub _print_msg {
App-Duppy
view release on metacpan or search on metacpan
lib/App/DeDuppy.pm view on Meta::CPAN
Emmanuel "BHS_error" Peroumalnaik
=item *
Fabrice "pokki" Gabolde
=back
=head1 COPYRIGHT AND LICENSE
App-Egaz
view release on metacpan or search on metacpan
share/circos.conf.tt2 view on Meta::CPAN
fill_color = black
# fractional radius position of chromosome ideogram within image
radius = 0.85r
show_label = no
label_font = condensedbold
label_radius = dims(ideogram,radius) + 0.05r
label_size = 36
label_parallel = yes
App-EventStreamr
view release on metacpan or search on metacpan
share/status/app/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;
}
App-FQStat
view release on metacpan or search on metacpan
lib/App/FQStat/Colors.pm view on Meta::CPAN
our $DefaultColors = {
initializing => 'black on green',
reverse_indicator => 'blue on white',
header_highlight => 'bold white on red',
header_warning => 'bold red on black',
header_normal => 'bold white on black',
status_running => 'black on green',
status_error => 'black on red',
status_hold => 'black on yellow',
status_queued => 'blue on white',
status_fallback => 'black on yellow',
scrollbar_fg => 'black on white',
scrollbar_bg => 'white on black',
user_highlight => 'bold white on blue',
menu_normal => 'bold white on blue',
menu_selected => 'bold white on red',
user_input => "bold red on black",
user_instructions => "bold red on white",
selected_job => "blue on white",
selected_cursor => "black on red",
summary => "bold white on blue",
warning => "red",
};
our $DefaultColorSchemes = {
default => {%$DefaultColors},
contrast => {
header_highlight => 'bold white on red',
header_normal => 'bold white on black',
header_warning => 'bold red on black',
initializing => 'black on green',
menu_normal => 'black on cyan',
menu_selected => 'bold white on red',
reverse_indicator => 'blue on white',
scrollbar_bg => 'red on black',
scrollbar_fg => 'black on red',
selected_cursor => 'black on red',
selected_job => 'black on cyan',
status_error => 'black on red',
status_fallback => 'black on yellow',
status_hold => 'black on yellow',
status_queued => 'bold white on blue',
status_running => 'black on green',
summary => 'bold red on blue',
user_highlight => 'bold red on blue',
user_input => 'bold red on black',
user_instructions => 'bold white on red',
warning => 'red',
},
};
sub get_color {
App-FargateStack
view release on metacpan or search on metacpan
lib/App/FargateStack/Constants.pm view on Meta::CPAN
log4perl.appender.Screen.layout.ConversionPattern = [%d] %m%n
log4perl.appender.Screen.color.DEBUG=magenta
log4perl.appender.Screen.color.INFO=green
log4perl.appender.Screen.color.WARN=yellow
log4perl.appender.Screen.color.ERROR=red
log4perl.appender.Screen.color.FATAL=bold red
log4perl.appender.Screen.color.TRACE=bold white
END_OF_CONF
our @EXPORT = (
######################################################################
# chars
App-Fasops
view release on metacpan or search on metacpan
lib/App/Fasops/Command/xlsx.pm view on Meta::CPAN
for my $bg ( keys %{$bg_of} ) {
$format_of->{indel}->{$bg} = $workbook->add_format(
font => 'Courier New',
size => 10,
bold => 1,
align => 'center',
valign => 'vcenter',
%{ $bg_of->{$bg} },
);
}
App-File-Grepper
view release on metacpan or search on metacpan
lib/App/File/Grepper.pm view on Meta::CPAN
? $ignorecase ? qr/$1/i : qr/$1/
: $ignorecase ? qr/\Q$pat\E/i : qr/\Q$pat\E/;
warn("PAT: $pat\n") if $opts->{debug};
*hilite = ( !$edit && -t STDOUT )
? sub { color('red bold').$_[0].color('reset') }
: sub { $_[0] };
my $filter;
if ( defined $opts->{filter} ) {
$filter = $opts->{filter};
App-Followme
view release on metacpan or search on metacpan
share/clean.pl view on Meta::CPAN
pattern will be copied as many times as were matched in the correpsonding set
of parentheses in the match pattern.
The format is probably best explained by example:
# Replace strong tags by bold
<strong>*</strong> -> <b>*</b>
# Replace center tags
<center>*</center> -> <div class="centered">*</div>
# Remove font tags
<font>*</font> -> *
App-GHGen
view release on metacpan or search on metacpan
lib/App/GHGen/Interactive.pm view on Meta::CPAN
=cut
sub customize_workflow($type) {
say '';
say colored(['bold cyan'], "=== Workflow Customization: " . uc($type) . " ===");
say '';
my %dispatch = (
perl => \&_customize_perl,
node => \&_customize_node,
lib/App/GHGen/Interactive.pm view on Meta::CPAN
sub _customize_perl() {
my %config;
# Perl versions
say colored(['bold'], "Perl Versions to Test:");
my @all_versions = qw(5.40 5.38 5.36 5.34 5.32 5.30 5.28 5.26 5.24 5.22);
my @default_versions = qw(5.40 5.38 5.36);
$config{perl_versions} = prompt_multiselect(
"Which Perl versions?",
lib/App/GHGen/Interactive.pm view on Meta::CPAN
\@default_versions
);
say '';
# Operating systems
say colored(['bold'], "Operating Systems:");
my @all_os = ('ubuntu-latest', 'macos-latest', 'windows-latest');
my @default_os = @all_os;
$config{os} = prompt_multiselect(
"Which operating systems?",
lib/App/GHGen/Interactive.pm view on Meta::CPAN
\@default_os
);
say '';
# Code quality
say colored(['bold'], "Code Quality Tools:");
$config{enable_critic} = prompt_yes_no(
"Enable Perl::Critic?",
'y'
);
say '';
lib/App/GHGen/Interactive.pm view on Meta::CPAN
'y'
);
say '';
# Branches
say colored(['bold'], "Branch Configuration:");
my $branches = prompt_text(
"Branches to run on (comma-separated)",
'main,master'
);
$config{branches} = [split /,\s*/, $branches];
lib/App/GHGen/Interactive.pm view on Meta::CPAN
sub _customize_node() {
my %config;
# Node versions
say colored(['bold'], "Node.js Versions to Test:");
my @all_versions = qw(18.x 20.x 22.x 23.x);
my @default_versions = qw(20.x 22.x);
$config{node_versions} = prompt_multiselect(
"Which Node.js versions?",
lib/App/GHGen/Interactive.pm view on Meta::CPAN
\@default_versions
);
say '';
# Package manager
say colored(['bold'], "Package Manager:");
my $pm_choice = prompt_choice(
"Which package manager?",
['npm', 'yarn', 'pnpm'],
0
);
lib/App/GHGen/Interactive.pm view on Meta::CPAN
sub _customize_python() {
my %config;
# Python versions
say colored(['bold'], "Python Versions to Test:");
my @all_versions = qw(3.9 3.10 3.11 3.12 3.13);
my @default_versions = qw(3.11 3.12);
$config{python_versions} = prompt_multiselect(
"Which Python versions?",
lib/App/GHGen/Interactive.pm view on Meta::CPAN
\@default_versions
);
say '';
# Linting
say colored(['bold'], "Code Quality:");
$config{enable_flake8} = prompt_yes_no(
"Enable flake8 linting?",
'y'
);
say '';
lib/App/GHGen/Interactive.pm view on Meta::CPAN
}
sub _customize_rust() {
my %config;
say colored(['bold'], "Rust Workflow Options:");
$config{enable_fmt} = prompt_yes_no(
"Enable formatting check (cargo fmt)?",
'y'
);
lib/App/GHGen/Interactive.pm view on Meta::CPAN
}
sub _customize_go() {
my %config;
say colored(['bold'], "Go Workflow Options:");
my $go_version = prompt_text(
"Go version",
'1.22'
);
lib/App/GHGen/Interactive.pm view on Meta::CPAN
}
sub _customize_ruby() {
my %config;
say colored(['bold'], "Ruby Versions to Test:");
my @all_versions = qw(3.1 3.2 3.3);
my @default_versions = qw(3.2 3.3);
$config{ruby_versions} = prompt_multiselect(
"Which Ruby versions?",
lib/App/GHGen/Interactive.pm view on Meta::CPAN
}
sub _customize_docker() {
my %config;
say colored(['bold'], "Docker Workflow Options:");
my $image_name = prompt_text(
"Docker image name (user/image)",
'your-username/your-image'
);
lib/App/GHGen/Interactive.pm view on Meta::CPAN
}
sub _customize_static() {
my %config;
say colored(['bold'], "Static Site Deployment:");
my $build_dir = prompt_text("Build output directory", './public');
$config{build_dir} = $build_dir;
say '';
App-Git-Ribbon
view release on metacpan or search on metacpan
bin/git-ribbon view on Meta::CPAN
sub save { print `git tag --force _ribbon origin/master` }
sub ribbon {
my $option = shift;
my @logs = `git log --pretty=format:'git difftool -r %p -r %h --no-prompt %n%C(bold white)%an %cr %h%n%s%Creset' --stat --no-merges --reverse --topo-order _ribbon..origin/master`;
my $i = 0;
while ($i < $#logs) {
my $cmd = $logs[$i];
$i++;
App-GitGot
view release on metacpan or search on metacpan
lib/App/GitGot/Outputter/dark.pm view on Meta::CPAN
use namespace::autoclean;
has color_error => (
is => 'ro' ,
isa => Str ,
default => 'bold white on_red'
);
has color_major_change => (
is => 'ro' ,
isa => Str ,
default => 'bold black on_green'
);
has color_minor_change => (
is => 'ro' ,
isa => Str ,
lib/App/GitGot/Outputter/dark.pm view on Meta::CPAN
);
has color_warning => (
is => 'ro' ,
isa => Str ,
default => 'bold black on_yellow'
);
1;
App-GitGrepPerlStatement
view release on metacpan or search on metacpan
lib/App/GitGrepPerlStatement.pm view on Meta::CPAN
my @found = $finder->search($file);
for (@found) {
if (-t STDOUT) {
say colored(
['bold'],
"@{[ $file ]}:@{[ $_->line_number ]}"
);
say $finder->highlight($_);
} else {
say "@{[ $file ]}:@{[ $_->line_number ]}";
( run in 0.650 second using v1.01-cache-2.11-cpan-39bf76dae61 )