Result:
found more than 356 distributions - search limited to the first 2001 files matching your query
( run in 1.344 )
App-WIoZ
view release on metacpan or search on metacpan
my $File = $ARGV[0];
&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) {
App-Web-VPKBuilder
view release on metacpan or search on metacpan
static/index.css view on Meta::CPAN
ul {
list-style-type: none;
}
.level1 > span.name {
font-size: 150%;
}
.level2 > span.name {
font-weight: bold;
display: block;
}
.level2 {
display: inline-block;
App-Widget-ChartDirector
view release on metacpan or search on metacpan
lib/App/Widget/ChartDirector.pm view on Meta::CPAN
}
}
my $graph_height_increment = 0;
my $fontsize = 10;
if ($spec->{x_label_pos}) {
if ($#$x > 30 && $total_x_length > $width/8 && $x->[0] !~ /^[0-9]{4}-[0-9]{2}-[0-9]{2}$/) {
for (my $i = 30; $i <= $#$x; $i++ ) {
$fontsize = $fontsize - 0.1;
$fontsize = 1 if ($fontsize < 1);
}
$fontsize += ceil(($width - $spec->{width})/$#$x) - 1 if ($#$x > 50);
}
$self->{fontsize} = $fontsize;
if ($total_x_length > $width/8 && $x->[0] !~ /^[0-9]{4}-[0-9]{2}-[0-9]{2}$/) {
$graph_height_increment = 1/2 * $x_values[-1] * floor ($fontsize);
$height += $graph_height_increment;
}
}
my $c = new XYChart($width, $height);
lib/App/Widget/ChartDirector.pm view on Meta::CPAN
$chart->xAxis()->setLabels($x);
if ($spec->{x_label_pos}) {
$chart->xAxis()->setLabels($x)->setFontAngle(45) if ( $self->{total_x_length} > $self->{width}/8 );
$chart->xAxis()->setLabels($x)->setFontSize($self->{fontsize}, 0) if ($#$x > 30);
}
}
}
}
if ($spec->{graphtype} ne "pie" && $spec->{graphtype} ne "meter") {
lib/App/Widget/ChartDirector.pm view on Meta::CPAN
$c->addZone($y_yellow, $y_red, 0, $radius, 0xffff33);
#Set 80 - 100 as red (FF6666) zone
$c->addZone($y_red, $y_max, 0, $radius, 0xff6666);
#Add a text label centered at (100, 60) with 12 pts Arial Bold font
if ($spec->{y_title}) {
$c->addText($center_x, $center_y-int($radius * 0.35), $spec->{y_title},
"arialbd.ttf", 11, $perlchartdir::TextColor, $perlchartdir::Center);
}
lib/App/Widget/ChartDirector.pm view on Meta::CPAN
#vertical grid lines with light grey color (0xc0c0c0)
$c->setPlotArea(50, 50, 320, 260, 0xffffff)->setGridColor(0xc0c0c0, 0xc0c0c0); #720
#Add a legend box at (55, 25) (top of the chart) with horizontal layout. Use 10
#pts Arial Bold Italic font. Set the background and border color to Transparent.
$c->addLegend(55, 20, 0, "arialbi.ttf", 10)->setBackground($perlchartdir::Transparent);
#Add a title to the chart using 14 points Times Bold Itatic font, using blue
#(0x9999ff) as the background color
$c->addTitle("Rate History", "arialbi.ttf", 12)->setBackground(0x9999ff);
#Set the y axis label format to display a percentage sign
#$c->yAxis()->setLabelFormat("{value}%");
App-Widget
view release on metacpan or search on metacpan
lib/App/Widget.pm view on Meta::CPAN
<table border="1" cellspacing="0">
<tr><td bgcolor="#aaaaaa">
<b>Widget Display Error: $name</b><br>
</td></tr>
<tr><td bgcolor="#ffaaaa">
<font size="-1" face="sans-serif">
$msg
</font>
</td></tr>
</table>
EOF
}
App-XUL
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/
App-YTDL
view release on metacpan or search on metacpan
bin/getvideo view on Meta::CPAN
=head2 ffmpeg and ffprobe
The I<merge> feature requires C<ffmpeg> and C<ffprobe>.
=head2 Monospaced font
It is required a terminal that uses a monospaced font which supports the printed characters.
=head1 CREDITS
C<App::YTDL> uses L<youtube-dl|http://rg3.github.io/youtube-dl/> to get the data required for the video download.
App-Zapzi
view release on metacpan or search on metacpan
lib/App/Zapzi/Transformers/HTMLExtractMain.pm view on Meta::CPAN
my $tree = HTML::ExtractMain::extract_main_html($raw_html,
output_type => 'tree' );
if ($tree)
{
$self->_remove_fonts($tree);
$self->_optionally_deactivate_links($tree);
}
return $tree;
}
sub _remove_fonts
{
my ($self, $tree) = @_;
# Remove any font attributes as they rarely work as expected on
# eReaders - eg colours do not make sense on monochrome displays,
# font families will probably not exist.
for my $font ($tree->look_down(_tag => "font"))
{
$font->attr($_, undef) for $font->all_external_attr_names;
}
}
sub _optionally_deactivate_links
{
App-ZofCMS-PluginBundle-Naughty
view release on metacpan or search on metacpan
lib/App/ZofCMS/Plugin/Captcha.pm view on Meta::CPAN
my $image = GD::SecurityImage->new(
width => $conf->{width},
height => $conf->{height},
lines => $conf->{lines},
gd_font => 'giant'
);
$image->random( $conf->{string} );
$image->create('normal', @$conf{qw/style tcolor lcolor/} );
App-ZofCMS
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
App-ansicolumn
view release on metacpan or search on metacpan
option --board-color \
--bs=inner-box \
--cm=BORDER=$<2>,TEXT=$<shift>/$<shift>
The resulting text is displayed in an _fg-color_ font on an
_bg-color_ panel.
- **--white-board**
- **--black-board**
- **--green-board**
App-ccdiff
view release on metacpan or search on metacpan
lib/App/ccdiff.pm view on Meta::CPAN
chr_eli : U+2508
Defines the character used to indicate omitted text in large unchanged text
when C<--ellipsis>/C<-e> is in effect.
This character is not equally well visible on all terminals or in all fonts,
so you might want to change it to something that stands out better in your
environment. Possible suggestions:
… U+2026 HORIZONTAL ELLIPSIS
‴ U+2034 TRIPLE PRIME
App-clipbored
view release on metacpan or search on metacpan
bin/clipbored view on Meta::CPAN
CLIPBORED_DMENU_LISTMODE regular/vertical
CLIPBORED_DMENU_NORMAL_FG foreground color in HEX
CLIPBORED_DMENU_NORMAL_BG background color in HEX
CLIPBORED_DMENU_SELECT_FG selected item background color in HEX
CLIPBORED_DMENU_SELECT_BG selected item foreground color in HEX
CLIPBORED_DMENU_FONT font that will be used
CLIPBORED_DMENU_LINES how many lines that will be shown in vertical mode
CLIPBORED_X_SELECTION X buffer to use: primary, secondary, clipboard
=head1 AUTHOR
App-cloc
view release on metacpan or search on metacpan
'7' => 1,
'8' => 1,
'9' => 1,
'a' => 1, # Static object code.
'ad' => 1, # X application default resource file.
'afm' => 1, # font metrics
'arc' => 1, # arc(1) archive
'arj' => 1, # arj(1) archive
'au' => 1, # Audio sound filearj(1) archive
'bak' => 1, # Backup files - we only want to count the "real" files.
'bdf' => 1,
$color = "#0000ff";
} elsif ($color =~ /^grey$/i) {
$color = "#cccccc";
}
# return "" unless $text;
return '<font color="' . $color . '">' . html_metachars($text) . "</font>";
} # 1}}}
sub xml_metachars { # {{{1
# http://en.wikipedia.org/wiki/Character_encodings_in_HTML#XML_character_references
my ($string, ) = shift @_;
<style TYPE="text/css">
<!--
body {
color: black;
background-color: white;
font-family: monospace
}
.whitespace {
background-color: gray;
}
.comment {
color: gray;
font-style: italic;
}
.clinenum {
color: red;
}
App-combinesheets
view release on metacpan or search on metacpan
docs/App-combinesheets.html view on Meta::CPAN
<style type="text/css">
<!--/*--><![CDATA[/*><!--*/
BODY {
background: white;
color: black;
font-family: arial,sans-serif;
margin: 0;
padding: 1ex;
}
A:link, A:visited {
docs/App-combinesheets.html view on Meta::CPAN
}
.pod H1 {
background: transparent;
color: #006699;
font-size: large;
}
.pod H1 A { text-decoration: none; }
.pod H2 A { text-decoration: none; }
.pod H3 A { text-decoration: none; }
.pod H4 A { text-decoration: none; }
.pod H2 {
background: transparent;
color: #006699;
font-size: medium;
}
.pod H3 {
background: transparent;
color: #006699;
font-size: medium;
font-style: italic;
}
.pod H4 {
background: transparent;
color: #006699;
font-size: medium;
font-weight: normal;
}
.pod IMG {
vertical-align: top;
}
App-contenttype
view release on metacpan or search on metacpan
script/contenttype view on Meta::CPAN
application/dssc+xml xdssc
application/ecmascript ecma
application/ecmascript es
application/emma+xml emma
application/exi exi
application/font-tdpfr pfr
application/hyperstudio stk
application/inkml+xml ink
application/ipfix ipfix
application/javascript js
application/javascript jsm
script/contenttype view on Meta::CPAN
application/vnd.ms-excel xlt
application/vnd.ms-excel.addin.macroenabled.12 xlam
application/vnd.ms-excel.sheet.binary.macroenabled.12 xlsb
application/vnd.ms-excel.sheet.macroenabled.12 xlsm
application/vnd.ms-excel.template.macroenabled.12 xltm
application/vnd.ms-fontobject eot
application/vnd.ms-ims ims
application/vnd.ms-lrm lrm
application/vnd.ms-officetheme thmx
application/vnd.ms-pki.certstore sst
application/vnd.ms-pki.pko pko
script/contenttype view on Meta::CPAN
application/x-excel xlm
application/x-excel xlv
application/x-excel xlw
application/x-fictionbook+xml fb2
application/x-fluid fl
application/x-font gsf
application/x-font pcf
application/x-font pcf.z
application/x-font pfa
application/x-font pfb
application/x-font-bdf bdf
application/x-font-linux-psf psf
application/x-font-otf otf
application/x-font-snf snf
application/x-font-ttf ttc
application/x-font-ttf ttf
application/x-font-ttx ttx
application/x-font-type1 afm
application/x-font-type1 pfm
application/x-font-woff woff
application/x-fractals fif
application/x-freearc arc
application/x-freeloader frl
application/x-freemind mm
application/x-futuresplash spl
App-diceware
view release on metacpan or search on metacpan
share/wordlist_en.tsv view on Meta::CPAN
31265 follow
31266 fondling
31311 fondly
31312 fondness
31313 fondue
31314 font
31315 food
31316 fool
31321 footage
31322 football
31323 footbath
App-docsisious
view release on metacpan or search on metacpan
lib/App/docsisious/public/icons/flaticon.css view on Meta::CPAN
@font-face {
font-family: "Flaticon";
src: url("flaticon.eot");
src: url("flaticon.eot#iefix") format("embedded-opentype"),
url("flaticon.woff") format("woff"),
url("flaticon.ttf") format("truetype"),
url("flaticon.svg") format("svg");
font-weight: normal;
font-style: normal;
}
[class^="flaticon-"]:before, [class*=" flaticon-"]:before,
[class^="flaticon-"]:after, [class*=" flaticon-"]:after {
font-family: Flaticon;
font-size: 20px;
font-style: normal;
margin-left: 20px;
}
.flaticon-download164:before { content: "\e000"; }
.flaticon-fullscreen4:before { content: "\e001"; }
.flaticon-gear39:before { content: "\e002"; }
App-financeta
view release on metacpan or search on metacpan
lib/App/financeta/gui.pm view on Meta::CPAN
my %tabs = $self->get_tab_names($win);
$log->debug("Current tabs: ", dumper(\%tabs));
my $result = {};
$w->insert(Label => name => 'label_tabs',
text => 'Select Security',
font => { style => fs::Bold, height => 16 },
alignment => ta::Left,
autoHeight => 1,
autoWidth => 1,
origin => [20, 240],
hint => 'This is a list of already open tabs',
lib/App/financeta/gui.pm view on Meta::CPAN
hScroll => 0,
multiSelect => 0,
multiColumn => 0,
dragable => 0,
focusedItem => -1,
font => { height => 14 },
items => ['', keys %tabs],
origin => [180, 240],
onChange => sub {
my $cbox = shift;
my $owner = $cbox->owner;
lib/App/financeta/gui.pm view on Meta::CPAN
},
);
$w->cbox_tabs->text('');
$w->insert(Label => name => 'label_inds',
text => 'Select Indicator',
font => { style => fs::Bold, height => 16 },
alignment => ta::Left,
autoHeight => 1,
autoWidth => 1,
origin => [20, 200],
hint => 'These indicators are already present in the selected tab',
lib/App/financeta/gui.pm view on Meta::CPAN
name => 'cbox_inds',
style => cs::DropDownList,
height => 30,
width => 360,
hScroll => 0,
font => { height => 14 },
multiSelect => 0,
multiColumn => 0,
dragable => 0,
focusedItem => -1,
text => '',
lib/App/financeta/gui.pm view on Meta::CPAN
autoWidth => 1,
origin => [ 20, 20 ],
modalResult => mb::Cancel,
default => 0,
enabled => 1,
font => { height => 16, style => fs::Bold },
onClick => sub {
$result = {};
},
);
$w->insert(
lib/App/financeta/gui.pm view on Meta::CPAN
autoWidth => 1,
origin => [ 150, 20 ],
modalResult => mb::Ok,
default => 1,
enabled => 0,
font => { height => 16, style => fs::Bold },
onClick => sub {
my $btn = shift;
my $owner = $btn->owner;
my $indicators = $self->get_tab_indicators($owner->owner, $result->{tab});
my @inds = ();
lib/App/financeta/gui.pm view on Meta::CPAN
alignment => ta::Left,
autoHeight => 1,
autoWidth => 1,
origin => [$origin[0] + 10,
$origin[1] + $count * $sz_y - 40],
font => {height => 16},
);
}
foreach my $p (reverse @$params) {
next unless ref $p eq 'ARRAY';
my $hkey = $p->[0];
lib/App/financeta/gui.pm view on Meta::CPAN
alignment => ta::Left,
autoHeight => 1,
autoWidth => 1,
origin => [$origin[0] + 10,
$origin[1] + $count * $sz_y - 40],
font => {height => 13},
);
$gbox->insert(ComboBox => style => cs::DropDownList,
name => "cbox_$grp\_$count",
height => 30,
width => $sz_x - 50,
autoHeight => 1,
font => { height => 16 },
hScroll => 0,
multiSelect => 0,
multiColumn => 0,
dragable => 0,
focusedItem => -1,
lib/App/financeta/gui.pm view on Meta::CPAN
alignment => ta::Left,
autoHeight => 1,
autoWidth => 1,
origin => [$origin[0] + 10,
$origin[1] + $count * $sz_y - 40],
font => {height => 13},
);
$gbox->insert(InputLine => name => "input_$grp\_$count",
alignment => ta::Left,
autoHeight => 1,
width => $sz_x - 50,
autoTab => 1,
maxLen => 20,
origin => [$origin[0] + 10 + $sz_x,
$origin[1] + $count * $sz_y - 40],
text => $value,
font => {height => 16},
onChange => sub {
my $il = shift;
my $val = undef;
my $txt = $il->text;
return unless length $txt;
lib/App/financeta/gui.pm view on Meta::CPAN
alignment => ta::Left,
autoHeight => 1,
autoWidth => 1,
origin => [$origin[0] + 10,
$origin[1] + $count * $sz_y - 40],
font => {height => 13},
hint => 'This should be a comma-separated list of integers',
);
$gbox->insert(InputLine => name => "input_$grp\_$count",
alignment => ta::Left,
autoHeight => 1,
lib/App/financeta/gui.pm view on Meta::CPAN
autoTab => 1,
maxLen => 256,
origin => [$origin[0] + 10 + $sz_x,
$origin[1] + $count * $sz_y - 40],
text => $value,
font => {height => 16},
onChange => sub {
my $il = shift;
my $val = undef;
my $txt = $il->text;
return unless length $txt;
lib/App/financeta/gui.pm view on Meta::CPAN
alignment => ta::Left,
autoTab => 1,
origin => [$origin[0] + 10,
$origin[1] + $count * $sz_y - 40],
text => $label,
font => {height => 13},
onCheck => sub {
my $chk = shift;
$self->current->{indicator}->{params}->{$hkey} =
$chk->checked ? 1 : 0;
},
lib/App/financeta/gui.pm view on Meta::CPAN
$w->owner($win) if defined $win;
$self->current->{indicator} = {}; # reset
my @groups = $self->indicator->get_groups;
$w->insert(Label => name => 'label_groups',
text => 'Select Group',
font => { style => fs::Bold, height => 16 },
alignment => ta::Left,
autoHeight => 1,
autoWidth => 1,
origin => [20, 440],
hint => 'This is a list of indicator groups',
lib/App/financeta/gui.pm view on Meta::CPAN
hScroll => 0,
multiSelect => 0,
multiColumn => 0,
dragable => 0,
focusedItem => -1,
font => { height => 14 },
items => [ '', @groups],
origin => [180, 440],
onChange => sub {
my $cbox = shift;
my $owner = $cbox->owner;
lib/App/financeta/gui.pm view on Meta::CPAN
},
);
$w->cbox_groups->text('');
$w->insert(Label => name => 'label_funcs',
text => 'Select Function',
font => { style => fs::Bold, height => 16 },
alignment => ta::Left,
autoHeight => 1,
autoWidth => 1,
origin => [20, 400],
hint => 'Each indicator group has multiple indicators it supports',
lib/App/financeta/gui.pm view on Meta::CPAN
name => 'cbox_funcs',
style => cs::DropDownList,
height => 30,
width => 360,
hScroll => 0,
font => { height => 14 },
multiSelect => 0,
multiColumn => 0,
dragable => 0,
focusedItem => -1,
text => '',
lib/App/financeta/gui.pm view on Meta::CPAN
autoWidth => 1,
origin => [ 20, 20 ],
modalResult => mb::Cancel,
default => 0,
enabled => 1,
font => { height => 16, style => fs::Bold },
onClick => sub {
delete $self->current->{indicator};
},
);
$w->insert(
lib/App/financeta/gui.pm view on Meta::CPAN
autoWidth => 1,
origin => [ 360, 20 ],
modalResult => mb::Ok,
default => 1,
enabled => 0,
font => { height => 16, style => fs::Bold },
onClick => sub {
$log->debug("Final parameters selected: ", dumper($self->current->{indicator}));
},
);
$w->insert(
lib/App/financeta/gui.pm view on Meta::CPAN
autoHeight => 1,
autoWidth => 1,
origin => [ 150, 20 ],
default => 0,
enabled => 1,
font => { height => 16, style => fs::Bold },
onClick => sub {
my $url = 'https://vikasnkumar.github.io/financeta/indicators.html';
my $ok = Browser::Open::open_browser($url, 1);
if (not defined $ok) {
message("Error finding a browser to open $url");
lib/App/financeta/gui.pm view on Meta::CPAN
);
$w->insert(GroupBox => name => 'gbox_params',
text => 'Indicator Parameters',
size => [600, 300],
origin => [20, 60],
font => { height => 16, style => fs::Bold },
);
my $res = $w->execute();
$w->end_modal;
return $res == mb::Ok;
}
App-get_flash_videos
view release on metacpan or search on metacpan
lib/FlashVideo/Site/Xnxx.pm view on Meta::CPAN
my $url = ($browser->content =~ /flv_url=(.+?)&/)[0];
$url = uri_unescape($url);
die "Unable to extract url" unless $url;
# Extract filename from page and format
$browser->content =~ /(?:<span class="style5">|<td style="font-size: 20px;">\s*)<strong>([^<]+)/;
# title_to_filename() can't extract extension from URLs like
# foo.flv?stuff - should probably change, but for now don't bother
# passing in the URL. (Will default to .flv)
my $filename = title_to_filename($1);
App-grepurl
view release on metacpan or search on metacpan
data/index.html view on Meta::CPAN
<HEAD>
<TITLE>brian d foy</TITLE>
<style type="text/css">
<!--
h1 {
font-family: impact, sans-serif;
text-align: center;
letter-spacing: 4pt;
word-spacing: 10pt;
font-weight: lighter;
}
h2 {
font-family: impact, sans-serif;
text-align: left;
letter-spacing: 4pt;
word-spacing: 10pt;
font-weight: lighter;
margin-left: 10%;
}
b.separator {
font-size: 1.2em;
vertical-align: middle;
}
p {
text-align: justify;
font-family: sans-serif;
line-height: 16pt;
}
p.menu {
background-color: yellow;
padding: 5pt;
data/index.html view on Meta::CPAN
border-color: black;
border-style: solid;
text-align: center;
margin-left: 15%;
margin-right: 15%;
font-weight: bold;
}
p.alert {
background-color: pink;
padding: 5pt;
border-width: 1pt;
border-color: black;
border-style: solid;
margin-left: 10%;
margin-right: 10%;
}
font.rss {
background-color: red;
padding: 2pt;
color: white;
padding-bottom: 0pt;
font-size: 0.7em;
font-weight: bold;
}
font.atom {
background-color: orange;
padding: 2pt;
color: white;
padding-bottom: 0pt;
font-size: 0.7em;
font-weight: bold;
}
.flow {
margin-bottom: 30pt;
margin-left: 10%;
line-height: 1.3em;
}
font.date {
color: #999;
}
font.file {
color: #999;
vertical-align: subscript;
font-size: 0.4em;
}
.icon {
color: #999;
vertical-align: subscript;
font-size: 0.4em;
}
font.secret {
color: #999;
vertical-align: subscript;
font-size: 0.7em;
}
-->
</style>
</HEAD>
data/index.html view on Meta::CPAN
<h2><a name="perl">Perl</a></h2>
<p class="flow">
I have released many <a href="https://metacpan.org/author/BDFOY/">CPAN modules and scripts</a>
<br>I am a <a href="http://pause.perl.org">PAUSE</a> admin
<br>I muse about Perl in my <a href="http://use.perl.org/~brian_d_foy/journal/">use.perl journal</a>
<br>I write about general technology issues in my <a href="http://www.oreillynet.com/pub/au/1071">O'Reilly weblog</a> <font class="rss">RSS</font> <font class="atom">Atom</font>
<br>I publish <i><a href="http://www.theperlreview.com">The Perl Review</a></i> <!--<font class="rss">RSS</font> <font class="atom">Atom</font>-->
<br>I teach Perl for <a href="http://www.stonehenge.com">Stonehenge Consulting Services, Inc.</a>
<br>I wrote <a href="http://cvs.sourceforge.net/viewcvs.py/*checkout*/brian-d-foy/CGI_MetaFAQ/CGI_MetaFAQ.html?rev=HEAD&content-type=text/html">The CGI Meta FAQ</a>
and <a href="http://www.panix.com/~comdog/brian's_guide.pod">"How To Solve Any Perl Problem"</a>
</p>
<h2><a name="articles">Articles</a></h2><!--<span style="position: relative; left: 160pt; top: -40"><font class="rss">RSS</font> <font class="atom">Atom</font></span> -->
<p class="flow">
<img src="Images/camel.jpg" alt="#"><a href="Articles/Die_and_the_Web.txt">"Die()-ing On The Web"</a>, <I>The Perl Journal</I>, <font class="date">issue 9</font>
<br><img src="Images/camel.jpg" alt="#"><a href="Articles/benchmark.1_4.txt">"Benchmarking"</A>, <I>The Perl Journal</I>, <font class="date">issue 11</font>
<br><img src="Images/camel.jpg" alt="#"><a href="http://www.ddj.com/documents/s=1498/ddj0103bpl/">"Creating a Perl Debugger"</a>, <i>Dr. Dobbs Journal</i>, <font class="date">Feb 2001</font>
<br><img src="Images/camel.jpg" alt="#"><a href="http://www.ddj.com/documents/s=1498/ddj0104pl/">"Profiling in Perl"</a>, <i>Dr. Dobbs Journal</i>, <font class="date">Mar 2001</font>
<br><img src="Images/camel.jpg" alt="#"><a href="http://www.ddj.com/documents/s=1498/ddj0103bpl/">"Creating Perl Code Graphs"</a>, <i>Dr. Dobbs Journal</i>, <font class="date">Apr 2001</font>
<br><img src="Images/camel.jpg" alt="#"><a href="http://www.ddj.com/documents/s=1498/ddj0105pl/">"Tracking Perl Module Use"</a>, <i>Dr. Dobbs Journal</i>, <font class="date">May 2001</font>
<br><img src="Images/camel.jpg" alt="#"><a href="http://www.ddj.com/documents/s=1498/ddj0106pl/">"Code Coverage In Perl"</a>, <i>Dr. Dobbs Journal</i>, <font class="date">Jun 2001</font>
<br><img src="Images/camel.jpg" alt="#"><a href="http://www.ddj.com/documents/s=1498/ddj0108pl/">"Using the Perl Debugger"</a>, <i>Dr. Dobbs Journal</i>, <font class="date">Jul 2001</font>
<br><img src="Images/camel.jpg" alt="#"><a href="http://www.theperlreview.com/Issues/v0i1.shtml">"Design Patterns: Singletons"</a>, <i>The Perl Review</i>, <font class="date">Mar 2002</font>
<br><img src="Images/camel.jpg" alt="#"><a href="http://www.theperlreview.com/Issues/v0i4.shtml">"Design Patterns: Facades"</a>, <i>The Perl Review</i>, <font class="date">Jun 2002</font>
<br><img src="Images/camel.jpg" alt="#"><a href="http://www.theperlreview.com/Issues/v0i5.shtml">"Design Patterns: Iterators"</a>, <i>The Perl Review</i>, <font class="date">Sep 2002</font>
<br><img src="Images/camel.jpg" alt="#"><a href="http://www.theperlreview.com/Issues/v0i6.shtml">"Simple RSS with Perl"</a>, <i>The Perl Review</i>, <font class="date">Nov 2002</font>
<br><img src="Images/camel.jpg" alt="#"><img src="Images/mac.jpg" alt="*"><a href="http://www.macdevcenter.com/pub/a/mac/2002/11/22/itunes_perl.html">"Controlling iTunes with Perl"</a>, MacDevCenter, <font class="date">Nov 2002</font>
<br><img src="Images/camel.jpg" alt="#">"Better Documenation Through Testing", <i>The Perl Journal</i>, <font class="date">Nov 2002</font>
<br><img src="Images/camel.jpg" alt="#">"Ruby versus Perl", <i>The Perl Journal</i>, <font class="date">Dec 2002</font>
<br><img src="Images/camel.jpg" alt="#">"Sharing Cookies", <i>The Perl Journal</i>, <font class="date">Jan 2003</font>
<br><img src="Images/mac.jpg" alt="*"><a href="http://www.macdevcenter.com/pub/a/mac/2003/01/17/itunes.html">"Cleaning iTunes"</a>, MacDevCenter, <font class="date">Jan 2003</font>
<br><img src="Images/camel.jpg" alt="#">"Amazon.com Wish Lists", <i>The Perl Journal</i>, <font class="date">Feb 2003</font>
<br><img src="Images/camel.jpg" alt="#">"Creating Perl Application Distributions", <i>The Perl Journal</i>, <font class="date">Mar 2003</font>
<br><img src="Images/camel.jpg" alt="#">"Google and Perl", <i>The Perl Journal</i>, <font class="date">May 2003</font>
<br><img src="Images/camel.jpg" alt="#">"CPAN in the Desert", <i>The Perl Journal</i>, <font class="date">Jan 2004</font>
</p>
<h2><a name="talks">Talks, Presentations & Interviews</a></h2>
<p class="flow">
<img src="Images/camel.jpg" alt="#">"CHTTP: A Verbose Web Agent", First Perl Conference, <font class="date">Aug 1997</font>
<br><img src="Images/camel.jpg" alt="#">"Perl and the Internet", Columbia University, <font class="date">Aug 6, 1998</font>
<br><img src="Images/camel.jpg" alt="#"><a href="http://www.perl.com/pace/pub/perldocs/1999/01/foy.html">Perl Monger Interview</A> for <a href="http://www.perl.com/">Perl.com</A> (also in <a href="http://linuxtoday.com/1999/01/14/">LinuxToday</A>, <...
<br>"The Open Source Movement", Columbia University, <font class="date">Mar 1999</font>
<br><img src="Images/camel.jpg" alt="#">"Getting Started With Perl", COMDEX, <font class="date">Nov 16-17, 1999</font>
<br>"XML: What, Why, and How", Columbia University, <font class="date">Dec 8, 1999</font>
<br><img src="Images/camel.jpg" alt="#"><a href="http://www.oreillynet.com/pub/a/linux/rt/07282000/transcript.html">O'Reilly Network: "What Will Be in Perl 6?"</A> <font class="date">Aug 2000</font>
<br><img src="Images/camel.jpg" alt="#"><a href="http://www.zdnet.com/intweek/stories/news/0,4164,2610394,00.html">Inter@ctive Week: "Developers To Polish New Perl"</A>, <font class="date">Jul 31, 2000</font>
<br><img src="Images/camel.jpg" alt="#">Perl University 2000: "Perl 101", O'Reilly & Associates tutorial series, <font class="date">Oct 2000</font>
<br><img src="Images/wireless.jpg" alt="!">"Two way pagers as peer-to-peer devices", O'Reilly & Associates P2P Conference, <font class="date">Nov 2001</font>
<br><img src="Images/camel.jpg" alt="#">"Practical Perl for Scientists", MarcusEvans BioInformatics '02, <font class="date">Jun 2002</font>
<br><img src="Images/camel.jpg" alt="#"><img src="Images/mac.jpg" alt="*"> "Programming Perl on Mac OS X", O'Reilly Mac OS X Conference, <font class="date">Sep 2002</font>
</p>
<h2><a name="downloads">Downloads</a></h2>
<p class="flow">
<img src="Images/notes.jpg" alt="="><a href="abc/black_adder.abc">ABC score for "Black Adder Theme"</a>
data/index.html view on Meta::CPAN
4?V#:%8)/^[S?^PR1MGL_$0$! #N+
end
-->
<font class="secret"><a href="ls-R.txt">ls-R</a></font> <B class="separator">|</B>
Legend: <img src="Images/camel.jpg" alt="#"> Perl
<img src="Images/mac.jpg" alt="*"> Mac
<img src="Images/wireless.jpg" alt="!">Wireless
<img src="Images/notes.jpg" alt="="> Music
<img src="Images/cats.jpg" alt="^">Cats
App-jupiter
view release on metacpan or search on metacpan
share/default.css view on Meta::CPAN
.invisible {
display: none;
}
.small {
font-size: smaller;
}
a:link { color: #222; }
a:visited { color: #555; }
@media (prefers-color-scheme: dark) {
share/default.css view on Meta::CPAN
a:visited { color: #4a708b }
}
h1 {
font-size: 1.75em;
text-transform: uppercase;
letter-spacing: 0.25em;
padding: 10px;
margin: 0;
font-weight: normal;
}
/* ----------------------------- Sidebar --------------------------- */
.logo {
share/default.css view on Meta::CPAN
}
#sidebar h2 {
letter-spacing: 0.15em;
text-transform: uppercase;
font-size: .9em;
color: #222;
font-weight: bold;
padding: 3px 0px 2px 4px;
margin: 15px 0px 5px 10px;
}
@media (prefers-color-scheme: dark) {
#sidebar h2 { color: #999 }
}
#sidebar p {
font-size: .8em;
padding-left: 20px;
padding-right: 5px;
}
#sidebar ul {
font-family: sans-serif;
margin-left: 5px;
padding-left: 25px;
}
#sidebar li {
margin-left: 0px;
text-indent: -15px;
list-style-type: none;
font-size: .8em;
line-height: 1.2em;
}
#sidebar ul li a {
text-decoration: none;
share/default.css view on Meta::CPAN
#sidebar img {
border: 0;
}
#sidebar dl {
font-size: .8em;
padding-left: 1.0em;
}
#sidebar dl ul {
padding-left: 1em;
}
#sidebar dt {
margin-top: 1em;
font-weight: bold;
padding-left: 1.0em;
}
#sidebar dd {
margin-left: 2.5em;
share/default.css view on Meta::CPAN
margin-top: 5px;
}
#sidebar .button {
margin: 0 2px;
color: white;
font-weight: bold;
font-size: 80%;
padding: 2px 3px;
border-radius: 3px;
text-transform: uppercase;
}
.opml {
share/default.css view on Meta::CPAN
margin-top: 10px;
}
#body h2.date {
text-transform: none;
font-size: 1em;
color: #444;
text-align: right;
font-weight: normal;
font-family: sans-serif;
max-width:50em;
padding-right: 10px;
}
@media (prefers-color-scheme: dark) {
#body h2.date { color: #aaa; }
share/default.css view on Meta::CPAN
content: "🌞 ";
}
.paragraph {
padding: 2px;
font-size: 80%;
color: #888;
}
/* ----------------------------- Posts ---------------------------- */
share/default.css view on Meta::CPAN
.post {
margin: 30px 10px 30px 10px;
clear: left;
max-width: 50em;
line-height: 1.5em;
font-family: sans-serif;
}
.post h3 {
margin: 0 0 .5em 0;
padding: 0px;
font-size: 1.5em;
font-weight: normal;
font-family: serif;
}
.post h3 a {
color:#036;
text-decoration:none;
}
share/default.css view on Meta::CPAN
list-style: none;
display: none;
}
#sidebar h2 label:before {
content: "☰ ";
font-size: 1.2em;
}
#sidebar h2 label:hover {
cursor: pointer;
}
#toggle:checked ~ #toggled {
App-karr
view release on metacpan or search on metacpan
lib/App/karr/Cmd/AgentName.pm view on Meta::CPAN
coin cold come cook cool cope copy core cost crew crop dark data date
dawn dead deal dear debt deep deny desk diet dirt disc disk dock does
done door dose down draw drew drop drug dual duke dull dust duty each
earn ease east easy edge else even ever evil exam exec face fact fail
fair fall fame farm fast fate fear feed feel fell file fill film find
fine fire firm fish five flat fled flew flip flow fold folk fond font
food foot ford form fort four free from fuel full fund gain game gang
gate gave gear gift girl give glad goal goes gold golf gone good grab
gray grew grid grip grow gulf guru hack half hall hand hang harm hate
have head hear heat held help herb here hero high hill hint hire hold
hole holy home hope host hour huge hung hunt hurt idea inch into iron
App-mojopaste
view release on metacpan or search on metacpan
script/mojopaste view on Meta::CPAN
<meta name="description" content="A Mojolicious powered pastebin">
<meta name="viewport" content="width=device-width, initial-scale=0.9" />
%= stylesheet begin
:root {
--root-bg-color: #1d1e19;
--root-font-color: #d5d9bc;
--root-font-size: 16px;
--root-font-family: Menlo, Bitstream Vera Sans Mono, DejaVu Sans Mono, Monaco, Consolas, monospace;
--gutter: 2rem;
--nav-bg-color: #191a15;
--nav-height: 3rem;
}
script/mojopaste view on Meta::CPAN
html, body, textarea {
background: var(--root-bg-color);
}
html, body, textarea, button {
font-family: var(--root-font-family);
font-size: var(--root-font-size);
color: var(--root-font-color);
}
h2 {
margin: var(--gutter);
margin-bottom: 1rem;
script/mojopaste view on Meta::CPAN
p {
margin: 1rem var(--gutter);
}
a {
color: var(--root-font-color);
}
a:hover,
.btn:hover {
background-color: #11120f;
script/mojopaste view on Meta::CPAN
white-space: pre-wrap;
}
}
/*! Color themes for Google Code Prettify | MIT License | github.com/jmblog/color-themes-for-google-code-prettify */
.prettyprint{font-family:Menlo,Bitstream Vera Sans Mono,DejaVu Sans Mono,Monaco,Consolas,monospace;border:0!important}.pln{color:#c5c8c6}ol.linenums{margin-top:0;margin-bottom:0;color:#969896}li.L0,li.L1,li.L2,li.L3,li.L4,li.L5,li.L6,li.L7,li.L8,li...
.morris-hover{position:absolute;z-index:1000}
.morris-hover.morris-default-style{border-radius:10px;padding:6px;color:#666;background:rgba(0,0,0,0.8);font-size:12px;text-align:center}
.morris-hover.morris-default-style .morris-hover-row-label{font-weight:bold;margin:0.25em 0}
.morris-hover.morris-default-style .morris-hover-point{white-space:nowrap;margin:0.1em 0}
% end
<script type="text/javascript">
window.onkeydown = function(e) {
App-mookview
view release on metacpan or search on metacpan
lib/App/mookview.pm view on Meta::CPAN
=item * count characters
=item * support fenced code blocks in Markdown
=item * use the new font in OSX "mervericks"
=back
=head1 LICENSE
App-mqtt2job
view release on metacpan or search on metacpan
lib/App/mqtt2job.pm view on Meta::CPAN
navigation_path: [% task %]
styles:
custom_fields:
[% task %]_status:
- padding: 5px
- font-size: 12px
grid:
- grid-template-areas: "\"[% task %]_status\""
- grid-template-columns: 1fr 1fr
- grid-template-rows: auto
card:
App-news
view release on metacpan or search on metacpan
script/news view on Meta::CPAN
body {
color: #111;
background-color: #fffff8;
padding: 1ch;
max-width: 80ch;
font-size: 12pt;
font-family: Lucida Console,Lucida Sans Typewriter,monaco,DejaVu Mono,Bitstream Vera Sans Mono,monospace;
hyphens: auto;
}
@media (prefers-color-scheme: dark) {
body {
color: #7f7;
App-orgdaemon
view release on metacpan or search on metacpan
bin/org-daemon view on Meta::CPAN
}
Time::Local::timelocal(0,$m,$h,$D,$M-1,$Y);
}
}
my $small_font = 'sans 8';
my $default_early_warning = 30*60;
my $default_timeless_early_warning = 86400;
my $include_timeless;
my $time_fallback = '06:00';
my $recheck_interval;
bin/org-daemon view on Meta::CPAN
my %colargs = (
-background => ($is_early_warning ? 'orange' : 'red'),
-foreground => ($is_early_warning ? 'black' : 'white'),
);
my %smlbtnargs = (-font => $small_font);
my %t_args = (
-title => ($is_early_warning ? "Early Warning" : "Alarm!"),
%colargs,
);
bin/org-daemon view on Meta::CPAN
}
$t->Label(-text => (($is_early_warning ? "Early warning:\n" : "")
. $date->formatted_text),
-justify => 'left',
-anchor => 'nw',
-font => 'sans 24',
%colargs,
)->pack(qw(-fill x -expand 1));
my $overflow = ($is_early_warning ? "" : "+00:00");
$t->Label(-textvariable => \$overflow,
-justify => 'right',
bin/org-daemon view on Meta::CPAN
"recheck-interval=i" => \$recheck_interval,
"early-warning=i" => \$default_early_warning,
"early-warning-timeless=i" => \$default_timeless_early_warning,
"include-timeless!" => \$include_timeless,
'time-fallback=s' => \$time_fallback,
"small-font=s" => \$small_font,
'emacsclient-eval!' => \$use_emacsclient_eval,
'emacsclient-cmd=s' => \$emacsclient_fmt_cmd,
'overview-widget=s' => \$overview_widget,
'ignore-tag=s@' => \@ignore_tags,
'v|version' => \$show_version,
bin/org-daemon view on Meta::CPAN
if ($overview_widget eq 'listbox') {
$lb = $mw->Scrolled('Listbox',
-width => 100,
-height => 8,
-scrollbars => "osoe",
-font => 'Courier 9', # a fixed font
)->pack(qw(-fill both -expand 1));
$lb->bind("<Double-1>" => sub {
show_date_by_index_in_emacs(shift->xyIndex);
});
} else {
bin/org-daemon view on Meta::CPAN
)->pack(qw(-fill both -expand 1));
$lb->anchorClear;
$lb->columnWidth(0, 400);
}
$lb->Button(-padx => 0, -pady => 0, -borderwidth => 1,
-font => $small_font,
-text => 'Update',
-command => \&tk_do_one_iteration,
)->place(-relx => 1, -rely => 1, -anchor => 'se');
$mw->bind('<Control-p>' => sub { start_ptksh() });
( run in 1.344 second using v1.01-cache-2.11-cpan-ceb78f64989 )