Result:
found more than 668 distributions - search limited to the first 2001 files matching your query
( run in 1.494 )
A1z-HTML5-Template
view release on metacpan or search on metacpan
lib/A1z/HTML5/Template.pm view on Meta::CPAN
sub html_humanejs_css
{
return qq{<link rel='stylesheet' href='https://cdnjs.cloudflare.com/ajax/libs/humane-js/3.2.2/themes/bigbox.css'>
<link rel='stylesheet' href='https://cdnjs.cloudflare.com/ajax/libs/humane-js/3.2.2/themes/boldlight.css'>
<link rel='stylesheet' href='https://cdnjs.cloudflare.com/ajax/libs/humane-js/3.2.2/themes/jackedup.css'>
<link rel='stylesheet' href='https://cdnjs.cloudflare.com/ajax/libs/humane-js/3.2.2/themes/libnotify.css'>
<link rel='stylesheet' href='https://cdnjs.cloudflare.com/ajax/libs/humane-js/3.2.2/themes/original.css'>
<link rel='stylesheet' href='https://cdnjs.cloudflare.com/ajax/libs/humane-js/3.2.2/themes/flatty.min.css'>
<link href='https://fonts.googleapis.com/css?family=Ubuntu&v2' rel='stylesheet' type='text/css'>
ACME-Error-HTML
view release on metacpan or search on metacpan
use HTML::FromText;
*die_handler = *warn_handler = sub {
return text2html "@_",
paras => 1,
bold => 1,
metachars => 0,
urls => 1,
email => 1,
underline => 1,
blockparas => 1,
AES128
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
AFS
view release on metacpan or search on metacpan
src/ppport.h view on Meta::CPAN
#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
AI-FANN
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
AI-MaxEntropy
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
AI-MegaHAL
view release on metacpan or search on metacpan
megahal.trn view on Meta::CPAN
Well, that is your opinion, I suppose.
You said it, buddy!
No way! I hope you're sure about that!
Really? I can't say I'm surprised...
Whatever you say! I don't believe a word of it!
That's a rather bold claim.
I hope you have some evidence to back you up on that.
Tell me something I don't know!
I wish I could believe you, I really do!
I've known that for a long time.
That's a fairly outrageous claim.
AI-MicroStructure
view release on metacpan or search on metacpan
lib/AI/MicroStructure/germany.pm view on Meta::CPAN
# names Krebeck 37434
# names Bilshausen 37434
# names Wollbrandshausen 37434
# names Bodensee 37434
# names Obernfeld 37434
# names Gieboldehausen 37434
# names Rhumspringe 37434
# names Walkenried 37445
# names Wieda 37447
# names Zorge 37449
# names Osterode 38835
lib/AI/MicroStructure/germany.pm view on Meta::CPAN
# names Dreieich 63303
# names Egelsbach 63329
# names Hanau 63450 63452 63454 63456 63457
# names Maintal 63477
# names Seligenstadt 63500
# names Langenselbold 63505
# names Hainburg 63512
# names Erlensee 63526
# names Mainhausen 63533
# names Neuberg 63543
# names Hammersbach 63546
AI-NeuralNet-Kohonen-Visual
view release on metacpan or search on metacpan
lib/AI/NeuralNet/Kohonen/Visual.pm view on Meta::CPAN
}
$self->{_mw} = MainWindow->new(
-width => $w + 20,
-height => $h + 20,
);
$self->{_mw}->fontCreate(qw/TAG -family verdana -size 8 -weight bold/);
$self->{_mw}->resizable( 0, 0);
$self->{_quit_flag} = 0;
$self->{_mw}->protocol('WM_DELETE_WINDOW' => sub {$self->{_quit_flag}=1});
$self->{_canvas} = $self->{_mw}->Canvas(
-width => $w,
AI-Pathfinding-AStar-Rectangle
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
AIIA-GMT
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
AIX-Perfstat
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
ALPM
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
AMF-Perl
view release on metacpan or search on metacpan
doc/code.html view on Meta::CPAN
}
span.red {
font-family: verdana, arial, helvetica, sans-serif;
font-size: 12px;
font-weight: bold;
color: #990000;
}
div.notes {
background: #dddddd;
doc/code.html view on Meta::CPAN
A:link { color: #3366AA; text-decoration: none; }
A:visited { color: #3366CC; text-decoration: none; }
A:active { color: #00CC99; text-decoration: none; }
A:hover { color: #FFFFFF; text-decoration: none; background-color: #6699CC; }
A.noDec:link { color: #000099; font-weight: bold; text-decoration: none; }
A.noDec:visited { color: #000099; font-weight: bold; text-decoration: none; }
A.noDec:active { color: #000099; font-weight: bold; text-decoration: none; }
A.noDec:hover { color: #3366AA; font-weight: bold; text-decoration: underline; background-color: transparent; }
A.plain:link { color: #000033; text-decoration: none; }
A.plain:visited { color: #000033; text-decoration: none; }
A.plain:active { color: #000033; text-decoration: none; }
A.plain:hover { color: #3366AA; text-decoration: none; background-color: transparent; }
h2 {
color: #333333;
font-size: 20 px;
font-weight: bold;
}
h3 {
color: #333333;
font-size: 18 px;
font-weight: bold;
}
h4 {
color: #0066CC;
font-size: 14px;
font-weight: bold;
}
</style>
</head>
<body
doc/code.html view on Meta::CPAN
<table cellpadding="2" cellspacing="2" border="0"
style="text-align: left; width: 600px;">
<tbody>
<tr>
<td style="vertical-align: top;"><big><span
style="font-weight: bold;">To use AMF::Perl, download it
and install in the usual way (perl Makefile.PL; make; make install).<br><br>
To build/export .swf files with "Flash Remoting" you need to install
<a href=http://www.macromedia.com/software/flashremoting/downloads/components/>
Flash Remoting MX Components </a> (free download).
This will install the files "NetServices.as" and "NetDebug.as" that are
used in the ActionScript.
</span></big><br>
<hr style="width: 100%; height: 2px;"><big><span
style="font-weight: bold;"></span></big>
<h2>Sample code that uses Flash Remoting <br>
</h2>
(See also examples that are distributed with the module).
<br>
<a href=encoding.html>Read this</a> if you want to send and receive strings in non-English encodings.
ANSI-Palette
view release on metacpan or search on metacpan
lib/ANSI/Palette.pm view on Meta::CPAN
palette_16 => [qw/all/],
palette_256 => [qw/all/],
text_8 => [qw/all text ansi_8/],
text_16 => [qw/all text ansi_16/],
text_256 => [qw/all text ansi_256/],
bold_8 => [qw/all bold ansi_8/],
bold_16 => [qw/all bold ansi_16/],
bold_256 => [qw/all bold ansi_256/],
underline_8 => [qw/all underline ansi_8/],
underline_16 => [qw/all underline ansi_16/],
underline_256 => [qw/all underline ansi_256/],
italic_8 => [qw/all italic ansi_8/],
italic_16 => [qw/all italic ansi_16/],
italic_256 => [qw/all italic ansi_256/],
background_text_8 => [qw/all background_text ansi_8/],
background_text_16 => [qw/all background_text ansi_16/],
background_text_256 => [qw/all background_text ansi_256/],
background_bold_8 => [qw/all background_bold ansi_8/],
background_bold_16 => [qw/all background_bold ansi_16/],
background_bold_256 => [qw/all background_bold ansi_256/],
background_underline_8 => [qw/all background_underline ansi_8/],
background_underline_16 => [qw/all background_underline ansi_16/],
background_underline_256 => [qw/all background_underline ansi_256/],
background_italic_8 => [qw/all background_italic ansi_8/],
background_italic_16 => [qw/all background_italic ansi_16/],
lib/ANSI/Palette.pm view on Meta::CPAN
sub text_256 {
print "\e[38;5;" . $_[0] . "m" . $_[1];
reset();
}
sub bold_8 {
print "\e[" . $_[0] . ";1m" . $_[1];
reset();
}
sub bold_16 {
print "\e[" . $_[0] . ($_[1] ? ";1" : ";0") . ";1m" . $_[2];
reset();
}
sub bold_256 {
print "\e[38;5;" . $_[0] . ";1m" . $_[1];
reset();
}
sub underline_8 {
lib/ANSI/Palette.pm view on Meta::CPAN
sub background_text_256 {
print "\e[48;5;" . $_[0] . ";38;5;" . $_[1] . "m" . $_[2];
reset();
}
sub background_bold_8 {
print "\e[" . $_[0] . ";" . $_[1] . ";1m" . $_[2];
reset();
}
sub background_bold_16 {
print "\e[" . $_[0] . ($_[1] ? ";1" : ";0") . ";" . $_[2] . ";1m" . $_[3];
reset();
}
sub background_bold_256 {
print "\e[48;5;" . $_[0] . ";38;5;" . $_[1] . ";1m" . $_[2];
reset();
}
sub background_underline_8 {
lib/ANSI/Palette.pm view on Meta::CPAN
...
use ANSI::Palette qw/ansi_256/;
background_text_256(208, 33, "This is a test for background_text_256\n");
background_bold_256(160, 33, "This is a test for background_bold_256\n");
background_underline_256(226, 33, "This is a test for background_underline_256\n");
background_italic_256(118, 33, "This is a test for background_italic_256\n");
=head1 EXPORT
lib/ANSI/Palette.pm view on Meta::CPAN
text_256(32, "This is a test for text_256\n");
=cut
=head2 bold_8
print bold text using one of the 8 base colors.
bold_8(32, "This is a test for bold_8\n");
=cut
=head2 bold_16
print bold text using one of the 16 base colors.
bold_16(32, 1, "This is a test for bold_16\n");
=cut
=head2 bold_256
print bold text using one of the 256 base colors.
bold_256(32, "this is a test for bold_256\n");
=cut
=head2 underline_8
lib/ANSI/Palette.pm view on Meta::CPAN
background_text_256(208, 33, "This is a test for background_text_256\n");
=cut
=head2 background_bold_8
print bold text using one of the 8 base colors on a background using one of the 8 base colors.
background_bold_8(32, 40, "This is a test for background_bold_8\n");
=cut
=head2 background_bold_16
print bold text using one of the 16 base colors on a background using one of the 16 base colors (40-47) (100-107).
background_bold_16(32, 1, 40, "This is a test for background_bold_16\n");
=cut
=head2 background_bold_256
print bold text using one of the 256 base colors on a background using one of the 256 base colors.
background_bold_256(208, 33, "this is a test for background_bold_256\n");
=cut
=head2 background_underline_8
ARSObject
view release on metacpan or search on metacpan
lib/ARSObject.pm view on Meta::CPAN
return if !$^W ||ineval();
if ($s && $s->{-warnmsg}) {
&{$s->{-warnmsg}}(@_)
}
else {
print '<div style="font-weight: bolder">Warnig: '
, $s->{-cgi}->escapeHTML($_[0])
, "<div>\n"
if $s && $s->{-cgi}
}
# CORE::warn($_[0]);
lib/ARSObject.pm view on Meta::CPAN
? $cmsg
: ($s->{-lang} ||'') =~/^ru/i
? {'Error'=>'Îøèáêà', 'Warning'=>'Ïðåäóïðåæäåíèå', 'Success'=>'Óñïåøíî'
,'Executing'=>'Âûïîëíåíèå', 'Done'=>'Âûïîëíåíî'}
: {};
$cmsg =sub{"\n<br /><font style=\"font-weight: bolder\""
.($_[1] =~/^(?:Error|Warning)/ ? ' color="red"' : '')
.'>'
.(defined($_[1]) ? $_[0]->{-cgi}->escapeHTML($hmsg->{$_[1]} ||$_[1]) : 'undef')
.": "
.(defined($_[2]) ? $_[0]->{-cgi}->escapeHTML($hmsg->{$_[2]} ||$_[2]) : 'undef')
ARSperl
view release on metacpan or search on metacpan
html/manual/ars_APIVersion.html view on Meta::CPAN
ARSperl Programmer's Manual
</title>
<style type="text/css">
/*<![CDATA[*/
body.c2 {background-color: rgb(255, 255, 255);}
dt.c1 {font-weight: bold}
/*]]>*/
</style>
</head>
<body class="c2">
<h2>
ASNMTAP
view release on metacpan or search on metacpan
applications/display-test.pl view on Meta::CPAN
sub printItemStatus {
my ($interval, $number, $status, $endTime, $acked, $timeslot, $activationTimeslot, $suspentionTimeslot, $instability, $persistent, $downtime, $suspentionTimeslotPersistentTrue, $suspentionTimeslotPersistentFalse, $catalogID_uniqueKey, $catalogID, $...
my $statusIcon = ($acked and ($activationTimeslot - $step < $timeslot) and ($suspentionTimeslot > $timeslot)) ? ( $instability ? $ICONSUNSTABLE {$status} : $ICONSACK {$status} ) : $ICONS{$status};
my ($debugInfo, $boldStart, $boldEnd);
$debugInfo = $boldStart = $boldEnd = '';
if ($number == 0) {
$printCondensedView = 1 unless ( $status eq 'IN PROGRESS' or $status eq 'OK' or $status eq 'NO TEST' or $status eq 'OFFLINE' );
if ($ERRORS{$status} <= $ERRORS{UNKNOWN} or $ERRORS{$status} == $ERRORS{'NO DATA'}) { $playSoundStatus = ($playSoundStatus > $ERRORS{$status}) ? $playSoundStatus : $ERRORS{$status}; }
} else {
applications/display-test.pl view on Meta::CPAN
if ( defined $tableSoundStatusCache { $catalogID_uniqueKey } ) {
if ( $tableSoundStatusCache { $catalogID_uniqueKey } ne $timeslot ) {
$playSoundStatus = ($playSoundStatus > $playSoundPreviousStatus) ? $playSoundStatus : $playSoundPreviousStatus;
$tableSoundStatusCache { $catalogID_uniqueKey } = $timeslot;
$debugInfo .= "$playSoundStatus-" if ($debug);
$boldStart = "<b>["; $boldEnd = "]</b>";
} else {
$debugInfo .= "C-" if ($debug);
}
} else {
$playSoundStatus = ($playSoundStatus > $playSoundPreviousStatus) ? $playSoundStatus : $playSoundPreviousStatus;
$tableSoundStatusCache { $catalogID_uniqueKey } = $timeslot;
$debugInfo .= "$playSoundStatus-" if ($debug);
$boldStart = "<b>["; $boldEnd = "]</b>";
}
} else {
delete $tableSoundStatusCache { $catalogID_uniqueKey } if ( defined $tableSoundStatusCache { $catalogID_uniqueKey } );
}
}
}
if ($displayTime) {
$itemFullCondensedView .= ' <TD><IMG SRC="'. $IMAGESURL .'/'. $statusIcon .'" WIDTH="16" HEIGHT="16" BORDER=0 title="'. $status .'" alt="'. $status .'"></TD>'. "\n";
$itemFullCondensedView .= ' <TD class="ItemStatus"><FONT COLOR="'. $COLORS{$status} .'">'. $debugInfo . $boldStart . $endTime . $boldEnd .'</FONT></TD>'. "\n";
} else {
$itemFullCondensedView .= ' <TD><IMG SRC="'. $IMAGESURL .'/'. $statusIcon .'" WIDTH="16" HEIGHT="16" BORDER=0 title="'. $endTime .'" alt="'. $endTime .'"></TD>'. "\n";
}
}
ASP4
view release on metacpan or search on metacpan
lib/ASP4.pm view on Meta::CPAN
'content-transfer-encoding' => 'base64',
message => encode_base64(<<"HTML")
<html>
<body>
<p>This is an html email.</p>
<p>You can see that <b>this text is bold</b>.</p>
</body>
</html>
HTML
);
AUBBC
view release on metacpan or search on metacpan
examples/tag_list.cgi view on Meta::CPAN
text-decoration : none;
font-family : Courier New, Latha, sans-serif;
}
.highlightclass6 {
color : black;
font-weight : bold;
font-size : 10pt;
text-decoration : none;
font-family : Courier New, Latha, sans-serif;
}
.highlightclass7 {
AVLTree
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
AWS-Lambda
view release on metacpan or search on metacpan
examples/cgi/WwwCounter/readme.html view on Meta::CPAN
BODY {
color: #333333;
}
H2 {
width: 100%;
font-weight: bold;
color: #ffffff;
background-color: #8484ee;
border: 1px none #8888f8;
border-top: 1px solid #8888f8;
border-left: 1px solid #8888f8;
examples/cgi/WwwCounter/readme.html view on Meta::CPAN
margin-bottom: 10px;
}
H3 {
width: 100%;
color: #ffffff;
font-weight: bold;
font-size: 1.3em;
background-color: #8484ee;
border: 1px none #8888f8;
border-top: 1px solid #8888f8;
border-left: 1px solid #8888f8;
examples/cgi/WwwCounter/readme.html view on Meta::CPAN
border-bottom: 1px solid #666699;
padding: 7px 3px 5px 0.5em;
}
H4 {
width: 100%;
font-weight: bold;
font-size: 1em;
color: #ffffff;
background-color: #8484ee;
border: 1px none #8888f8;
border-top: 1px solid #ccccff;
examples/cgi/WwwCounter/readme.html view on Meta::CPAN
white-space: pre;
width: 100%;
background-color: #fffff0;
}
DT {
font-weight: bold;
}
OL LI P {
text-indent: 0em;
margin-top: 0em;
}
AcePerl
view release on metacpan or search on metacpan
Ace/Object.pm view on Meta::CPAN
my @col = $obj->col;
my $cnt = scalar(@col);
return ("$obj -- $cnt members",1); # prune
if $cnt > 10 # if subtree to big
# tags are bold
return "<B>$obj</B>" if $obj->isTag;
# objects are blue
return qq{<FONT COLOR="blue">$obj</FONT>} if $obj->isObject;
}
Acme-CPANAuthors-GitHub
view release on metacpan or search on metacpan
lib/Acme/CPANAuthors/GitHub.pm view on Meta::CPAN
q(FCO) => q(Fernando Correa de Oliveira),
q(FELIPE) => q(Felipe Gasper),
q(FELLIOTT) => q(Fitz Elliott),
q(FERREIRA) => q(Adriano Ferreira),
q(FERZ) => q(Ferruccio Zamuner),
q(FGA) => q(Fabrice Gabolde),
q(FGLOCK) => q(Flávio Soibelmann Glock),
q(FIBO) => q(Gianluca Casati),
q(FIREDRAKE) => q(Roger Bell_West),
q(FKALTER) => q(Freek Kalter),
q(FLIMM) => q(David D Lowe),
Acme-CPANAuthors-Nonhuman
view release on metacpan or search on metacpan
lib/Acme/CPANAuthors/Nonhuman.pm view on Meta::CPAN
ARUNBEAR => 'Arun Prasaad',
SKINGTON => 'Sam Kington',
IANKENT => 'Ian Kent',
JTRAMMELL => 'John J. Trammell',
CARLOS => 'Carlos Lima',
FGA => 'Fabrice Gabolde',
GLEACH => 'Geoffrey Leach',
AKIHITO => 'Akihito Takeda',
MAXS => 'Maxime Soulé',
ARUN => 'Arun Venkataraman',
CKRAS => 'Christiaan Kras',
lib/Acme/CPANAuthors/Nonhuman.pm view on Meta::CPAN
--><a href="http://metacpan.org/author/ARUNBEAR"><span><img style="margin: 0 5px 5px 0;" width="80" height="80" src="https://secure.gravatar.com/avatar/dc46344b5cdbf99fb62291b4eb9c4aef?s=80&d=identicon" alt="ARUNBEAR" title="ARUNBEAR (Arun Prasaad), ...
--><a href="http://metacpan.org/author/SKINGTON"><span><img style="margin: 0 5px 5px 0;" width="80" height="80" src="https://secure.gravatar.com/avatar/faf48a00fe1d8c7b282435f54f04c747?s=80&d=identicon" alt="SKINGTON" title="SKINGTON (Sam Kington), 7...
--><a href="http://metacpan.org/author/IANKENT"><span><img style="margin: 0 5px 5px 0;" width="80" height="80" src="https://secure.gravatar.com/avatar/7d3b3b7b9d22aadba754cade8781518c?s=80&d=identicon" alt="IANKENT" title="IANKENT (Ian Kent), 6 distr...
--><a href="http://metacpan.org/author/JTRAMMELL"><span><img style="margin: 0 5px 5px 0;" width="80" height="80" src="http://www.gravatar.com/avatar/6e8ddfd51613a0bb512abb09b64dafef?s=80&d=http%3A%2F%2Fwww.gravatar.com%2Favatar%2F7fe2f580391d8c908974...
--><a href="http://metacpan.org/author/CARLOS"><span><img style="margin: 0 5px 5px 0;" width="80" height="80" src="https://secure.gravatar.com/avatar/43d81f6a54ee06bf1190d16f25a2533a?s=80&d=identicon" alt="CARLOS" title="CARLOS (Carlos Lima), 5 distr...
--><a href="http://metacpan.org/author/FGA"><span><img style="margin: 0 5px 5px 0;" width="80" height="80" src="https://secure.gravatar.com/avatar/a1a232556694ed753ac491703b7df184?s=80&d=identicon" alt="FGA" title="FGA (Fabrice Gabolde), 5 distributi...
--><a href="http://metacpan.org/author/GLEACH"><span><img style="margin: 0 5px 5px 0;" width="80" height="80" src="https://secure.gravatar.com/avatar/05cb19d7843c358211bfdc98be476b68?s=80&d=identicon" alt="GLEACH" title="GLEACH (Geoffrey Leach), 4 di...
--><a href="http://metacpan.org/author/AKIHITO"><span><img style="margin: 0 5px 5px 0;" width="80" height="80" src="https://secure.gravatar.com/avatar/3a1bdee47e9fdca1cdf3ce4f38651ba2?s=80&d=identicon" alt="AKIHITO" title="AKIHITO (Akihito Takeda), 3...
--><a href="http://metacpan.org/author/MAXS"><span><img style="margin: 0 5px 5px 0;" width="80" height="80" src="https://secure.gravatar.com/avatar/55768f8a3f6cbfde7396a0a34b590181?s=80&d=identicon" alt="MAXS" title="MAXS (Maxime Soulé), 3 dis...
--><a href="http://metacpan.org/author/ARUN"><span><img style="margin: 0 5px 5px 0;" width="80" height="80" src="https://secure.gravatar.com/avatar/8a7e477f0a86af02355043e612baad57?s=80&d=identicon" alt="ARUN" title="ARUN (Arun Venkataraman), 2 distr...
--><a href="http://metacpan.org/author/CKRAS"><span><img style="margin: 0 5px 5px 0;" width="80" height="80" src="https://secure.gravatar.com/avatar/4745757ad4050f5a2b1ec9c9fb2ff370?s=80&d=identicon" alt="CKRAS" title="CKRAS (Christiaan Kras), 2 dist...
Acme-CPANModulesBundle-Import-PerlDancerAdvent-2018
view release on metacpan or search on metacpan
devdata/http_advent.perldancer.org_2018_23 view on Meta::CPAN
engines:
logger:
Console::Colored:
colored_origin: "cyan"
colored_levels:
core: "bold bright_white"
debug: "bold bright_blue"
info: "bold green"
warning: "bold yellow"
error: "bold yellow on_red"
colored_messages:
core: "bold bright_white"
debug: "bold bright_blue"
info: "bold green"
warning: "bold yellow"
error: "bold yellow on_red"</pre>
<img src="/images/2018/23/log-1.png">
<p>The <code>colored_origin</code> refers to the part of the message that shows the package that this
message originated in, as well as the file name and line.</p>
devdata/http_advent.perldancer.org_2018_23 view on Meta::CPAN
<p>And the <code>colored_messages</code> refer to the actual message.</p>
<pre class="prettyprint">[main:28764] debug @2018-12-19 20:31:06> Hello World in test.pl l. 6
^^^^^^^^^^^</pre>
<p>The colors are the same kind of color strings used by <a href="https://metacpan.org/module/Term::ANSIColor">Term::ANSIColor</a>. The first
color refers to the foreground, and the second one to the background. You can add an optional <code>bold</code>.</p>
<pre class="prettyprint">[bold] [foreground] [on_background]</pre>
<h2><a name="changing_the_log_message"></a>Changing the log message</h2>
<p>If you don't like the default log format, you can change it with the <code>log_format</code> setting, which is
documented in detail in <a href="https://metacpan.org/module/Dancer2::Core::Role::Logger">Dancer2::Core::Role::Logger</a>. You can just stick it in with the other configuration.</p>
devdata/http_advent.perldancer.org_2018_23 view on Meta::CPAN
engines:
logger:
Console::Colored:
colored_regex:
- re: "customer number \d+"
color: "bold red"</pre>
<p>This will find customer numbers according to the pattern and make them bold and red. You can supply
a regular expression pattern and a color setting.</p>
<img src="/images/2018/23/log-2.png">
<p>Note that there is a list under the <code>colored_regex</code> key. This means you can actually have
multiple patterns. Even really simple ones that make <code>print</code> style debugging easy
devdata/http_advent.perldancer.org_2018_23 view on Meta::CPAN
engines:
logger:
Console::Colored:
colored_regex:
- re: "customer number \d+"
color: "bold red"
- re: "\bhere\b"
color: "white on_green"</pre>
<p>If you want to highlight an entire log message in a specific color, you can set a pattern that captures
everything. However, this works on the message only, and not on the entire formatted line of log output.
Acme-Curses-Marquee-Extensions
view release on metacpan or search on metacpan
lib/Acme/Curses/Marquee/Extensions.pm view on Meta::CPAN
}
}
{
my $i = 0;
my $rainbow = [qw/red yellow/,'bold yellow',qw/green cyan blue magenta/];
sub colors{
my($self, %p) = @_;
my @colors = @{$p{colors}||$rainbow};
if( every seconds=>$p{delay}||5 ){
print color $colors[$i++%scalar @colors];
lib/Acme/Curses/Marquee/Extensions.pm view on Meta::CPAN
The number of seconds between color changes. Defaults to 5.
=item colors
An arrayref of colors to cycle through. Defaults to a rainbow i.e;
'red', 'yellow', 'bold yellow', 'green', 'cyan', 'blue', 'magenta'
See L<Term::ANSIColor> for legal values.
=back
=head2 sweep( I<toggle> )
Acme-EyeDrops
view release on metacpan or search on metacpan
lib/Acme/EyeDrops.pm view on Meta::CPAN
Design, debate, sift
Prankster Piers pawky precis
Weekly light relief
Gallop Ponie bold!
Beer to gulp, Buffy astride
Orange sky surrounds
Lambda hugs camel
Precocious pup productive
Acme-FishFarm
view release on metacpan or search on metacpan
scripts/fish_farm_2.pl view on Meta::CPAN
$water_level->set_water_level_increase_height(5);
my $feeder_verbose = 1;
print colored(['bold bright_blue'], "Prese <ENTER> to start monitoring your fish farm"); <>;
say "";
while ( "fish are swimming happily" ) {
# get input for DO, pH, temperature, turbidity, in one go
print colored(['bold bright_blue'], "Enter current DO level (mg/L): ");
chomp ( my $current_DO = <>);
print colored(['bold bright_blue'], "Enter current pH value: ");
chomp ( my $current_pH = <>);
print colored(['bold bright_blue'], "Enter current temperature (C): ");
chomp ( my $current_temperature = <>);
print colored(['bold bright_blue'], "Enter current turbidity (ntu): ");
chomp ( my $current_turbidity = <>);
say colored(['bright_yellow'], "--------------------------------");
say colored(['bold bright_yellow'], "Water Condition Monitor Report");
say colored(['bright_yellow'], "--------------------------------");
check_DO( $oxygen, $current_DO ); say "";
check_pH( $water_monitor, $current_pH ); say "" ;
check_temperature( $water_monitor, $current_temperature ); say "";
check_turbidity( $water_monitor, $current_turbidity );
say colored(['bright_yellow'], "--------------------------------"); say "";
print colored(['bold bright_blue'], "Press <ENTER> to check the LED status"); <>; say "";
say colored(['bright_yellow'], "------------------------------------");
say colored(['bold bright_yellow'], "Water Condition Monitor LEDs Status");
say colored(['bright_yellow'], "------------------------------------");
render_leds( $water_monitor );
say colored(['bright_yellow'], "--------------------------------"); say "";
print colored(['bold bright_blue'], "Press <ENTER> to check the buzzer status"); <>; say "";
say colored(['bright_yellow'], "--------------------------------------");
say colored(['bold bright_yellow'], "Water Condition Monitor Buzzer Status");
say colored(['bright_yellow'], "--------------------------------------");
render_buzzer( $water_monitor );
say colored(['bright_yellow'], "--------------------------------------"); say "";
print colored(['bold bright_blue'], "Press <ENTER> to check the feeder"); <>; say "";
say colored(['bright_yellow'], "--------------------------------");
say colored(['bold bright_yellow'], "Automated Feeder Report");
say colored(['bright_yellow'], "--------------------------------");
check_feeder( $feeder, $feeder_verbose );
say colored(['bright_yellow'], "--------------------------------"); say "";
print colored(['bold bright_blue'], "Enter current waste count (integer): ");
chomp ( my $current_waste_count = <>);
say colored(['bright_yellow'], "--------------------------------");
say colored(['bold bright_yellow'], "Water Filtration Report");
say colored(['bright_yellow'], "--------------------------------");
check_water_filter( $water_filter, $current_waste_count );
say colored(['bright_yellow'], "--------------------------------"); say "";
print colored(['bold bright_blue'], "Enter current water level (m): ");
chomp ( my $current_water_level = <>);
say colored(['bright_yellow'], "----------------------------------");
say colored(['bold bright_yellow'], "Water Level Maintainer Report");
say colored(['bright_yellow'], "-----------------------------------");
check_water_level( $water_level, $current_water_level );
say colored(['bright_yellow'], "-----------------------------------"); say "";
say colored(['bold bright_yellow'], "-------------END OF REPORT-----------\n");
print colored(['bold bright_blue'], "Press <ENTER> to monitor your fish farm again"); <>;
say "";
}
sub show_installation_status {
say colored(['bright_yellow'], "Setting up your fish farm..."); sleep(1);
scripts/fish_farm_2.pl view on Meta::CPAN
say colored(['bright_green'], " Water filter installed and switched on!"); sleep(1);
say colored(['bright_yellow'], " Setting up water condition monitor..."); sleep(1);
say colored(['bright_green'], " Water condition monitor installed!"); sleep(1);
say colored(['bright_yellow'], " Oxygen maintainer installed & connected to water condition monitor..."); sleep(1);
say colored(['bright_green'], " Water condition monitor switched on!"); sleep(1);
say colored(['bold bright_blue'], "Your fish farm is ready!");
say "";
}
sub show_all_threshold {
my $ph_range = $water_monitor->ph_threshold;
my $temperature_range = $water_monitor->temperature_threshold;
say colored(['bold bright_magenta'], "Acceptable threshold/range of parameters:");
say " Min. DO level: ", $oxygen->DO_threshold, " mg/L";
say " pH: ", $ph_range->[0], "~", $ph_range->[1];
say " Temperature: ", $temperature_range->[0], "~", $temperature_range->[1], " C";
say " Max. Turbidity: ", $water_monitor->turbidity_threshold, " ntu";
say " Max. Waste Count: ", $water_filter->waste_count_threshold;
Acme-FizzBuzz
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];
( run in 1.494 second using v1.01-cache-2.11-cpan-c333fce770f )