view release on metacpan or search on metacpan
lib/A1z/HTML5/Template.pm view on Meta::CPAN
<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'>
<link href='https://fonts.googleapis.com/css?family=Ubuntu+Mono' rel='stylesheet' type='text/css'>
<link href='https://fonts.googleapis.com/css?family=Cabin+Sketch:700&v2' rel='stylesheet' type='text/css'>
};
}
lib/A1z/HTML5/Template.pm view on Meta::CPAN
=head2 html_humanejs_css
For Internal/Future Use
humane-js #3.2.2 cdnjs.cloudflare
fonts.googleapis.com
=head2 html_bootstrap_bluimp
For Internal/Future Use
view release on metacpan or search on metacpan
lib/AAC/Pvoice.pm view on Meta::CPAN
$width = 30 if $style & wxYES_NO;
$width = 60 if $style & wxCANCEL;
my $p = Wx::Frame->new(undef, -1, 'tmp');
my $m = Wx::StaticText->new($p, -1, $message, wxDefaultPosition, wxDefaultSize, wxALIGN_CENTRE);
$m->SetFont(Wx::Font->new( 10, # font size
wxDECORATIVE, # font family
wxNORMAL, # style
wxNORMAL, # weight
0,
'Comic Sans MS', # face name
wxFONTENCODING_SYSTEM));
lib/AAC/Pvoice.pm view on Meta::CPAN
$message,
wxDefaultPosition,
wxDefaultSize,
wxALIGN_CENTRE);
$messagectrl->SetBackgroundColour($d->{backgroundcolour});
$messagectrl->SetFont(Wx::Font->new(10, # font size
wxDECORATIVE, # font family
wxNORMAL, # style
wxNORMAL, # weight
0,
'Comic Sans MS', # face name
wxFONTENCODING_SYSTEM));
view release on metacpan or search on metacpan
lib/AI/Genetic/Pro.pm view on Meta::CPAN
my $graph = GD()->new(($params{-width} || 640), ($params{-height} || 480));
my $data = $self->getHistory;
if(defined $params{-font}){
$graph->set_title_font ($params{-font}, 12);
$graph->set_x_label_font($params{-font}, 10);
$graph->set_y_label_font($params{-font}, 10);
$graph->set_legend_font ($params{-font}, 8);
}
$graph->set_legend(
$params{legend1} || q/Max value/,
$params{legend2} || q/Mean value/,
lib/AI/Genetic/Pro.pm view on Meta::CPAN
=item -height
Height of a chart (default: I<480>).
=item -font
Path to font (in *.ttf format) to be used (default: none).
=item -logo
Path to logo (png/jpg image) to embed in a chart (default: none).
view release on metacpan or search on metacpan
<HTML>
<HEAD>
<TITLE>AI::NeuralNet::BackProp - A simple back-prop neural net that uses Delta's and Hebbs' rule.</TITLE>
<LINK REV="made" HREF="mailto:">
<STYLE>
BODY { font-family:Verdana; font-size:11; color:black; }
CODE { background: rgb(200,200,200); }
PRE { background:rgb(220,220,220); padding: 5; border:1px black solid; }
A:link {font-family:Verdana, Arial, Helvetica, Helv; font-size:10px; text-decoration:underline; font-weight:normal; color:rgb(58,73,114);}
A:visited {font-family:Verdana, Arial, Helvetica, Helv; font-size:10px; text-decoration:normal; font-weight:normal; color:rgb(58,73,114);}
A:hover {font-family:Verdana, Arial, Helvetica, Helv; font-size:10px; text-decoration:underline; font-weight:normal; color:rgb(200,50,0);}
</STYLE>
</HEAD>
<BODY>
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,
lib/AI/NeuralNet/Kohonen/Visual.pm view on Meta::CPAN
$x*$self->{display_scale}+($self->{display_scale}),
$y*$self->{display_scale}+($self->{display_scale}),
-text => $t,
-anchor => 'w',
-fill => 'white',
-font => 'TAG',
);
}
=head1 METHOD main_loop
view release on metacpan or search on metacpan
<HTML>
<HEAD>
<TITLE>AI::NeuralNet::Mesh - An optimized, accurate neural network Mesh.</TITLE>
<LINK REV="made" HREF="mailto:">
<STYLE>
BODY { font-family:Verdana; font-size:11; color:black; }
CODE { background: rgb(200,200,200); }
PRE { background:rgb(220,220,220); padding: 5; border:1px black solid; }
A:link {font-family:Verdana, Arial, Helvetica, Helv; font-size:10px; text-decoration:underline; font-weight:normal; color:rgb(58,73,114);}
A:visited {font-family:Verdana, Arial, Helvetica, Helv; font-size:10px; text-decoration:normal; font-weight:normal; color:rgb(58,73,114);}
A:hover {font-family:Verdana, Arial, Helvetica, Helv; font-size:10px; text-decoration:underline; font-weight:normal; color:rgb(200,50,0);}
</STYLE>
</HEAD>
<BODY>
view release on metacpan or search on metacpan
lib/AI/TensorFlow/Libtensorflow/Manual/Notebook/InferenceUsingTFHubCenterNetObjDetect.pod view on Meta::CPAN
p %subset;
use PDL::Graphics::Gnuplot;
my $plot_output_path = 'objects-detected.png';
my $gp = gpwin('pngcairo', font => ",12", output => $plot_output_path, aa => 2, size => [10] );
my @qual_cmap = ('#a6cee3','#1f78b4','#b2df8a','#33a02c','#fb9a99','#e31a1c','#fdbf6f','#ff7f00','#cab2d6');
$gp->options(
map {
lib/AI/TensorFlow/Libtensorflow/Manual/Notebook/InferenceUsingTFHubCenterNetObjDetect.pod view on Meta::CPAN
sprintf("%s: %.1f",
$subset{detection_class_labels}[$idx],
100*$subset{detection_scores}->at($idx,0) ) =>
at => $label_xy, 'left',
offset => 'character 0,-0.25',
qq{font ",12" boxed front tc rgb "#ffffff"} ], ],
)
} 0..$subset{detection_boxes}->dim(1)-1
);
$gp->plot(
lib/AI/TensorFlow/Libtensorflow/Manual/Notebook/InferenceUsingTFHubCenterNetObjDetect.pod view on Meta::CPAN
The following uses the bounding boxes and class label information to draw boxes and labels on top of the image using Gnuplot.
use PDL::Graphics::Gnuplot;
my $plot_output_path = 'objects-detected.png';
my $gp = gpwin('pngcairo', font => ",12", output => $plot_output_path, aa => 2, size => [10] );
my @qual_cmap = ('#a6cee3','#1f78b4','#b2df8a','#33a02c','#fb9a99','#e31a1c','#fdbf6f','#ff7f00','#cab2d6');
$gp->options(
map {
lib/AI/TensorFlow/Libtensorflow/Manual/Notebook/InferenceUsingTFHubCenterNetObjDetect.pod view on Meta::CPAN
sprintf("%s: %.1f",
$subset{detection_class_labels}[$idx],
100*$subset{detection_scores}->at($idx,0) ) =>
at => $label_xy, 'left',
offset => 'character 0,-0.25',
qq{font ",12" boxed front tc rgb "#ffffff"} ], ],
)
} 0..$subset{detection_boxes}->dim(1)-1
);
$gp->plot(
view release on metacpan or search on metacpan
doc/examples/petmarket/petmarket/api/stringresourcesservice.pm view on Meta::CPAN
sub getLegalStrings()
{
my ($self) = @_;
my %strings;
$strings{"HEAD_str"} = "LEGAL INFORMATION";
$strings{"BODY_HTML_str"} = "Copyright © 2001-2002 Macromedia, Inc. All rights reserved. Macromedia, the Macromedia logo, and Flash are trademarks or registered trademarks of Macromedia, Inc.\n \nMany of the images used in this experience were ...
$strings{"logoFrameLabel"} = "macr";
$strings{"url"} = "http://www.macromedia.com";
return \%strings;
}
doc/examples/petmarket/petmarket/api/stringresourcesservice.pm view on Meta::CPAN
sub getAffiliateStrings()
{
my ($self) = @_;
my %strings;
$strings{"HEAD_str"} = "SITE DESIGN";
$strings{"BODY_HTML_str"} = "We chose Popular Front to design the Pet Market shopping experience because of their demonstrated ability to enhance user experiences with our technologies. Popular Front has created numerous award-winning solutions t...
$strings{"logoFrameLabel"} = "PopularFront";
$strings{"url"} = "http://www.popularfront.com";
return \%strings;
}
view release on metacpan or search on metacpan
lib/ANSI/Palette.pm view on Meta::CPAN
=cut
=head2 palette_8
prints a font color palette containing the 8 base colors
\e[Nm
31 32 33 34 35 36 37
=cut
=head2 palette_16
prints a font color palette containing the 8 base colors and the bright variation.
\e[Nm
30 31 32 33 34 35 36 37
\e[N;1m
30 31 32 33 34 35 36 37
=cut
=head2 palette_256
prints a font color palette containing the extended 256 terminal colour codes.
\e[38;5;Nm
0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
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')
."</font>"
# 'Error', 'Warning',
# 'Executing', 'Done'('Success', 'Error')
}
if !$cmsg || (ref($cmsg) ne 'CODE');
my $emsg =sub{
view release on metacpan or search on metacpan
infra/mkchanges.pl view on Meta::CPAN
</tr>";
}
if($beenthere) {
print "</font></td></tr>\n";
}
$count++;
my ($bgc) = "\#dddddd";
$bgc = "\#eeeeee" if($count % 2);
print "<tr bgcolor='$bgc'><td width='10%'>($who)</td><td width='90%'>";
$beenthere = 1;
if($cc eq "!") {
print "<font color='red'>";
} else {
print "<font color='black'>";
}
print "$_ \n";
} else {
s/^\s+//g;
print "$_ ";
infra/mkchanges.pl view on Meta::CPAN
</table>
<P>
The following lists the changes that have been made
for each release of ARSperl.
<P>
Items in <font color='red'>red</font>
denote changes that are incompatible with
previous versions of ARSperl and may require altering of some ARSperl
scripts.<P>
";
}
view release on metacpan or search on metacpan
applications/collector-test.pl view on Meta::CPAN
my $c = new XYChart($width, $hight, $background, 0x0, 0);
# Set the plotarea at (xOffset, yOffset) and of size $width - 95 x $hight - 78 pixels, with white background. Set border and grid line colors.
$c->setPlotArea($xOffset, $yOffset, $width - 95, $hight - 78, 0xffffff, -1, 0xa08040, $c->dashLineColor(0x0, 0x0101), $c->dashLineColor(0x0, 0x0101))->setGridWidth(1);
# Add a title box to the chart using 10 pts Arial Bold Italic font. The text is white (0x000000)
$c->addText($width/2, 14, "$title", "arialbi.ttf", 10, 0x000000, 5, 0);
# Set labels on the x axis
unless ( $xRealtime ) {
for ($counter = 0; $counter < $limitTest; $counter += $xLabelStep) {
view release on metacpan or search on metacpan
lib/ASP4/ErrorHandler.pm view on Meta::CPAN
<style type="text/css">
HTML,BODY {
background-color: #FFFFFF;
}
HTML,BODY,P,DIV {
font-family: Arial, Helvetica, Sans-Serif;
}
HTML,BODY,P,PRE,DIV {
font-size: 12px;
}
H1 {
font-size: 50px;
font-weight: bold;
}
PRE {
padding-right: 10px;
line-height: 16px;
}
lib/ASP4/ErrorHandler.pm view on Meta::CPAN
.label {
text-align: right;
padding-right: 5px;
float: left;
width: 80px;
font-weight: bold;
}
.info {
float: left;
color: #CC0000;
}
view release on metacpan or search on metacpan
lib/ASP4x/Captcha/Imager.pm view on Meta::CPAN
$img->box(
filled => 1,
color => eval { $Config->system->settings->captcha_bg_color } || 'white'
);
my $font = Imager::Font->new( $s->font );
my @colors = qw(
A9A9A9 878787 656565 808080
CACACA EFEFEF DEDEDE CDCDCD
BABABA A9A9A9 878787 656565
lib/ASP4x/Captcha/Imager.pm view on Meta::CPAN
for( 1..int(rand() * @colors) )
{
push @colors, shift(@colors);
}
my $color = $colors[0];
$font->align(
halign => 'center',
valign => 'center',
string => $chars[$idx],
size => $charHeight,
image => $img,
lib/ASP4x/Captcha/Imager.pm view on Meta::CPAN
return ( $word, $key );
}# end generate_pair()
sub font
{
my $s = shift;
return ( file => $Config->system->settings->captcha_font );
}# end font()
1;# return true:
=pod
lib/ASP4x/Captcha/Imager.pm view on Meta::CPAN
"system": {
...
"settings": {
...
"captcha_key": "Some random string of any length",
"captcha_font": "@ServerRoot@/etc/LiberationSans-Regular.ttf",
"captcha_width": 140,
"captcha_height": 40,
"captcha_bg_color": "FFFFFF",
"captcha_length": 4
...
lib/ASP4x/Captcha/Imager.pm view on Meta::CPAN
=back
=head2 What About Fonts?
Because Linux systems tend to put fonts in several different places, I recommend
copying the font file (*.ttf) into the C<etc/> folder of your website and referencing it
(just like you see in the C<t/> folder of this distribution and in the SYNOPSIS example above.
Mono-space fonts are recommended over variable-width fonts. So, "Courier New" is
recommended over Verdana.
=head1 SEE ALSO
L<ASP4>, L<Imager>
view release on metacpan or search on metacpan
$msg =~ s/\[(?:c|code)=(.+?)\](?s)(.+?)\[\/(?:c|code)\]/code_tag($2, $1)/ge;
$do_f[9] = '' if $do_f[9];
$msg =~ s/\[(img|right_img|left_img)\](.+?)\[\/img\]/fix_image($1, $2)/ge if ! $AUBBC{no_img};
$msg =~ s/\[email\](?![\w\.\-\&\+]+\@[\w\.\-]+).+?\[\/email\]/\[<font color=red>$BAD_MESSAGE<\/font>\]email/g;
$AUBBC{protect_email}
? $msg =~ s/\[email\]([\w\.\-\&\+]+\@[\w\.\-]+)\[\/email\]/protect_email($1)/ge
: $msg =~ s/\[email\]([\w\.\-\&\+]+\@[\w\.\-]+)\[\/email\]/link_check("mailto:$1",$1,'','')/ge;
$msg =~ s/\[color=([\w#]+)\](?s)(.+?)\[\/color\]/<span style="color:$1;">$2<\/span>/g;
sub fix_image {
my ($tmp2, $tmp) = @_;
if (check_access('img')) {
if ($tmp !~ m/\A\w+:\/\/|\// || $tmp =~ m/\?|\#|\.\bjs\b\z/i) {
$tmp = "[<font color=red>$BAD_MESSAGE</font>]$tmp2";
}
else {
$tmp2 = '' if $tmp2 eq 'img';
$tmp2 = ' align="right"' if $tmp2 eq 'right_img';
$tmp2 = ' align="left"' if $tmp2 eq 'left_img';
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;
border-right: 1px solid #666699;
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;
border-left: 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;
}
view release on metacpan or search on metacpan
Ace/Browser/AceSubs.pm view on Meta::CPAN
=cut
sub AceError {
my $msg = shift;
PrintTop(undef,undef,'Error');
print CGI::font({-color=>'red'},$msg);
PrintBottom();
Apache->exit(0) if defined &Apache::exit;
exit(0);
}
Ace/Browser/AceSubs.pm view on Meta::CPAN
print
p("Multiple $report objects correspond to $symbol.",
"Please choose one:"),
ol(
li([
map {ObjectLink($_,font({-color=>'red'},$_->class).': '.$_)} @$objects
])
);
PrintBottom();
}
Ace/Browser/AceSubs.pm view on Meta::CPAN
sub AceNotFound {
my $class = shift || param('class');
my $name = shift || param('name');
PrintTop(undef,undef,"$class: $name not found");
print p(font({-color => 'red'},
strong("The $class named \"$name\" is not found in the database.")));
PrintBottom();
Apache->exit(0) if defined &Apache::exit;
exit(0);
}
Ace/Browser/AceSubs.pm view on Meta::CPAN
push @row,a({-href=>$url},img({-src=>$image,-border=>0,
-width=>$size->[0],-height=>$size->[1],
-alt=>$name}));
} else {
push @row,$active ? font({-color=>'black'},$name) : a({-href=>$url,-class=>'searchbanner'},$name);
}
}
my ($home,$label) = @{$config->Home} if $config->Home;
Ace/Browser/AceSubs.pm view on Meta::CPAN
} else {
$open{$section}++;
$img = img({-src=>'/ico/triangle_right.gif',-alt=>'>',
-height=>11,-width=>6,-border=>0}),
my $plural = ($addplural and $label !~ /s$/) ? "${label}s" : "$label";
$label = font({-class=>'toggle'},!$addcount ? $plural : "$count $plural");
}
param(-name=>'open',-value=>join(' ',keys %open));
my $url = url(-absolute=>1,-path_info=>1,-query=>1);
my $link = a({-href=>"$url#$section",-name=>$section},$img.' '.$label);
Ace/Browser/AceSubs.pm view on Meta::CPAN
unless ($active) {
$cell = defined $icon ? a({-href=>$u,-target=>'_top'},
img({-src=>$icon,-border=>0}).br().$label)
: a({-href=>$u,-target=>'_top'},$label);
} else {
$cell = defined $icon ? img({-src=>$icon,-border=>0}).br().font({-color=>'red'},$label)
: font({-color=>'red'},$label);
}
push (@rows,td({-align=>'CENTER',-class=>'small'},$cell));
}
return table({-width=>'100%',-border=>0,-class=>'searchtitle'},
TR({-valign=>'bottom'},@rows));
view release on metacpan or search on metacpan
lib/Acme/BadFont.pm view on Meta::CPAN
1;
__END__
=head1 NAME
Acme::BadFont - Cope with a bad font in your editor
=head1 SYNOPSIS
use warnings;
use Acme::BadFont;
lib/Acme/BadFont.pm view on Meta::CPAN
my $d = "I.S";
print $d * 2, "\n"; # 3
=head1 DESCRIPTION
If the font in your editor is bad, this module will help by fixing the numbers
in your strings.
=head1 AUTHOR
haarg - Graham Knop (cpan:HAARG) <haarg@haarg.org>
view release on metacpan or search on metacpan
slate inspecting abate lags thirdly insults sites Rankin Alva ruler vent
trims sum Ian Augean polled bat refereed instant Reese lie belts
dues west starter dues attest Boers inset worships relates lotus it
balls emotion dart proving fain Salle approver dialer Santo sir artists
goes briny Angelo Aleut Tunis Brian Cohn rolls bleat drum nests
merits grunts Dana Lana rooster train leathered Clara laser Owen font
boo UniSoft casts vistas rises doodle Pratt elite en minor Hegel
laser dent begs bee aborts pours Cray idea babbled gated nulls
Caribbean ocean Astor bottlers slider snail chasteness Auriga gnat soup erasers
sip Wellington realist Orion councilman nearest sang sue traps stare urinated
hull guns garland Paine Hettie souls Rickettsia adorns gnat nurses Gunnar
view release on metacpan or search on metacpan
devdata/davidgaramond view on Meta::CPAN
<link rel="stylesheet" type="text/css" href="//cdn.perl.org/perlweb/css/cpanratings.css" />
<link rel="stylesheet" type="text/css" href="//cdn.perl.org/perlweb/css/perlweb_bootstrap.min.css" />
<!-- Fonts -->
<link href='https://fonts.googleapis.com/css?family=Lato:400,100,300,700,900' rel='stylesheet' type='text/css'>
<!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
<!--[if lt IE 9]>
<script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
<script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
view release on metacpan or search on metacpan
devdata/perlancar view on Meta::CPAN
<link rel="stylesheet" type="text/css" href="//cdn.perl.org/perlweb/css/cpanratings.css" />
<link rel="stylesheet" type="text/css" href="//cdn.perl.org/perlweb/css/perlweb_bootstrap.min.css" />
<!-- Fonts -->
<link href='https://fonts.googleapis.com/css?family=Lato:400,100,300,700,900' rel='stylesheet' type='text/css'>
<!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
<!--[if lt IE 9]>
<script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
<script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-10-29'; # DATE
our $DIST = 'Acme-CPANModules-Import-CPANRatings-User-stevenharyanto'; # DIST
our $VERSION = '0.002'; # VERSION
our $LIST = {description=>"This list is generated by scraping CPANRatings (cpanratings.perl.org) user page.",entries=>[{description=>"\n(REMOVED)\n",module=>"Log::Any",rating=>undef},{description=>"\nProvides a thin/lightweight OO interface for \$?, ...
1;
# ABSTRACT: List of modules mentioned by CPANRatings user stevenharyanto
__END__
lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm view on Meta::CPAN
=item L<Games::2048>
Author: L<BLAIZER|https://metacpan.org/author/BLAIZER>
My favorite 2048 implementation (it's text-mode, written in Perl, uses my module Color::ANSI::Util, and what else... oh yeah, it's the only implementation where I've reached 2048 :-) ).
<br><br>One tip: enlarge the fonts of your terminal emulator (e.g. Ctrl-+ on Konsole) until it's big and convenient enough.
=item L<App::D>
Author: L<BESSARABV|https://metacpan.org/author/BESSARABV>
view release on metacpan or search on metacpan
lib/Acme/CPANModules/NewDistributions/202001.pm view on Meta::CPAN
summary => "create a backup copy of the file.",
},
{
description => "Distribution Font-Fontconfig first released by VANHOESEL at 2020-01-20T16:38:30Z.",
module => "Font::Fontconfig",
summary => "An Object Oriented interface to fontconfig",
},
{
description => "Distribution Font-Selector first released by VANHOESEL at 2020-01-21T08:20:21Z.",
module => "Font::Selector",
summary => "select the right font for rendering",
},
{
description => "Distribution Geo-Coder-DAMS first released by BOKUTIN at 2020-01-04T19:00:11Z.",
module => "Geo::Coder::DAMS",
summary => "Perl bindings for Japanese Geocoder DAMS",
lib/Acme/CPANModules/NewDistributions/202001.pm view on Meta::CPAN
=item * L<File::BackupCopy> - create a backup copy of the file.
Distribution File-BackupCopy first released by SGRAY at 2020-01-20T07:48:10Z.
=item * L<Font::Fontconfig> - An Object Oriented interface to fontconfig
Distribution Font-Fontconfig first released by VANHOESEL at 2020-01-20T16:38:30Z.
=item * L<Font::Selector> - select the right font for rendering
Distribution Font-Selector first released by VANHOESEL at 2020-01-21T08:20:21Z.
=item * L<Geo::Coder::DAMS> - Perl bindings for Japanese Geocoder DAMS
view release on metacpan or search on metacpan
devdata/https_mojolicious.io_blog_2018_12_05_compound-selectors_ view on Meta::CPAN
my $grand = sum( @scores );
say "Grand total: $grand";
</code></pre>
<p><em style="font-size: 10px">
Editor's note: Unfortunately this example breaks our syntax highlighter. This is the site's fault not the author. We're trying to find a better way to render it short of rewriting the rendering engine.
</em></p>
<h2>Conclusion</h2>
view release on metacpan or search on metacpan
slides/index.html view on Meta::CPAN
a:hover {
text-decoration: underline;
}
p {
font-size: 24pt;
margin: 6pt;
}
div p {
font-size: 18pt;
margin-top: 12pt;
margin-bottom: 12pt;
margin-left: 6pt;
margin-right: 6pt;
}
small {
font-size: 9pt;
font-style: italic;
}
#topbar {
background: lightblue;
color: blue;
view release on metacpan or search on metacpan
lib/Acme/Curses/Marquee/EVIL.pm view on Meta::CPAN
open(BASE, '<', $INC{'Acme/Curses/Marquee.pm'}) || die $!;
$_ = join('', <BASE>);
close(BASE);
my $pp = <<'PPF';
my @fig = $self->{_font}->{$self->{font}}->figify(-A=>$text,-w=>-1);
PPF
s/^[^#]*(?:qx.|`)figlet.*$/$pp/m;
#For some reasons being conservative causes compilation to fail :-(
#s/^(.*use\s+warnings.+)$/\1no warnings 'redefined';/m;
view release on metacpan or search on metacpan
lib/Acme/Curses/Marquee.pm view on Meta::CPAN
# spawn subwindow to hold marquee and create marquee object
my $mw = subwin(9,80,0,0);
my $m = Acme::Curses::Marquee->new( window => $mw,
height => 9,
width => 80,
font => larry3d,
text => 'hello, world' );
# then, in the event loop
while (1) {
my $ch = getch;
lib/Acme/Curses/Marquee.pm view on Meta::CPAN
C<window> should be a curses window that the marquee can write
to. C<height> and C<width> should be the height and width of that
window, in characters.
There are also two optional arguments: C<font>, which sets the figlet
font of the marquee (defaults to the figlet default, 'standard'), and
C<text> which will set an initial string to be displayed and cause the
marquee to start display as soon as it is created.
=cut
lib/Acme/Curses/Marquee.pm view on Meta::CPAN
unless( defined $args{width} );
my $self = bless { win => $args{window},
height => $args{height},
width => $args{width},
font => $args{font} || 'standard',
srctxt => $args{text} || undef,
figtxt => '',
txtlen => 0,
offset => 0,
active => 0,
lib/Acme/Curses/Marquee.pm view on Meta::CPAN
=cut
sub text {
my ($self,$text) = @_;
my $font = $self->{font};
my $width = length($text) * 12;
my $line = 0;
# render text via figlet
my @fig = split(/\n/,`figlet -f $font -w $width '$text'`);
# find longest line length
foreach my $i (0..(@fig - 1)) {
$line = length($fig[$i]) if (length($fig[$i]) > $line);
}
lib/Acme/Curses/Marquee.pm view on Meta::CPAN
$self->{srctxt} = $text;
$self->{txtlen} = length($fig[0]);
$self->{figtxt} = \@fig;
}
=head2 font
Sets the font of the marquee object and then calls C<text> to make the
display change.
$m->font('univers')
This method should not be called before the marquee object is active.
No checking is done to ensure the spacified font exists.
=cut
sub font {
my ($self,$font) = @_;
$self->{font} = $font;
$self->text($self->{srctxt});
}
=head2 is_active
view release on metacpan or search on metacpan
# ------
# String rendering routine; leverages on GLUT routine.
sub ourPrintString
{
my ($font, $str) = @_;
my @c = split '', $str;
for(@c)
{
glutBitmapCharacter($font, ord $_);
}
}
# ------