Result:
found more than 375 distributions - search limited to the first 2001 files matching your query
( run in 5.183 )
App-SeismicUnixGui
view release on metacpan or search on metacpan
lib/App/SeismicUnixGui/big_streams/iBottomMute.pl view on Meta::CPAN
=cut
$mw = MainWindow->new;
$mw->geometry("400x50+40+0");
$mw->title("Interactive Bottom Mute");
$mw->configure( -background => $var->{_my_purple} );
$calc_rb = $mw->Radiobutton(
-text => 'CALC',
-background => $var->{_my_yellow},
-value => 'calc',
-variable => \$rb_value,
-command => [ \&set_calc ]
)->pack( -side => 'left' );
$next_rb = $mw->Radiobutton(
-text => 'NEXT',
-background => $var->{_my_yellow},
-value => 'next',
-variable => \$rb_value,
-command => [ \&set_next ]
)->pack( -side => 'left' );
$pick_rb = $mw->Radiobutton(
-text => 'PICK',
-background => $var->{_my_yellow},
-value => 'pick',
-variable => \$rb_value,
-command => [ \&set_pick ]
)->pack( -side => 'left' );
$saveNcont_rb = $mw->Radiobutton(
-text => 'Save and Continue',
-background => $var->{_my_yellow},
-value => 'saveNcont',
-variable => \$rb_value,
-command => [ \&set_saveNcont ]
)->pack( -side => 'left' );
$exit_rb = $mw->Radiobutton(
-text => 'EXIT',
-background => $var->{_my_yellow},
-value => 'exit',
-variable => \$rb_value,
-command => [ \&set_exit ]
)->pack( -side => 'left' );
App-ShellCompleter-emacs
view release on metacpan or search on metacpan
'vertical-scroll-bars' => $noop, '-vsb' => $noop,
'fullheight' => $noop, '-fh' => $noop,
'fullwidth' => $noop, '-fw' => $noop,
'maximized' => $noop, '-mm' => $noop,
'foreground-color=s' => $noop, '-fg' => $noop,
'background-color=s' => $noop, '-bg' => $noop,
'border-color=s' => $noop, '-bd' => $noop,
'cursor-color=s' => $noop, '-cs' => $noop,
'mouse-color=s' => $noop, '-ms' => $noop,
'no-bitmap-icon' => $noop, '-nbi' => $noop,
'iconic' => $noop,
App-SilverSplash
view release on metacpan or search on metacpan
htdocs/free.tmpl view on Meta::CPAN
[% PROCESS terms.tmpl %]
</div>
<!-- LOGO ************************ -->
<div class="one_third left">
<div id="custom_logo">
<a id="logo_image" href="[% provider_href %]" style="background: url([% provider_logo %]) no-repeat center center ">
<div id="gloss"> </div>
</a>
</div>
[% PROCESS powered_by.tmpl %]
</div>
App-SimpleBackuper
view release on metacpan or search on metacpan
local/lib/perl5/Module/Build.pm view on Meta::CPAN
=over
=item General Usage (L<Module::Build>)
This is the document you are currently reading. It describes basic
usage and background information. Its main purpose is to assist the
user who wants to learn how to invoke and control C<Module::Build>
scripts at the command line.
=item Authoring Reference (L<Module::Build::Authoring>)
App-SimplenoteSync
view release on metacpan or search on metacpan
bin/simplenotesync view on Meta::CPAN
my $log_level = 'info';
if ($opt->{debug}) {
$log_level = 'debug';
}
# TODO interactive/background
$logger = Log::Dispatch->new(
outputs => [
[
'Syslog',
App-Slackeria
view release on metacpan or search on metacpan
share/template.xhtml view on Meta::CPAN
table {
border-collapse: collapse;
}
td.ok {
background-color: #ccffcc;
}
td.fail {
background-color: #ffcccc;
}
div.slackeria {
position: absolute;
right: 0.5em;
App-SlideServer
view release on metacpan or search on metacpan
example/Introduction/slides.md view on Meta::CPAN
</code></pre>
</div>
## A Complete Example
<iframe style="width: 700px; height: 600px; background-color: white;"
src="slides.txt">
</iframe>
## Deploying to a Server
example/Introduction/slides.md view on Meta::CPAN
```
<!--
## Ready For Experimentation
<iframe style="width: 700px; height: 600px; background-color: white;"
src="https://metacpan.org/pod/App::SlideServer">
</iframe>
-->
## Future Work
App-SocialCalc-Multiplayer
view release on metacpan or search on metacpan
socialcalc/SocialCalcServersideUtilities.pm view on Meta::CPAN
#
# bt, br, bb, bl: number of border's definition
# layout: layout (vertical alignment, padding) definition number
# font: font definition number
# color: text color definition number
# bgcolor: background color definition number
# cellformat: cell format (horizontal alignment) definition number
# nontextvalueformat: custom format definition number for non-text values, e.g., numbers
# textvalueformat: custom format definition number for text values
# colspan, rowspan: number of cells to span for merged cells (only on main cell)
# cssc: custom css classname for cell, as text (no special chars)
socialcalc/SocialCalcServersideUtilities.pm view on Meta::CPAN
# defaultlayout:layout# - default cell layout number in cell layout list
# defaultfont:font# - default font number in sheet font list
# defaultnontextvalueformat:valueformat# - default non-text (number) value format number in sheet valueformat list
# defaulttextvalueformat:valueformat# - default text value format number in sheet valueformat list
# defaultcolor:color# - default number for text color in sheet color list
# defaultbgcolor:color# - default number for background color in sheet color list
# circularreferencecell:coord - cell coord with a circular reference
# recalc:value - on/off (on is default). If not "off", appropriate changes to the sheet cause a recalc
# needsrecalc:value - yes/no (no is default). If "yes", formula values are not up to date
#
# The Column attributes:
socialcalc/SocialCalcServersideUtilities.pm view on Meta::CPAN
globaldefaultfontstyle => "normal normal",
globaldefaultfontsize => "small",
globaldefaultfontfamily => "Verdana,Arial,Helvetica,sans-serif",
explicitStyles => {
skippedcell => "font-size:small;background-color:#CCC",
comment => "background-repeat:no-repeat;background-position:top right;background-image:url(images/sc-commentbg.gif);"
},
classnames => {
skippedcell => "",
comment => ""
socialcalc/SocialCalcServersideUtilities.pm view on Meta::CPAN
$stylestr .= "color:$sheet->{colors}->[$num];\n";
}
$num = $cell->{bgcolor} || $sheetattribs->{defaultbgcolor};
if ($num) {
$stylestr .= "background-color:$sheet->{colors}->[$num];\n";
}
$num = $cell->{cellformat};
if ($num) {
$stylestr .= "text-align:$sheet->{cellformats}->[$num];\n";
socialcalc/SocialCalcServersideUtilities.pm view on Meta::CPAN
"daynames3" => "Sun Mon Tue Wed Thu Fri Sat ",
"monthnames3" => "Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec",
"monthnames" => "January February March April May June July August September October November December",
"sheetdefaultlayoutstyle" => "padding:2px 2px 1px 2px;\nvertical-align:top;\n",
"sheetdefaultfontfamily" => "Verdana,Arial,Helvetica,sans-serif",
"linkformatstring" => '<span style="font-size:smaller;text-decoration:none !important;background-color:#66B;color:#FFF;">Link</span>', # you could make this an img tag if desired:
#"linkformatstring" => '<img border="0" src="http://www.domain.com/link.gif">',
"defaultformatdt" => 'd-mmm-yyyy h:mm:ss',
"defaultformatd" => 'd-mmm-yyyy',
"defaultformatt" => '[h]:mm:ss',
"displaytrue" => 'TRUE', # how TRUE shows when rendered
App-SourcePlot
view release on metacpan or search on metacpan
lib/App/SourcePlot.pm view on Meta::CPAN
# create the scollable text
my $T = $topFrame->Scrolled(
'Text',
-scrollbars => 'e',
-background => '#333333',
-wrap => 'none',
-width => 60,
-height => 15,
-font => '-*-Courier-Medium-R-Normal--*-120-*-*-*-*-*-*',
-setgrid => 1,
lib/App/SourcePlot.pm view on Meta::CPAN
}
}
# Set up display styles
if ($T->depth > 1) {
@bold = ('-background' => '#eeeeee', '-relief' => 'raised', '-borderwidth' => 1);
@normal = ('-background' => undef, '-relief' => 'flat');
}
else {
@bold = ('-foreground' => 'white', '-background' => 'black');
@normal = ('-foreground' => undef, '-background' => undef);
}
$T->tag(configure => 'normal', '-foreground' => 'blue');
$T->tag(configure => 'inactive', '-foreground' => 'black');
$T->tag(configure => 'selected', '-foreground' => 'red');
foreach (@COLOR_LIST) {
lib/App/SourcePlot.pm view on Meta::CPAN
my $len2 = @points;
$plotter->drawSmoothLine(@points, 'l' . $source->name())
if ($len2 > 0);
my @bold = (
'-background' => "#bbbbbb",
'-foreground' => 'black',
'-relief' => 'raised',
'-borderwidth' => 1,
);
my @normal = (
'-background' => undef,
'-foreground' => $source->color(),
'-relief' => 'flat',
);
$plotter->bindTag(
'l' . $source->name(),
App-Sqitch
view release on metacpan or search on metacpan
t/click-conf/client.xml view on Meta::CPAN
<send>chunked_optional</send>
<recv>chunked_optional</recv>
</proto_caps>
-->
<!-- Do not send clickhouse-client to background on C-z -->
<!-- <ignore_shell_suspend>true</ignore_shell_suspend> -->
<!--
Settings adjustable via command-line parameters
can take their defaults from that config file, see examples:
App-Standby
view release on metacpan or search on metacpan
lib/App/Standby/Frontend.pm view on Meta::CPAN
my ( $context, $search ) = @_;
return sub {
my $str = shift;
if ($search) {
$str =~ s/($search)/<span style='background-color: lightgreen'>$1<\/span>/g;
}
return $str;
}
},
1,
App-Syndicator
view release on metacpan or search on metacpan
TODO
* delete mutliple / mark read multiple
* trash
* folder view
* POE / AnyEvent - background and scheduled fetch
* terminal.app rendering
App-Tacochan
view release on metacpan or search on metacpan
bin/tacochan view on Meta::CPAN
}
header.header {
margin: 0 auto 2% auto;
padding-top: 5%;
background: #d44413;
color: #fff;
}
.error {
background: #3b4653 !important;
}
table td.name {
width: 150px;
font-weight: bold;
}
div.docs {
margin: 2% auto 0 auto;
padding: 20px 0 5%;
background: #eee;
color: #000;
}
div.docs h3 a {
color: #000;
}
div.docs table {
background: #fff;
}
div.docs section.example {
margin-bottom: 5px;
padding: 10px;
background: #fff;
}
__END__
=head1 NAME
App-Taskflow
view release on metacpan or search on metacpan
App-Taskflow
taskflow - a file based taskflow engine
`taskflow` is a tiny workflow engine. It could be run as a normal
process, as a background process or as a daemon.
It automates many routine tasks such as moving and deleting files,
sending emails if some new files created or other tasks.
INSTALLATION
App-Tel
view release on metacpan or search on metacpan
local/lib/perl5/Module/Build.pm view on Meta::CPAN
=over
=item General Usage (L<Module::Build>)
This is the document you are currently reading. It describes basic
usage and background information. Its main purpose is to assist the
user who wants to learn how to invoke and control C<Module::Build>
scripts at the command line.
=item Authoring Reference (L<Module::Build::Authoring>)
App-Templer
view release on metacpan or search on metacpan
examples/complex/input/dark.css view on Meta::CPAN
body {
background-color: silver;
color: black;
}
App-TermAttrUtils
view release on metacpan or search on metacpan
script/term-terminfo view on Meta::CPAN
{ type => "str", value => "\n", var => "scroll_forward" },
{ type => "str", value => "\eM", var => "scroll_reverse" },
{
type => "str",
value => "\e[%?%p1%{8}%<%t4%p1%d%e%p1%{16}%<%t10%p1%{8}%-%d%e48;5;%p1%d%;m",
var => "set_a_background",
},
{
type => "str",
value => "\e[%?%p1%{8}%<%t3%p1%d%e%p1%{16}%<%t9%p1%{8}%-%d%e38;5;%p1%d%;m",
var => "set_a_foreground",
App-Test-Generator
view release on metacpan or search on metacpan
bin/test-generator-index view on Meta::CPAN
<title>$config{package_name} Coverage Report</title>
<style>
body { font-family: sans-serif; }
table { border-collapse: collapse; width: 100%; }
th, td { border: 1px solid #ccc; padding: 8px; text-align: left; }
th { background-color: #f2f2f2; }
.low { background-color: #fdd; }
.med { background-color: #ffd; }
.high { background-color: #dfd; }
.badges img { margin-right: 10px; }
.disabled-icon {
opacity: 0.4;
cursor: default;
}
bin/test-generator-index view on Meta::CPAN
border-radius: 4px;
font-weight: bold;
color: white;
font-size: 0.9em;
}
.badge-good { background-color: #4CAF50; }
.badge-warn { background-color: #FFC107; }
.badge-bad { background-color: #F44336; }
.summary-row {
font-weight: bold;
background-color: #f0f0f0;
}
td.positive { color: green; font-weight: bold; }
td.negative { color: red; font-weight: bold; }
td.neutral { color: gray; }
/* Show cursor points on the headers to show that they are clickable */
th { background-color: #f2f2f2; cursor: pointer; }
th.sortable {
cursor: grab;
user-select: none;
white-space: nowrap;
}
bin/test-generator-index view on Meta::CPAN
}
/* Prevent child spans intercepting drag events so enter/leave fire only on the th */
th.sortable .label,
th.sortable .arrow { pointer-events: none; }
th.col-dragging { opacity: 0.4; cursor: grabbing; }
th.col-drag-over { outline: 2px dashed #555; background-color: #d8eaff !important; }
.sparkline {
display: inline-block;
vertical-align: middle;
}
tr.cpan-fail td {
background-color: #fdd;
}
tr.cpan-unknown td {
background-color: #eee;
color: #666;
}
tr.cpan-na td {
background-color: #ffffde;
color: #666;
}
.new-failure {
background: #c00;
color: #fff;
font-weight: bold;
padding: 2px 6px;
border-radius: 4px;
font-size: 0.85em;
bin/test-generator-index view on Meta::CPAN
}
.notice strong {
font-weight: bold;
}
.notice.perl-version-cliff {
background-color: #fff3cd; /* soft amber */
border: 1px solid #ffeeba;
color: #856404;
}
.notice.perl-version-cliff a {
color: #533f03;
bin/test-generator-index view on Meta::CPAN
.notice.perl-version-cliff a:hover {
text-decoration: none;
}
.notice.locale-cliff {
border-left: 4px solid #d97706;
background: #fffbeb;
padding: 0.5em 1em;
}
.notice.rt-issues {
background: #fff6e5;
border-left: 4px solid #d9822b;
}
table.root-causes {
border-collapse: collapse;
width: 100%;
bin/test-generator-index view on Meta::CPAN
border: 1px solid #ccc;
padding: 8px;
vertical-align: top;
}
table.root-causes tr.high {
background-color: #dfd;
}
table.root-causes tr.med {
background-color: #ffd;
}
table.root-causes tr.low {
background-color: #fdd;
}
</style>
</head>
<body>
<div class="badges">
bin/test-generator-index view on Meta::CPAN
data: {
datasets: [{
label: 'Total Coverage (%)',
data: dataPoints,
borderColor: 'green',
backgroundColor: 'rgba(0,128,0,0.1)',
pointRadius: 5,
pointHoverRadius: 7,
pointStyle: 'circle',
fill: false,
tension: 0.3,
bin/test-generator-index view on Meta::CPAN
closedir $d;
}
closedir $dh;
}
if($newest_pm > $cpd_mtime) {
push @html, '<p class="notice" style="background:#fff3cd;border:1px solid #ffc107;border-radius:4px;padding:6px 10px;">'
. '⚠ CPD data may be stale — source files have changed since the last duplication scan. '
. 'Re-run the dashboard workflow to refresh.</p>';
}
}
bin/test-generator-index view on Meta::CPAN
# --------------------------------------------------
sub _ter_badge {
my ($pct, $label) = @_;
unless(defined $pct) {
return qq{<span class="coverage-badge" style="background-color:#999" title="No data">$label</span>};
}
my ($class, $tooltip) =
$pct >= $config{med_threshold} ? ('badge-good', 'Excellent') :
$pct >= $config{low_threshold} ? ('badge-warn', 'Moderate') :
bin/test-generator-index view on Meta::CPAN
# --------------------------------------------------
sub _dup_badge {
my ($pct) = @_;
unless(defined $pct) {
return qq{<span class="coverage-badge" style="background-color:#999" title="CPD tool not installed">n/a</span>};
}
# Invert: low dup% is green, high is red
my ($class, $tooltip) =
$pct <= (100 - $config{med_threshold}) ? ('badge-good', 'Low duplication') :
bin/test-generator-index view on Meta::CPAN
Global Styles
-------------------------------------------------- */
body {
font-family: sans-serif;
background: var(--bg);
color: var(--text);
}
table {
border-collapse: collapse;
width: 100%;
}
th {
background: var(--table-header);
color: var(--table-header-text);
}
.survived-1 { background-color: var(--survived-1); }
.survived-2 { background-color: var(--survived-2); }
.survived-3 { background-color: var(--survived-3); }
.killed { background-color: var(--killed); }
.legend {
border: 1px solid #ccc;
background: #fafafa;
padding: 10px;
margin: 15px 0;
font-size: 0.9em;
}
.legend pre {
background: #f4f4f4;
padding: 5px;
}
.legend-box {
display: inline-block;
bin/test-generator-index view on Meta::CPAN
border: 1px solid var(--border);
}
/* White box for non-mutated lines */
.legend-box.none {
background-color: var(--bg);
}
/* --------------------------------------------------
Suggested Test Box Styling
Theme-aware and readable in light & dark modes
bin/test-generator-index view on Meta::CPAN
.suggested-test {
margin-top: 6px;
margin-bottom: 12px;
/* Use theme variables instead of hardcoded colors */
background: var(--bg);
color: var(--text);
padding: 8px;
border-radius: 4px;
bin/test-generator-index view on Meta::CPAN
margin-bottom: 4px;
}
/* Ensure the test code block inherits readable colors */
.suggested-test pre {
background: transparent; /* Prevent nested dark blocks */
color: inherit; /* Match theme text color */
margin: 0;
font-family: monospace;
}
bin/test-generator-index view on Meta::CPAN
.tooltip:hover::after {
content: attr(data-tooltip);
position: absolute;
left: 0;
top: 100%;
background: var(--table-header);
color: var(--table-header-text);
padding: 6px 10px;
white-space: normal;
max-width: 300px;
min-width: 30ch;
bin/test-generator-index view on Meta::CPAN
display: inline-block;
}
.lcsaj-tip .lcsaj-tip-text {
visibility: hidden;
background-color: #333;
color: #fff;
padding: 4px 8px;
border-radius: 4px;
font-size: 11px;
white-space: nowrap;
bin/test-generator-index view on Meta::CPAN
display: inline-block;
}
.cpd-tip .cpd-tip-text {
visibility: hidden;
background-color: #333;
color: #fff;
padding: 4px 8px;
border-radius: 4px;
font-size: 11px;
white-space: nowrap;
bin/test-generator-index view on Meta::CPAN
.cpd-tip:hover .cpd-tip-text {
visibility: visible;
}
/* CPD drill-down page styles */
.dup-line { background-color: #fff3cd; display: block; }
.dup-line:hover { background-color: #ffe082; }
.intra-dot { color: #9944cc; margin-right: 4px; cursor: help; text-decoration: none; }
a.intra-dot { cursor: pointer; }
a.intra-dot:hover { color: #7700bb; }
.cpd-legend {
background: #fff3cd;
border: 1px solid #ffc107;
border-radius: 4px;
display: inline-block;
padding: 6px 10px;
margin-bottom: 1em;
App-TimeClock
view release on metacpan or search on metacpan
lib/App/TimeClock/Daily/HtmlPrinter.pm view on Meta::CPAN
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head><meta http-equiv='Content-Type' content='text/html;charset=utf-8'/><title>$title</title>
<style type='text/css'>
html, body { margin: 0; padding: 0; border: 0; }
body { background:#fff; color:#000; margin: 1em 0 0 1em; }
table { border-collapse: collapse; width: 80ex; }
th, td { margin:0; border:1px solid #000;padding:0.2em; }
caption { margin-top: 1em; }
tr, caption { text-align:left; }
.totals { border: 2px solid #000; background: #9cf; width: 40ex; padding: 0.5em;}
.totals, caption { font-size: 110%; font-weight: bold; }
th { background: #58b; color: #fff; }
tr:nth-child(even) td { background: #dfe; }
tr:nth-child(odd) td { background: #def; }
th.N, td.N { width: 10%; text-align: right; }
</style></head><body><h1>$title</h1>
EOD
};
App-TimeTracker-Gtk2TrayIcon
view release on metacpan or search on metacpan
bin/tracker_gtk_trayicon.pl view on Meta::CPAN
A green light is shown if you're working, a red light if your idling.
If you hover your mouse over the icon, the project (and tags) you're
currently working on will be displayed.
This script currently neither forks nor puts itself into the
background. The best way (IMO) to start it is via a line in your
F<.xinitrc> (or whatever system your window manager uses to
automatically startup apps).
=head1 OPTIONS AND CONFIGURATION
App-TimeTracker-Gtk3StatusIcon
view release on metacpan or search on metacpan
bin/tracker_gtk3statusicon.pl view on Meta::CPAN
A green light is shown if you're working, a red light if your idling.
If you hover your mouse over the icon, the project (and tags) you're
currently working on will be displayed.
This script currently neither forks nor puts itself into the
background. The best way (IMO) to start it is via a line in your
F<.xinitrc> (or whatever system your window manager uses to
automatically startup apps).
=head1 OPTIONS AND CONFIGURATION
App-Twimap
view release on metacpan or search on metacpan
'user' => {
'friends_count' => 505,
'follow_request_sent' => 0,
'profile_image_url' =>
'http://a3.twimg.com/profile_images/427205513/arty_normal.jpg',
'profile_background_image_url_https' =>
'https://si0.twimg.com/profile_background_images/38511862/antisocial.gif',
'profile_sidebar_fill_color' => 'e0ff92',
'profile_background_color' => '6699cc',
'notifications' => 0,
'url' => 'http://thegestalt.org/simon/',
'id' => 9066762,
'is_translator' => 0,
'following' => 1,
'followers_count' => 583,
'statuses_count' => 1852,
'name' => 'Simon Wistow',
'description' => '',
'favourites_count' => 2,
'profile_background_tile' => 0,
'listed_count' => 44,
'contributors_enabled' => 0,
'profile_link_color' => '0000ff',
'profile_image_url_https' =>
'https://si0.twimg.com/profile_images/427205513/arty_normal.jpg',
'profile_sidebar_border_color' => '87bc44',
'created_at' => 'Mon Sep 24 09:59:53 +0000 2007',
'utc_offset' => -28800,
'verified' => 0,
'show_all_inline_media' => 0,
'profile_background_image_url' =>
'http://a3.twimg.com/profile_background_images/38511862/antisocial.gif',
'default_profile' => 0,
'protected' => 0,
'id_str' => '9066762',
'profile_text_color' => '000000',
'default_profile_image' => 0,
'time_zone' => 'Pacific Time (US & Canada)',
'geo_enabled' => 0,
'profile_use_background_image' => 1
},
'id' => '110074547411238913',
'in_reply_to_status_id' => undef,
'geo' => undef,
'possibly_sensitive' => 0,
'user' => {
'friends_count' => 115,
'follow_request_sent' => 0,
'profile_image_url' =>
'http://a2.twimg.com/profile_images/1501070030/John_2011_1_500x500_normal.png',
'profile_background_image_url_https' =>
'https://si0.twimg.com/images/themes/theme1/bg.png',
'profile_sidebar_fill_color' => 'DDEEF6',
'profile_background_color' => 'C0DEED',
'notifications' => 0,
'url' => 'http://arstechnica.com/author/john-siracusa/',
'id' => 636923,
'is_translator' => 0,
'following' => 0,
'followers_count' => 16045,
'statuses_count' => 11661,
'name' => 'John Siracusa',
'description' => '',
'favourites_count' => 586,
'profile_background_tile' => 0,
'listed_count' => 1236,
'contributors_enabled' => 0,
'profile_link_color' => '0084B4',
'profile_image_url_https' =>
'https://si0.twimg.com/profile_images/1501070030/John_2011_1_500x500_normal.png',
'profile_sidebar_border_color' => 'C0DEED',
'created_at' => 'Mon Jan 15 17:57:00 +0000 2007',
'utc_offset' => -18000,
'verified' => 0,
'show_all_inline_media' => 0,
'profile_background_image_url' =>
'http://a0.twimg.com/images/themes/theme1/bg.png',
'protected' => 0,
'default_profile' => 1,
'id_str' => '636923',
'profile_text_color' => '333333',
'default_profile_image' => 0,
'time_zone' => 'Eastern Time (US & Canada)',
'geo_enabled' => 0,
'profile_use_background_image' => 1
},
'id' => '110078391436316672',
'in_reply_to_status_id' => undef,
'geo' => undef,
'possibly_sensitive' => 0,
'user' => {
'friends_count' => 157,
'follow_request_sent' => 0,
'profile_image_url' =>
'http://a1.twimg.com/profile_images/83453615/Tim_Bunce_shoulder_width_8x10_normal.jpg',
'profile_background_image_url_https' =>
'https://si0.twimg.com/images/themes/theme7/bg.gif',
'profile_sidebar_fill_color' => 'F3F3F3',
'profile_background_color' => 'EBEBEB',
'notifications' => 0,
'url' => 'http://blog.timbunce.org',
'id' => 15018629,
'is_translator' => 0,
'following' => 1,
'statuses_count' => 2881,
'name' => 'Tim Bunce',
'description' =>
'Working by Listening Reflecting Exploring Solving, usually with modern Perl programming. Fathering by Listening Accepting Loving.',
'favourites_count' => 1039,
'profile_background_tile' => 0,
'listed_count' => 85,
'contributors_enabled' => 0,
'profile_link_color' => '990000',
'profile_image_url_https' =>
'https://si0.twimg.com/profile_images/83453615/Tim_Bunce_shoulder_width_8x10_normal.jpg',
'profile_sidebar_border_color' => 'DFDFDF',
'created_at' => 'Thu Jun 05 14:50:56 +0000 2008',
'utc_offset' => 0,
'verified' => 0,
'show_all_inline_media' => 0,
'profile_background_image_url' =>
'http://a1.twimg.com/images/themes/theme7/bg.gif',
'protected' => 0,
'default_profile' => 0,
'id_str' => '15018629',
'profile_text_color' => '333333',
'default_profile_image' => 0,
'time_zone' => 'Dublin',
'geo_enabled' => 1,
'profile_use_background_image' => 1
},
'id' => '110113112895660033',
'in_reply_to_status_id' => undef,
'geo' => undef,
'possibly_sensitive' => 0,
'user' => {
'friends_count' => 633,
'follow_request_sent' => 0,
'profile_image_url' =>
'http://a3.twimg.com/profile_images/1393608228/wheeler_square_normal.jpg',
'profile_background_image_url_https' =>
'https://si0.twimg.com/images/themes/theme14/bg.gif',
'profile_sidebar_fill_color' => 'efefef',
'profile_background_color' => '131516',
'notifications' => 0,
'url' => 'http://www.justatheory.com/',
'id' => 656233,
'is_translator' => 0,
'following' => 1,
'statuses_count' => 10436,
'name' => 'David E. Wheeler',
'description' =>
'Perl, PostgreSQL, iOS hacker; US politics junkie; Webapp developer; Portvangelist; profane iconoclast.',
'favourites_count' => 418,
'profile_background_tile' => 1,
'listed_count' => 100,
'contributors_enabled' => 0,
'profile_link_color' => '009999',
'profile_image_url_https' =>
'https://si0.twimg.com/profile_images/1393608228/wheeler_square_normal.jpg',
'profile_sidebar_border_color' => 'eeeeee',
'created_at' => 'Wed Jan 17 19:31:24 +0000 2007',
'utc_offset' => -28800,
'verified' => 0,
'show_all_inline_media' => 0,
'profile_background_image_url' =>
'http://a1.twimg.com/images/themes/theme14/bg.gif',
'default_profile' => 0,
'protected' => 0,
'id_str' => '656233',
'profile_text_color' => '333333',
'default_profile_image' => 0,
'time_zone' => 'Pacific Time (US & Canada)',
'geo_enabled' => 1,
'profile_use_background_image' => 1
},
'id' => '110253001725321216',
'in_reply_to_status_id' => undef,
'geo' => undef,
'possibly_sensitive' => 0,
'user' => {
'friends_count' => 202,
'follow_request_sent' => 0,
'profile_image_url' =>
'http://a3.twimg.com/profile_images/1351310559/MSCHWERN_HAS_A_PAUSEID_normal.jpg',
'profile_background_image_url_https' =>
'https://si0.twimg.com/profile_background_images/2458594/It_s_A_Waffle_Window_Day_.jpg',
'profile_sidebar_fill_color' => 'A8FF82',
'profile_background_color' => 'F36A28',
'notifications' => 0,
'url' => 'http://schwern.net',
'id' => 8263212,
'is_translator' => 0,
'following' => 1,
'followers_count' => 960,
'statuses_count' => 4342,
'name' => 'Schwern',
'description' => 'Bystanders were amazed at the volume of blood',
'favourites_count' => 0,
'profile_background_tile' => 0,
'listed_count' => 139,
'contributors_enabled' => 0,
'profile_link_color' => '0000ff',
'profile_image_url_https' =>
'https://si0.twimg.com/profile_images/1351310559/MSCHWERN_HAS_A_PAUSEID_normal.jpg',
'profile_sidebar_border_color' => '41E62D',
'created_at' => 'Sat Aug 18 09:16:37 +0000 2007',
'utc_offset' => -28800,
'verified' => 0,
'show_all_inline_media' => 0,
'profile_background_image_url' =>
'http://a1.twimg.com/profile_background_images/2458594/It_s_A_Waffle_Window_Day_.jpg',
'default_profile' => 0,
'protected' => 0,
'id_str' => '8263212',
'profile_text_color' => '000000',
'default_profile_image' => 0,
'time_zone' => 'Pacific Time (US & Canada)',
'geo_enabled' => 0,
'profile_use_background_image' => 1
},
'id' => '110237761818210305',
'in_reply_to_status_id' => undef,
'geo' => undef,
'possibly_sensitive' => 0,
"\x{6539}\x{3081}\x{3066}\x{5fa1}\x{793c}\x{306a}\x{3046}m(__)m< \@lunashingo: reply\x{3042}\x{308a}\x{304c}\x{3068}\x{3046}\x{3054}\x{3056}\x{3044}\x{307e}\x{3059}\x{3002}\x{65e9}\x{901f}\x{8cfc}\x{5165}\x{3057}\x{307e}\x{3057}\x{305f...
'in_reply_to_user_id' => undef,
'user' => {
'friends_count' => 2584,
'follow_request_sent' => 0,
'profile_background_image_url_https' =>
'https://si0.twimg.com/profile_background_images/55559817/hisashinis-512x512.jpg',
'profile_image_url' =>
'http://a3.twimg.com/profile_images/1198753933/dan-by-tanaka_normal.png',
'profile_sidebar_fill_color' => 'DDEEF6',
'profile_background_color' => 'C0DEED',
'notifications' => 0,
'url' => 'http://blog.livedoor.jp/dankogai/',
'id' => 4143991,
'is_translator' => 0,
'following' => 1,
'statuses_count' => 20061,
'name' => 'Dan Kogai',
'description' =>
'404 Blog Not Found -- only tweets. http://www.google.com/search?q=dankogai',
'favourites_count' => 11,
'profile_background_tile' => 1,
'listed_count' => 5763,
'contributors_enabled' => 0,
'profile_link_color' => '0084B4',
'profile_image_url_https' =>
'https://si0.twimg.com/profile_images/1198753933/dan-by-tanaka_normal.png',
'profile_sidebar_border_color' => 'C0DEED',
'created_at' => 'Wed Apr 11 08:26:14 +0000 2007',
'utc_offset' => 32400,
'verified' => 0,
'profile_background_image_url' =>
'http://a3.twimg.com/profile_background_images/55559817/hisashinis-512x512.jpg',
'show_all_inline_media' => 0,
'protected' => 0,
'default_profile' => 0,
'id_str' => '4143991',
'profile_text_color' => '333333',
'default_profile_image' => 0,
'time_zone' => 'Tokyo',
'profile_use_background_image' => 1,
'geo_enabled' => 1
},
'id' => '113649960246980608',
'in_reply_to_status_id' => undef,
'geo' => undef,
App-Twitch
view release on metacpan or search on metacpan
lib/App/Twitch.pm view on Meta::CPAN
default => sub { 'twitch' },
documentation => 'Name for the application, like configfile name base and so on (default: twitch)',
);
has '+foreground' => (
documentation => 'Run on the console and don\'t detach into background (default: off)',
);
has '+configfile' => (
default => sub { 'twitch.yml' },
documentation => 'Configuration file used for all those settings (default: twitch.yml)',
App-VivaldiUtils
view release on metacpan or search on metacpan
lib/App/VivaldiUtils.pm view on Meta::CPAN
Pause (kill -STOP) Vivaldi.
A modern browser now runs complex web pages and applications. Despite browser's
power management feature, these pages/tabs on the browser often still eat
considerable CPU cycles even though they only run in the background. Pausing
(kill -STOP) the browser processes is a simple and effective way to stop CPU
eating on Unix and prolong your laptop battery life. It can be performed
whenever you are not using your browser for a little while, e.g. when you are
typing on an editor or watching a movie. When you want to use your browser
again, simply unpause (kill -CONT) it.
App-WIoZ
view release on metacpan or search on metacpan
lib/App/WIoZ.pm view on Meta::CPAN
my @L = <$fh>;
close $fh;
my @color = Color::Mix->new->analogous($self->basecolor, 12, 12);
# reset background
$self->cr->rectangle (0, 0, $self->width, $self->height);
my $po = Graphics::ColorNames->new;
my @rgb = $po->rgb($self->backcolor);
$self->cr->set_source_rgb ($rgb[0]/255.0, $rgb[1]/255.0, $rgb[2]/255.0);
$self->cr->fill;
App-Wallflower
view release on metacpan or search on metacpan
bin/wallflower view on Meta::CPAN
and have the default I<index> filename appended, and that wallflower will
behave unpredictably if the site contains pages accessible through URLs
ending both in F<foo> and F<foo/>. This is arguably a bug, but it's
unclear where to fix it, or if it can be fixed at all. See
L<Wallflower::Tutorial/URI SEMANTICS COMPARED TO DIRECTORY SEMANTICS> for
background on this.
Any response with a status other than C<200> will be logged,
but not saved. Responses with a C<301> status (moved) are followed.
B<wallflower> sends the C<If-Modified-Since> header if the target
App-Web-VPKBuilder
view release on metacpan or search on metacpan
static/index.css view on Meta::CPAN
body {
background-color: #272B30;
color: #CBCBCB;
padding-left: 1em;
}
ul {
App-Widget-ChartDirector
view release on metacpan or search on metacpan
lib/App/Widget/ChartDirector.pm view on Meta::CPAN
if ($y_max_zero == 0) {
$c->yAxis()->setMargin($top_margin_adjusted + 15);
}
#Add a legend box at (55, 22) using horizontal layout, with transparent
#background
my $legend;
if ($spec->{y_labels}) {
my $x_adj = 0;
my $y_adj = -2;
if ($spec->{"3D"}) {
lib/App/Widget/ChartDirector.pm view on Meta::CPAN
$c->addText($center_x, $center_y+18, $x_title,
"arialbd.ttf", 10, $perlchartdir::TextColor, $perlchartdir::Center);
}
#Add a text box at the top right corner of the meter showing the value formatted
#to 2 decimal places, using white text on a black background, and with 1 pixel
#3D depressed border
$c->addText($center_x + int($radius * 0.7), $center_y - int($radius * 1.0),
$c->formatValue($value, "2"),
"arial.ttf", 8, 0xffffff)->setBackground(0x0, 0, -1);
lib/App/Widget/ChartDirector.pm view on Meta::CPAN
sub write_step_graph_image_step {
&App::sub_entry if ($App::trace);
my ($self, $spec) = @_;
require "perlchartdir.pm";
#Create a XYChart object of size 500 x 270 pixels, with a pale blue (0xe0e0ff)
#background, a light blue (0xccccff) border, and 1 pixel 3D border effect.
my $c = new XYChart(600, 350, 0xe0e0ff, 0xccccff, 1); #800
#Set the plotarea at (50, 50) and of size 420 x 180 pixels, using white
#(0xffffff) as the plot area background color. Turn on both horizontal and
#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/DataTable.pm view on Meta::CPAN
# border_style",
# border_width",
# border_color",
# padding",
# background_color",
# any columns we are editing, we need to compute max width (size) for textfield
for ($col = 0; $col < $numcols; $col++) {
$column_length[$col] = 5; # minimum length
$column = "";
lib/App/Widget/DataTable.pm view on Meta::CPAN
$html .= " <td $td_row_attrib$td_col_attrib>${elem_begin}";
$html .= $context->widget("$name\{editdata}{$key}{$column}",
class => "App::Widget::TextField",
size => $column_length[$col]+2, # add 2 just to give some visual space
maxlength => 99,
background_color => "#ffaaaa",
border_style => "solid",
border_width => "1px",
padding => 0,
@edit_style,
)->html();
App-XTermUtils
view release on metacpan or search on metacpan
script/get-term-bgcolor view on Meta::CPAN
read_env => 0,
);
$cmdline->run;
# ABSTRACT: Get terminal background color
# PODNAME: get-term-bgcolor
__END__
=pod
=encoding UTF-8
=head1 NAME
get-term-bgcolor - Get terminal background color
=head1 VERSION
This document describes version 0.007 of get-term-bgcolor (from Perl distribution App-XTermUtils), released on 2021-05-26.
script/get-term-bgcolor view on Meta::CPAN
[--noread-colorfgbg] [--page-result[=program]] [--query-terminal]
[--read-colorfgbg] [--view-result[=program]]
=head1 DESCRIPTION
Get the terminal's current background color (in 6-hexdigit format e.g. 000000 or
ffff33), or undef if unavailable. This routine tries the following mechanisms,
from most useful to least useful, in order. Each mechanism can be turned off via
argument.
I<query_terminal>. Querying the terminal is done via sending the following xterm
script/get-term-bgcolor view on Meta::CPAN
with the question mark replaced by the RGB code, e.g.:
\e]11;rgb:0000/0000/0000\a
I<read_colorfgbg>. Some terminals like Konsole set the environment variable
C<COLORFGBG> containing 16-color color code for foreground and background, e.g.:
C<15;0>.
=head1 OPTIONS
C<*> marks required options.
( run in 5.183 seconds using v1.01-cache-2.11-cpan-0fb53d1c279 )