Result:
found more than 741 distributions - search limited to the first 2001 files matching your query
( run in 1.706 )
App-Licensecheck
view release on metacpan or search on metacpan
bin/licensecheck view on Meta::CPAN
=back
=head1 CAVEATS
The exact output may change between releases,
due to the inherently fragile scanning of unstructured data,
and the ongoing improvements to detection patterns.
For some level of stability,
use one of the machine-readable output formats
and define a B<--shortname-scheme>.
App-LinkSite
view release on metacpan or search on metacpan
lib/App/LinkSite/Link.pm view on Meta::CPAN
=head1 METHODS
=head2 mk_link
Returns a fragment of HTML that is used to display this link on the site.
It's actually an `<li>` that wraps an `<a>`. So this method probably needs
to be renamed or refactored. Maybe it should just be called `render()`.
=cut
App-MHFS
view release on metacpan or search on metacpan
lib/MHFS/Plugin/GetVideo.pm view on Meta::CPAN
return ['ffmpeg', '-i', $video->{"src_file"}{"filepath"}, '-f', 'mpegts', '-codec:v', 'mpeg1video', '-codec:a', 'mp2', '-b', '0', $video->{"out_filepath"}];
}, 'ext' => 'ts', 'player_html' => $settings->{'DOCUMENTROOT'} . '/static/jsmpeg_player.html', 'minsize' => '1048576'},
'mp4' => {'lock' => 1, 'create_cmd' => sub {
my ($video) = @_;
return ['ffmpeg', '-i', $video->{"src_file"}{"filepath"}, '-c:v', 'copy', '-c:a', 'aac', '-f', 'mp4', '-movflags', 'frag_keyframe+empty_moov', $video->{"out_filepath"}];
}, 'ext' => 'mp4', 'player_html' => $settings->{'DOCUMENTROOT'} . '/static/mp4_player.html', 'minsize' => '1048576'},
'noconv' => {'lock' => 0, 'ext' => '', 'player_html' => $settings->{'DOCUMENTROOT'} . '/static/noconv_player.html', },
'mkvinfo' => {'lock' => 0, 'ext' => ''},
lib/MHFS/Plugin/GetVideo.pm view on Meta::CPAN
my @command = ('ffmpeg', '-loglevel', 'fatal');
if($request->{'qs'}{'fmp4_time'}) {
my $formattedtime = hls_audio_formattime($request->{'qs'}{'fmp4_time'});
push @command, ('-ss', $formattedtime);
}
push @command, ('-i', $fileabspath, '-c:v', 'copy', '-c:a', 'aac', '-f', 'mp4', '-movflags', 'frag_keyframe+empty_moov', '-');
my $evp = $request->{'client'}{'server'}{'evp'};
my $sent;
print "$_ " foreach @command;
$request->{'outheaders'}{'Accept-Ranges'} = 'none';
App-Microsite-Assemble
view release on metacpan or search on metacpan
lib/App/Microsite/Assemble.pm view on Meta::CPAN
my $args = {
wrapper_name => 'wrapper.handlebars',
content_name => 'content.handlebars',
config_name => 'config.json',
templates_dir => 'templates/',
fragments_dir => 'fragments/',
build_dir => 'build/',
missing_fragment => sub {
my ($name, $paths) = @_;
die "Fragment named '$name' does not exist: (paths: @$paths)\n";
},
@_,
};
for my $arg (qw/templates_dir fragments_dir build_dir/) {
$args->{$arg} = dir($args->{$arg});
}
$args->{_seen_fragments} = {};
$args->{build_dir}->mkpath;
my %seen;
lib/App/Microsite/Assemble.pm view on Meta::CPAN
}
}
}
return {
seen_fragments => $args->{_seen_fragments},
built_files => \%seen,
};
}
sub _generate_page {
lib/App/Microsite/Assemble.pm view on Meta::CPAN
warn "Unable to process $template\n $error";
exit 1;
},
helpers => {
%{ $args->{helpers} || {} },
fragment => sub {
my ($context, $name) = @_;
# {{fragment foo}} doesn't work, need {{fragment "foo"}}
die "{{fragment NAME}} helper needs a quoted name\n"
if !$name;
my @paths = @$path;
s{^templates\b}{fragments} for @paths;
for my $path (@paths) {
my $fragment = dir($path)->file($name);
if (-e $fragment) {
$args->{_seen_fragments}{$fragment}++;
my $content = $fragment->slurp(iomode => '<:encoding(UTF-8)');
if ($args->{fragment_filter}) {
$content = $args->{fragment_filter}->($content, $fragment, $name);
}
return mark_raw($hb->render_string($content));
}
}
my $content = $args->{missing_fragment}->($name, \@paths);
return mark_raw($hb->render_string($content));
},
},
suffix => '.partial',
path => $path,
lib/App/Microsite/Assemble.pm view on Meta::CPAN
=head1 DESCRIPTION
This module assembles F<templates/> into fully-baked pages.
Your project should contain a F<fragments/> subdirectory, filled with files that contain bits of copy. Any template can use C<{{fragment "copy-file-name"}}> to inline the text from that file.
Subdirectories of F<templates/> can establish a hierarchy of wrappers. For example, you might have F<templates/basic/contact/> which is page C<contact> wrapped by wrapper C<basic>. The F<templates/basic/contact/> directory would have a F<content.hand...
Any directory in the hierarchy can have a F<wrapper.handlebars> which wraps everything below it. So the top-level F<templates/> could have a very generic F<wrapper.handlebars> that sets up C<< <html> >> etc. Subdirectories under F<templates/> can pro...
Similarly, any directory can have a F<config.json> which will combine in the usual way; files deeper in the hierarchy override settings from their upwards directories. Config variables will be provided in the template and its wrappers. This is intend...
You can put partials in any directory under F<templates/> and they will cascade; deeper partials will shadow shallower partials.
Finally, the F<fragments/> directory structure should match F<templates/>. The search path for fragment names works just like everything else.
=head1 AUTHORS
=over 4
App-Mimosa
view release on metacpan or search on metacpan
root/js/jquery.js view on Meta::CPAN
*/
(function(A,w){function ma(){if(!c.isReady){try{s.documentElement.doScroll("left")}catch(a){setTimeout(ma,1);return}c.ready()}}function Qa(a,b){b.src?c.ajax({url:b.src,async:false,dataType:"script"}):c.globalEval(b.text||b.textContent||b.innerHTML||"...
e(a[0],b):w}function J(){return(new Date).getTime()}function Y(){return false}function Z(){return true}function na(a,b,d){d[0].type=a;return c.event.handle.apply(b,d)}function oa(a){var b,d=[],f=[],e=arguments,j,i,o,k,n,r;i=c.data(this,"events");if(!...
j.length;n<r;n++)for(k=0;k<u.length;k++){i=u[k];if(j[n].selector===i.selector){o=j[n].elem;f=null;if(i.preType==="mouseenter"||i.preType==="mouseleave")f=c(a.relatedTarget).closest(i.selector)[0];if(!f||f!==o)d.push({elem:o,handleObj:i})}}n=0;for(r=d...
"&")}function qa(a){return!a||!a.parentNode||a.parentNode.nodeType===11}function ra(a,b){var d=0;b.each(function(){if(this.nodeName===(a[d]&&a[d].nodeName)){var f=c.data(a[d++]),e=c.data(this,f);if(f=f&&f.events){delete e.handle;e.events={};for(var j...
true;if(j=c.fragments[a[0]])if(j!==1)f=j}if(!f){f=b.createDocumentFragment();c.clean(a,b,f,d)}if(e)c.fragments[a[0]]=j?f:1;return{fragment:f,cacheable:e}}function K(a,b){var d={};c.each(va.concat.apply([],va.slice(0,b)),function(){d[this]=a});return ...
Wa=/^(\s|\u00A0)+|(\s|\u00A0)+$/g,Xa=/^<(\w+)\s*\/?>(?:<\/\1>)?$/,P=navigator.userAgent,xa=false,Q=[],L,$=Object.prototype.toString,aa=Object.prototype.hasOwnProperty,ba=Array.prototype.push,R=Array.prototype.slice,ya=Array.prototype.indexOf;c.fn=c.p...
(d[1]||!b))if(d[1]){f=b?b.ownerDocument||b:s;if(a=Xa.exec(a))if(c.isPlainObject(b)){a=[s.createElement(a[1])];c.fn.attr.call(a,b,true)}else a=[f.createElement(a[1])];else{a=sa([d[1]],[f]);a=(a.cacheable?a.fragment.cloneNode(true):a.fragment).childNod...
a)}else return!b||b.jquery?(b||T).find(a):c(b).find(a);else if(c.isFunction(a))return T.ready(a);if(a.selector!==w){this.selector=a.selector;this.context=a.context}return c.makeArray(a,this)},selector:"",jquery:"1.4.2",length:0,size:function(){return...
"find")f.selector=this.selector+(this.selector?" ":"")+d;else if(b)f.selector=this.selector+"."+b+"("+d+")";return f},each:function(a,b){return c.each(this,a,b)},ready:function(a){c.bindReady();if(c.isReady)a.call(s,c);else Q&&Q.push(a);return this},...
function(b,d){return a.call(b,d,b)}))},end:function(){return this.prevObject||c(null)},push:ba,sort:[].sort,splice:[].splice};c.fn.init.prototype=c.fn;c.extend=c.fn.extend=function(){var a=arguments[0]||{},b=1,d=arguments.length,f=false,e,j,i,o;if(ty...
c.isArray(i))?i:c.isArray(o)?[]:{};a[j]=c.extend(f,i,o)}else if(o!==w)a[j]=o}return a};c.extend({noConflict:function(a){A.$=Sa;if(a)A.jQuery=Ra;return c},isReady:false,ready:function(){if(!c.isReady){if(!s.body)return setTimeout(c.ready,13);c.isReady...
L,false);A.addEventListener("load",c.ready,false)}else if(s.attachEvent){s.attachEvent("onreadystatechange",L);A.attachEvent("onload",c.ready);var a=false;try{a=A.frameElement==null}catch(b){}s.documentElement.doScroll&&a&&ma()}}},isFunction:function...
root/js/jquery.js view on Meta::CPAN
prepend:function(){return this.domManip(arguments,true,function(a){this.nodeType===1&&this.insertBefore(a,this.firstChild)})},before:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,false,function(b){this.parentNode.insertBefo...
this.nextSibling)});else if(arguments.length){var a=this.pushStack(this,"after",arguments);a.push.apply(a,c(arguments[0]).toArray());return a}},remove:function(a,b){for(var d=0,f;(f=this[d])!=null;d++)if(!a||c.filter(a,[f]).length){if(!b&&f.nodeType=...
return this},clone:function(a){var b=this.map(function(){if(!c.support.noCloneEvent&&!c.isXMLDoc(this)){var d=this.outerHTML,f=this.ownerDocument;if(!d){d=f.createElement("div");d.appendChild(this.cloneNode(true));d=d.innerHTML}return c.clean([d.repl...
""):null;else if(typeof a==="string"&&!ta.test(a)&&(c.support.leadingWhitespace||!V.test(a))&&!F[(La.exec(a)||["",""])[1].toLowerCase()]){a=a.replace(Ka,Ma);try{for(var b=0,d=this.length;b<d;b++)if(this[b].nodeType===1){c.cleanData(this[b].getElement...
this[0].parentNode){if(c.isFunction(a))return this.each(function(b){var d=c(this),f=d.html();d.replaceWith(a.call(this,b,f))});if(typeof a!=="string")a=c(a).detach();return this.each(function(){var b=this.nextSibling,d=this.parentNode;c(this).remove(...
u.appendChild(u.ownerDocument.createElement("tbody")):u}var e,j,i=a[0],o=[],k;if(!c.support.checkClone&&arguments.length===3&&typeof i==="string"&&ua.test(i))return this.each(function(){c(this).domManip(a,b,d,true)});if(c.isFunction(i))return this.ea...
1?(k=k.firstChild):k.firstChild){b=b&&c.nodeName(j,"tr");for(var n=0,r=this.length;n<r;n++)d.call(b?f(this[n],j):this[n],n>0||e.cacheable||this.length>1?k.cloneNode(true):k)}o.length&&c.each(o,Qa)}return this}});c.fragments={};c.each({appendTo:"appen...
return this}else{e=0;for(var j=d.length;e<j;e++){var i=(e>0?this.clone(true):this).get();c.fn[b].apply(c(d[e]),i);f=f.concat(i)}return this.pushStack(f,a,d.selector)}}});c.extend({clean:function(a,b,d,f){b=b||s;if(typeof b.createElement==="undefined"...
""])[1].toLowerCase(),k=F[o]||F._default,n=k[0],r=b.createElement("div");for(r.innerHTML=k[1]+i+k[2];n--;)r=r.lastChild;if(!c.support.tbody){n=ib.test(i);o=o==="table"&&!n?r.firstChild&&r.firstChild.childNodes:k[1]==="<table>"&&!n?r.childNodes:[];for...
c.merge(e,i)}}if(d)for(j=0;e[j];j++)if(f&&c.nodeName(e[j],"script")&&(!e[j].type||e[j].type.toLowerCase()==="text/javascript"))f.push(e[j].parentNode?e[j].parentNode.removeChild(e[j]):e[j]);else{e[j].nodeType===1&&e.splice.apply(e,[j+1,0].concat(c.ma...
c.event.remove(o,k):Ca(o,k,b.handle);if(j)delete o[c.expando];else o.removeAttribute&&o.removeAttribute(c.expando);delete f[d]}}});var kb=/z-?index|font-?weight|opacity|zoom|line-?height/i,Na=/alpha\([^)]*\)/,Oa=/opacity=([^)]*)/,ha=/float/i,ia=/-([a...
function(a,b){return b.toUpperCase()};c.fn.css=function(a,b){return X(this,a,b,true,function(d,f,e){if(e===w)return c.curCSS(d,f);if(typeof e==="number"&&!kb.test(f))e+="px";c.style(d,f,e)})};c.extend({style:function(a,b,d){if(!a||a.nodeType===3||a.n...
App-Music-ChordPro
view release on metacpan or search on metacpan
lib/ChordPro.pm view on Meta::CPAN
"filelist=s@", # List of input files
"title=s", # Title (for books)
"subtitle=s", # Subtitle (for books)
"meta=s\%", # Command line meta data
"decapo", # remove capo
"fragment|F", # partial (incomplete) song
"strict!", # strict conformance
### Experimental ###
"progress_callback=s",
lib/ChordPro.pm view on Meta::CPAN
--csv (with PDF) Also generate CSV
--decapo Eliminate capo settings
--diagrams=WHICH Prints chord diagrams
--encoding=ENC Encoding for input files (UTF-8)
--filelist=FILE Reads song file names from FILE
--fragment -F Partial (incomplete) song
--front-matter=FILE Add front matter pages from PDF document
--lyrics-only -l Only prints lyrics
--meta KEY=VALUE Add meta data
--output=FILE -o Saves the output to FILE
--[no]strict Strict conformance
App-MusicExpo
view release on metacpan or search on metacpan
lib/App/MusicExpo.pm view on Meta::CPAN
sub normalizer{
"$_[0]|".(stat $_[0])[9]
}
sub make_fragment{ join '-', map { lc =~ y/a-z0-9/_/csr } @_ }
sub extensions_handled { keys %info }
sub run {
if ($cache) {
lib/App/MusicExpo.pm view on Meta::CPAN
for my $key (keys %$ver) {
$entry{$key} = $ver->{$key} if $ver->{$key} && $ver->{$key} ne '?';
}
}
delete $entry{$_} for qw/format file/;
$entry{fragment} = make_fragment @entry{qw/artist title/};
push @files, \%entry
}
@files = sort { $a->{title} cmp $b->{title} } @files;
$ht->param(files => \@files, prefix => $prefix);
lib/App/MusicExpo.pm view on Meta::CPAN
<table border>
<thead>
<tr><th>Title<th>Artist<th>Album<th>Genre<th>Track<th>Year<th>Type
<tbody><tmpl_loop files>
<tr><td class="title"><a href="#<tmpl_var fragment>" data-hash="#<tmpl_var fragment>"><tmpl_var title></a><td class="artist"><tmpl_var artist><td class="album"><tmpl_var album><td class="genre"><tmpl_var genre><td class="track"><tmpl_var tracknumber>...
</table>
HTML
1;
App-MusicTools
view release on metacpan or search on metacpan
The lilypond input will likely need to be quoted as lilypond input may
clash with various shell metacharacters.
--absolute Notation assumed to be absolute.
--instrument Set MIDI instrument (see lilypond docs).
--partial|p Lilypond fragment played once at beginning.
--relative|b Specify what note input is relative to.
--repeats|r How many times to repeat the lilypond input.
--tempo|t Set a tempo for the music.
--layout|l Save the MIDI and other various files.
=item B<--open>
Show the score via the C<SCORE_VIEWER> program.
=item B<--partial>=I<lilypond fragment>
A lilypond fragment played once at the beginning.
=item B<--relative>=I<note>
Specify what note the input is relative to.
App-Mxpress-PDF
view release on metacpan or search on metacpan
public/javascripts/ace/ace.js view on Meta::CPAN
};
this.push = function(cell) {
if (Array.isArray(cell)) {
this.cells.push.apply(this.cells, cell);
var fragment = dom.createFragment(this.element);
for (var i=0; i<cell.length; i++) {
fragment.appendChild(cell[i].element);
}
this.element.appendChild(fragment);
} else {
this.cells.push(cell);
this.element.appendChild(cell.element);
}
};
this.unshift = function(cell) {
if (Array.isArray(cell)) {
this.cells.unshift.apply(this.cells, cell);
var fragment = dom.createFragment(this.element);
for (var i=0; i<cell.length; i++) {
fragment.appendChild(cell[i].element);
}
if (this.element.firstChild)
this.element.insertBefore(fragment, this.element.firstChild);
else
this.element.appendChild(fragment);
} else {
this.cells.unshift(cell);
this.element.insertAdjacentElement("afterbegin", cell.element);
}
};
public/javascripts/ace/ace.js view on Meta::CPAN
this._signal("afterRender");
this.$updateGutterWidth(config);
};
this.$renderLines = function(config, firstRow, lastRow) {
var fragment = [];
var row = firstRow;
var foldLine = this.session.getNextFoldLine(row);
var foldStart = foldLine ? foldLine.start.row : Infinity;
while (true) {
public/javascripts/ace/ace.js view on Meta::CPAN
if (row > lastRow)
break;
var cell = this.$lines.createCell(row, config, this.session, onCreateCell);
this.$renderCell(cell, config, foldLine, row);
fragment.push(cell);
row++;
}
return fragment;
};
this.$renderCell = function(cell, config, fold, row) {
var element = cell.element;
public/javascripts/ace/ace.js view on Meta::CPAN
this.$lines.push(this.$renderLinesFragment(config, oldConfig.lastRow + 1, config.lastRow));
}
};
this.$renderLinesFragment = function(config, firstRow, lastRow) {
var fragment = [];
var row = firstRow;
var foldLine = this.session.getNextFoldLine(row);
var foldStart = foldLine ? foldLine.start.row : Infinity;
while (true) {
public/javascripts/ace/ace.js view on Meta::CPAN
if (this.$useLineGroups()) {
lineEl.className = "ace_line_group";
} else {
lineEl.className = "ace_line";
}
fragment.push(line);
row++;
}
return fragment;
};
this.update = function(config) {
this.$lines.moveContainer(config);
App-Netdisco
view release on metacpan or search on metacpan
lib/App/Netdisco/Web/Plugin/Device/Ports.pm view on Meta::CPAN
# n_archived swaps $nodes_name to nodes, which is the whole table rather than
# the archived half, so a shadow built with active = 0 there would drop the
# active nodes back out and a MAC visible on screen would stop being findable.
# Derived from $nodes_name so this and %node_result_class cannot drift apart.
sub _shadow_active_fragment {
my ($nodes_name) = @_;
return $nodes_name =~ m/^active/ ? 'AND n.active' : '';
}
# Builds the DataTables search shadow: one string per port carrying every
lib/App/Netdisco/Web/Plugin/Device/Ports.pm view on Meta::CPAN
#
# vlan has no n_* guard in the template and is always included. ssid, netbios
# and vendor are joined only under their own guards: a field the cell does not
# render need not be findable, and each join has a real cost.
sub _attach_search_shadow {
my ($schema, $device_ip, $rows, $active_fragment, $want_ssid, $want_netbios,
$mac_format, $want_vendor) = @_;
my ($ssid_select, $ssid_join) = ('', '');
if ($want_ssid) {
$ssid_select = q{ || ' ' || COALESCE(w.txt, '')};
lib/App/Netdisco/Web/Plugin/Device/Ports.pm view on Meta::CPAN
FROM node_ip WHERE mac = n.mac AND active = n.active) i ON true
%s%s%s
WHERE n.switch = ? %s
GROUP BY n.port
}, $ssid_select, $netbios_select, $vendor_select, $mac_select,
$ssid_join, $netbios_join, $vendor_join, $active_fragment);
my $shadow = $schema->storage->dbh_do(sub {
my (undef, $dbh) = @_;
$dbh->selectall_arrayref($sql, undef, $device_ip);
});
lib/App/Netdisco/Web/Plugin/Device/Ports.pm view on Meta::CPAN
return ($nodes_name, $ips_name, \@node_order, \@extra_prefetch);
}
# One query, run once per c_nodes request rather than once per row: reads the
# same table _attach_search_shadow does, under the same active fragment, so a
# port cannot say "N nodes" here and expand to a different number there.
sub _count_nodes_by_port {
my ($schema, $device_ip, $rows, $active_fragment) = @_;
my $sql = sprintf(q{
SELECT n.port, count(*) AS n
FROM node n
WHERE n.switch = ? %s
GROUP BY n.port
}, $active_fragment);
my $counts = $schema->storage->dbh_do(sub {
my (undef, $dbh) = @_;
$dbh->selectall_arrayref($sql, undef, $device_ip);
});
lib/App/Netdisco/Web/Plugin/Device/Ports.pm view on Meta::CPAN
my $only_ports = $node_fetch_scope;
my $skip_stitch = 0;
# ports_csv.tt has no collapse threshold and reads every port's
# stitched_nodes unconditionally, so this scoping only applies to
# the HTML fragment: a CSV export still gets the whole device.
if (param('c_nodes') and request->is_ajax) {
my $count_by_port = _count_nodes_by_port(schema(vars->{'tenant'}),
$device->ip, \@results, _shadow_active_fragment($nodes_name));
# Ports over the threshold render a count and an empty div that
# fetches its own rows; fetching them here would build markup
# that netdisco.css hides on arrival.
$only_ports = _threshold_scope(
lib/App/Netdisco/Web/Plugin/Device/Ports.pm view on Meta::CPAN
# Gated on c_nodes alone, not c_neighbors like the stitch above: the
# template emits data-search only under c_nodes, so the neighbors-only
# view would build this for nothing.
if (param('c_nodes')) {
_attach_search_shadow(schema(vars->{'tenant'}), $device->ip, \@results,
_shadow_active_fragment($nodes_name),
scalar param('n_ssid'), scalar param('n_netbios'),
scalar param('mac_format'), scalar param('n_vendor'));
_augment_neighbor_search(\@results, scalar param('c_neighbors'),
scalar param('n_inventory'));
}
App-Netsync
view release on metacpan or search on metacpan
share/mib/CISCO-IETF-IP-MIB.my view on Meta::CPAN
UNITS "octets"
MAX-ACCESS read-only
STATUS current
DESCRIPTION
"The size of the largest IPv6 datagram which this entity
can re-assemble from incoming IPv6 fragmented datagrams
received on this interface."
::= { cIpv6InterfaceEntry 3 }
cIpv6InterfaceIdentifier OBJECT-TYPE
SYNTAX Ipv6AddrIfIdentifier
App-Nopaste
view release on metacpan or search on metacpan
lib/App/Nopaste.pm view on Meta::CPAN
Jesse Luehrs <doy@tozt.net>
=item *
Dean Hamstead <dean@fragfest.com.au>
=item *
David Golden <dagolden@cpan.org>
App-Nostray
view release on metacpan or search on metacpan
bin/nostray view on Meta::CPAN
content, couch, create, css, curly, d, data, datalist, dd, debug, decodeURI,
decodeURIComponent, defaultStatus, defineClass, deserialize, devel, document,
dojo, dijit, dojox, define, else, emit, encodeURI, encodeURIComponent,
entityify, eqeq, eqeqeq, eqnull, errors, es5, escape, esnext, eval, event, evidence, evil,
ex, exception, exec, exps, expr, exports, FileReader, first, floor, focus,
forin, fragment, frames, from, fromCharCode, fud, funcscope, funct, function, functions,
g, gc, getComputedStyle, getRow, getter, getterToken, GLOBAL, global, globals, globalstrict,
hasOwnProperty, help, history, i, id, identifier, immed, implieds, importPackage, include,
indent, indexOf, init, ins, instanceOf, isAlpha, isApplicationRunning, isArray,
isDigit, isFinite, isNaN, iterator, java, join, jshint,
JSHINT, json, jquery, jQuery, keys, label, labelled, last, lastsemic, laxbreak, laxcomma,
App-Office-Contacts
view release on metacpan or search on metacpan
htdocs/assets/templates/app/office/contacts/search.tx view on Meta::CPAN
<table align="center">
<tr>
<td colspan="2"><div class="blue_centered">Search</div></td>
</tr>
<tr>
<td colspan="2">Search keys can be (fragments of): personal or organizational names, email addresses, or phone numbers</td>
</tr>
</table>
<table align="center">
<tr>
App-OpenHAP
view release on metacpan or search on metacpan
lib/Protocol/HAP/TLV.pm view on Meta::CPAN
return $out;
}
# decode($data) - Decode a TLV8 buffer into a type => value hash
# The function concatenates consecutive records with the same
# type (fragmentation). It returns the empty list if the buffer
# is malformed. A malformed buffer has a truncated record header
# or a length field that points past the end of the buffer.
sub decode ($data)
{
my %items;
App-PDFLibrarian
view release on metacpan or search on metacpan
share/title_abbr_iso4.csv view on Meta::CPAN
"-fläche";"-fl.";"ger"
"-föring";"-för.";"swe"
"-forschung";"-forsch.";"ger"
"-forsyning";"-forsyn.";"dan"
"-fortegnelse";"-fortegn.";"dan"
"-frage";"-fr.";"ger"
"-främjande";"-främj.";"swe"
"-führung";"-führ.";"ger"
"-gehalt";"n.a.";"ger"
"-genesis";"-genes.";"mul"
"-gericht";"-ger.";"ger"
share/title_abbr_iso4.csv view on Meta::CPAN
"abriendo";"n.a.";"spa"
"Abriss";"n.a.";"ger"
"abroad";"n.a.";"eng"
"Abrüstung";"Abrüst.";"ger"
"abruzz-";"abruzz.";"ita"
"Absatzfrage";"Absatzfr.";"ger"
"Absatzgebiet";"Absatzgeb.";"ger"
"Absatzgrössenklasse";"Absatzgrössenkl.";"ger"
"Absatzländer";"n.a.";"ger"
"Absatzverhältnis";"Absatzverhält.";"ger"
"Absatzwege";"n.a.";"ger"
share/title_abbr_iso4.csv view on Meta::CPAN
"Agrarbereich";"n.a.";"ger"
"Agrarbericht";"Agrarber.";"ger"
"agrarbiolog-";"agrarbiol.";"ger"
"Agrarentwicklung";"Agrarentwickl.";"ger"
"agraÌrfejloÌ‹deÌs";"agraÌrfejl.";"hun"
"Agrarfrage";"Agrarfr.";"ger"
"Agrargeographie";"Agrargeogr.";"ger"
"Agrargeschichte-";"Agrargesch.";"ger"
"Agrarhandel";"Agrarhand.";"ger"
"Agrarhilfe";"n.a.";"ger"
"agrari-";"agrar.";"fre, eng"
share/title_abbr_iso4.csv view on Meta::CPAN
"atome";"at.";"fre"
"Atomemission-";"Atomemiss.";"ger"
"Atomenergie";"Atomenerg.";"ger"
"atomenergikommission-";"atomenergikomm.";"swe, dan"
"Atomforum";"n.a.";"ger"
"Atomfrage";"Atomfr.";"ger"
"Atomgesetz";"n.a.";"ger"
"atomi-";"at.";"mul"
"atomindex";"n.a.";"eng"
"Atomkernenergie";"Atomkernenerg.";"ger"
"atomkrig";"n.a.";"nor"
share/title_abbr_iso4.csv view on Meta::CPAN
"befliss-";"befliss.";"ger"
"beflügeln";"beflüg.";"ger"
"befolkning-";"befolk.";"dan"
"Beförderung-";"Beförd.";"ger"
"before";"n.a.";"eng"
"Befrag-";"Befrag.";"ger"
"befreien";"befrei.";"ger"
"befriending";"befriend.";"eng"
"Befund";"n.a.";"ger"
"befunden";"befund.";"ger"
"Begabung";"Begab.";"ger"
share/title_abbr_iso4.csv view on Meta::CPAN
"Coesfeld";"Coesf.";"ger"
"Coetquidan";"n.a.";"fre"
"coevolution";"coevol.";"eng"
"coffee";"n.a.";"eng"
"coffin";"n.a.";"eng"
"coffrage";"n.a.";"fre"
"cofrad-";"cofr.";"spa"
"cÌŒofrafija";"cÌŒofr.";"aze"
"cogenerat-";"cogener.";"eng"
"cogitat-";"cogit.";"lat"
"cognate";"cogn.";"fre, eng"
share/title_abbr_iso4.csv view on Meta::CPAN
"Einzelbericht";"Einzelber.";"ger"
"Einzelbetreuung";"Einzelbetreu.";"ger"
"Einzeldarstellung-";"Einzeldarst.";"ger"
"Einzeldruck";"n.a.";"ger"
"Einzelentscheider";"Einzelentscheid.";"ger"
"Einzelfrage";"Einzelfr.";"ger"
"Einzelführer";"Einzelführ.";"ger"
"Einzelhalbleiter";"Einzelhalbleit.";"ger"
"Einzelhandel";"Einzelhand.";"ger"
"einzeln";"n.a.";"ger"
"Einzugsgebiet";"Einzugsgeb.";"ger"
share/title_abbr_iso4.csv view on Meta::CPAN
"Fræða";"n.a.";"ice"
"fræðar";"n.a.";"ice"
"Fræðaþing";"n.a.";"ice"
"fræðimanna";"fræðim.";"ice"
"Fræðirit";"n.a.";"ice"
"fragancia";"fraganc.";"spa"
"Frage";"n.a.";"ger"
"fragen";"frag.";"ger"
"Fragenkatalog";"Fragenkat.";"ger"
"fragiele";"n.a.";"dut"
"fragment-";"fragm.";"eng, fre"
"fraÌŠgor";"n.a.";"swe"
"fragrance";"fragr.";"eng"
"fraier-";"fraier.";"rum"
"fraktie";"frakt.";"dut"
"Fraktion-";"Frakt.";"ger"
"frälsningsarmeÌ";"n.a.";"swe"
"fram-";"fram.";"eng"
share/title_abbr_iso4.csv view on Meta::CPAN
"Frauenärztlich-";"Frauenärztl.";"ger"
"Frauenbericht";"Frauenber.";"ger"
"Frauenbildung";"Frauenbild.";"ger"
"Frauenfeld";"n.a.";"ger"
"Frauenforschung";"Frauenforsch.";"ger"
"Frauenfrage-";"Frauenfr.";"ger"
"Frauengeschichte";"Frauengesch.";"ger"
"Frauenheilkund-";"Frauenheilkd.";"ger"
"Frauenjahrbuch";"Frauenjahrb.";"ger"
"Frauenkrankheit";"Frauenkrankh.";"ger"
"Frauenschaffen";"Frauenschaff.";"ger"
share/title_abbr_iso4.csv view on Meta::CPAN
"grenssteen";"n.a.";"dut"
"Grenville";"Grenv.";"eng"
"Grenzach";"Grenz.";"ger"
"Grenze";"n.a.";"ger"
"Grenzfläche";"Grenzfl.";"ger"
"Grenzfrage";"Grenzfr.";"ger"
"Grenzgebiet-";"Grenzgeb.";"ger"
"Grenzhausen";"Grenzhaus.";"ger"
"Grenzland";"Grenzl.";"ger"
"Grenzmarke";"n.a.";"ger"
"Grenzphysik-";"Grenzphys.";"ger"
share/title_abbr_iso4.csv view on Meta::CPAN
"Grundeigentum";"n.a.";"ger"
"Grundeigentümer";"Grundeigentüm.";"ger"
"grundejer";"grundej.";"dan"
"Grundfall";"n.a.";"ger"
"Grundfondsökonom-";"Grundfondsökon.";"ger"
"Grundfrage";"Grundfr.";"ger"
"Grundgesetz";"n.a.";"ger"
"Grundinformation";"Grundinf.";"ger"
"Grundkurs";"n.a.";"ger"
"grundlægge-";"grundl.";"dan"
"Grundlage";"Grundl.";"ger"
share/title_abbr_iso4.csv view on Meta::CPAN
"handeln";"n.a.";"ger"
"Handelsakt";"n.a.";"ger"
"handelsblad";"handelsbl.";"dut"
"handelsdepartement";"handelsdep.";"nor"
"Handelsflotte";"n.a.";"ger"
"Handelsfrage";"Handelsfr.";"ger"
"Handelshochschule";"Handelshochsch.";"ger"
"handelshögskola-";"handelshögsk.";"fin"
"handelshojskole";"handelshojsk.";"dan"
"handelshoogeschool";"handelshoogesch.";"dut"
"handelshøyskole";"handelshøysk.";"nor"
share/title_abbr_iso4.csv view on Meta::CPAN
"lebendig";"leb.";"ger"
"Lebensbeschreibung-";"Lebensbeschreib.";"ger"
"Lebensbild";"n.a.";"ger"
"lebensdauermanagement";"lebensdauermanag.";"ger"
"Lebensforschung-";"Lebensforsch.";"ger"
"Lebensfrage";"Lebensfr.";"ger"
"Lebenshaltung";"Lebenshalt.";"ger"
"Lebenshilfe";"n.a.";"ger"
"Lebenslauf";"n.a.";"ger"
"Lebensmittel";"Lebensm.";"ger"
"Lebensordnung";"Lebensordn.";"ger"
share/title_abbr_iso4.csv view on Meta::CPAN
"Nachbargebiet-";"Nachbargeb.";"ger"
"Nachbarschaft";"Nachbarsch.";"ger"
"Nachbarsprache";"Nachbarspr.";"ger"
"nachbiblisch";"n.a.";"ger"
"Nachdruck";"Nachdr.";"ger"
"Nachfrage";"Nachfr.";"ger"
"nachhaltig-";"nachhalt.";"ger"
"Nachkomme";"n.a.";"ger"
"Nachkonziliar";"Nachkonzil.";"ger"
"Nachkriegsgeschichte";"Nachkriegsgesch.";"ger"
"Nachkriegszeit";"n.a.";"ger"
share/title_abbr_iso4.csv view on Meta::CPAN
"Osteurop-";"Osteur.";"ger"
"Ostfalen";"Ostfal.";"ger"
"ostfälisch";"ostfäl.";"ger"
"Ostfildern";"n.a.";"ger"
"Østfold";"n.a.";"nor"
"Ostfrage";"Ostfr.";"ger"
"Ostfriesisch-";"Ostfries.";"ger"
"Ostfriesland";"Ostfriesl.";"ger"
"Ostgeschäft";"n.a.";"ger"
"Osthandel";"Osthand.";"ger"
"Osthessen";"Osthess.";"ger"
share/title_abbr_iso4.csv view on Meta::CPAN
"rechtscollege";"rechtscoll.";"dut"
"Rechtsentscheide";"n.a.";"ger"
"Rechtsentscheidsammlung";"Rechtsentscheidsamml.";"ger"
"rechtsfilosofie";"rechtsfilos.";"dut"
"Rechtsform";"n.a.";"ger"
"Rechtsfrage-";"Rechtsfr.";"ger"
"rechtsgeleerd";"rechtsgel.";"dut"
"rechtsgeleerdheid";"rechtsgeleerdh.";"dut"
"Rechtsgeschichte";"Rechtsgesch.";"ger"
"rechtsgeschichtlich-";"rechtsgesch.";"ger"
"rechtshistorisch";"rechtshist.";"ger"
share/title_abbr_iso4.csv view on Meta::CPAN
"sezona";"n.a.";"lav"
"sezoÌne";"sez.";"slo"
"sfeclă";"n.a.";"rum"
"sfinga";"n.a.";"hrv"
"sfouggar-";"sfougg.";"gre"
"sfragistika";"n.a.";"bul"
"sgoranie";"sgor.";"rus"
"shadow-";"shad.";"eng"
"shaker";"shak.";"eng"
"shakespear-";"shakespear.";"eng, fre"
"shaman";"n.a.";"eng"
share/title_abbr_iso4.csv view on Meta::CPAN
"spożywcz-";"spoż.";"pol"
"Sprachanalyse";"Sprachanal.";"ger"
"Sprachatlante";"n.a.";"ger"
"Sprache";"n.a.";"ger"
"Sprachforschung";"Sprachforsch.";"ger"
"Sprachfrage-";"Sprachfr.";"ger"
"Sprachgebiet-";"Sprachgeb.";"ger"
"Sprachgeschichte";"Sprachgesch.";"ger"
"Sprachinselforschung";"Sprachinselforsch.";"ger"
"Sprachkommunik-";"Sprachkommun.";"ger"
"Sprachkontakt";"n.a.";"ger"
share/title_abbr_iso4.csv view on Meta::CPAN
"sueticus";"n.a.";"lat"
"Suevia";"Suev.";"lat"
"suffer-";"suff.";"eng"
"sufficiency";"suffic.";"eng"
"Suffolk";"n.a.";"eng"
"suffrag-";"suffrag.";"fre"
"suflet";"sufl.";"rum"
"sugar";"n.a.";"eng, hun"
"sugarcane";"n.a.";"eng"
"sugerencia";"suger.";"spa"
"suggest-";"suggest.";"eng"
share/title_abbr_iso4.csv view on Meta::CPAN
"tagaÌllam";"tagaÌll.";"hun"
"taganrogsk-";"taganrog.";"rus"
"Tagebau";"n.a.";"ger"
"Tagebuch";"Tageb.";"ger"
"tagegyhaÌz";"tagegyh.";"hun"
"Tagesfrage";"Tagesfr.";"ger"
"Tagesprotokoll";"Tagesprotok.";"ger"
"Tagesstätte";"n.a.";"ger"
"Tageswert";"n.a.";"ger"
"Tageszeitung";"Tagesztg.";"ger"
"taghna";"n.a.";"mlt"
share/title_abbr_iso4.csv view on Meta::CPAN
"umetnost-";"umet.";"srp"
"Umfallchirurgie";"Umfallchir.";"ger"
"Umfallforsch-";"Umfallforsch.";"ger"
"Umform";"n.a.";"ger"
"Umformtechnik";"Umformtech.";"ger"
"Umfrage";"Umfr.";"ger"
"Umgebung";"Umgeb.";"ger"
"Umgegend";"Umgeg.";"ger"
"uÌmido";"n.a.";"por"
"umieje̢tn-";"umieje̢t.";"pol"
"umirovljen-";"umirov.";"hrv"
share/title_abbr_iso4.csv view on Meta::CPAN
"Umweltbildung";"Umweltbild.";"ger"
"Umweltbundesamt";"n.a.";"ger"
"Umweltchemi-";"Umweltchem.";"ger"
"Umwelterziehung-";"Umwelterzieh.";"ger"
"Umweltforschung";"Umweltforsch.";"ger"
"Umweltfrage";"Umweltfr.";"ger"
"umweltgeochemi-";"umweltgeochem.";"ger"
"Umweltgestaltung";"Umweltgestalt.";"ger"
"Umwelthilfe";"n.a.";"ger"
"Umwelthygiene";"Umwelthyg.";"ger"
"Umweltinformation";"Umweltinf.";"ger"
share/title_abbr_iso4.csv view on Meta::CPAN
"vermogenbelasting";"vermogenbelast.";"dut"
"Vermögenbestand";"n.a.";"ger"
"vermogensbeheer";"n.a.";"dut"
"Vermögensberatung";"Vermögensberat.";"ger"
"Vermögensbildung";"Vermögensbild.";"ger"
"Vermögensfrage-";"Vermögensfr.";"ger"
"vermogensgroei";"n.a.";"dut"
"Vermögensnachfolge";"n.a.";"ger"
"Vermögensteuer";"n.a.";"ger"
"Vermont";"Vt.";"eng"
"Vernachlässigung";"Vernachläss.";"ger"
share/title_abbr_iso4.csv view on Meta::CPAN
"zeichnen";"zeichn.";"ger"
"Zeichner";"Zeichn.";"ger"
"zeil-";"zeil.";"dut"
"zeilvaart";"n.a.";"dut"
"Zeitalter";"Zeitalt.";"ger"
"Zeitfrage";"Zeitfr.";"ger"
"Zeitgeist";"n.a.";"ger"
"Zeitgemäss";"n.a.";"ger"
"Zeitgenosse";"n.a.";"ger"
"zeitgenössich-";"zeitgenöss.";"ger"
"Zeitgeschehen";"Zeitgesch.";"ger"
App-Phoebe
view release on metacpan or search on metacpan
lib/App/Phoebe.pm view on Meta::CPAN
my $port = port($stream);
my $spaces = space_regex();
my $reserved = reserved_regex($stream);
$log->debug("Serving ($hosts)(?::$port)?");
$log->debug("Spaces $spaces");
my($scheme, $authority, $path, $query, $fragment) =
$url =~ m|(?:([^:/?#]+):)?(?://([^/?#]*))?([^?#]*)(?:\?([^#]*))?(?:#(.*))?|;
$log->info("Looking at $url");
my ($host, $space, $id, $n, $style, $filter);
if (run_extensions($stream, $url)) {
# config file goes first
lib/App/Phoebe.pm view on Meta::CPAN
my $hosts = host_regex();
my $spaces_regex = space_regex();
my $port = port($stream);
if ($request =~ m!^titan://($hosts)(?::$port)?!) {
my $host = $1;
my($scheme, $authority, $path, $query, $fragment) =
$request =~ m|(?:([^:/?#]+):)?(?://([^/?#]*))?([^?#]*)(?:\?([^#]*))?(?:#(.*))?|;
if ($path =~ m!^(?:/($spaces_regex))?(?:/raw|/page|/file)?/([^/;=&]+(?:;\w+=[^;=&]+)+)!) {
my $space = $1;
my ($id, @params) = split(/[;=&]/, $2);
my $params = { map {decode_utf8(uri_unescape($_))} @params };
App-PigLatin
view release on metacpan or search on metacpan
t/files/moby11.txt view on Meta::CPAN
and then shoulders the barrow and marches up the wharf.
"Why," said I, "Queequeg, you might have known better than that,
one would think. Didn't the people laugh?"
Upon this, he told me another story. The people of his island
of Rokovoko, it seems, at their wedding feasts express the fragrant
water of young cocoanuts into a large stained calabash like a punchbowl;
and this punchbowl always forms the great central ornament on
the braided mat where the feast is held. Now a certain grand merchant
ship once touched at Rokovoko, and its commander--from all accounts,
a very stately punctilious gentleman, at least for a sea captain--
t/files/moby11.txt view on Meta::CPAN
terraqueous globe are the Nantucketer's. For the sea is his;
he owns it, as Emperors own empires; other seamen having but a right
of way through it. Merchant ships are but extension bridges;
armed ones but floating forts; even pirates and privateers,
though following the sea as highwaymen the road. they but plunder
other ships, other fragments of the land like themselves,
without seeking to draw their living from the bottomless deep itself.
The Nantucketer, he alone resides and riots on the sea;
he alone, in Bible language, goes down to it in ships;
to and fro ploughing it as his own special plantation.
There is his home; there lies his business which a Noah's flood
t/files/moby11.txt view on Meta::CPAN
Tashtego has to ram his long pole harder and harder, and deeper
and deeper into the Tun, until some twenty feet of the pole
have gone down.
Now, the people of the Pequod had been baling some time in this way;
several tubs had been filled with the fragrant sperm; when all at
once a queer accident happened. Whether it was that Tashtego,
that wild Indian, was so heedless and reckless as to let go for a moment
his one-handed hold on the great cabled tackles suspending the head;
or whether the place where he stood was so treacherous and oozy;
or whether the Evil One himself would have it to fall out so,
t/files/moby11.txt view on Meta::CPAN
on the run, as you may say. Yes, it was a running delivery,
so it was.
Now, had Tashtego perished in that head, it had been a very
precious perishing; smothered in the very whitest and daintiest
of fragrant spermaceti; coffined, hearsed, and tombed in
the secret inner chamber and sanctum sanctorum of the whale.
Only one sweeter end can readily be recalled--the delicious
death of an Ohio honey-hunter, who seeking honey in the crotch
of a hollow tree, found such exceeding store of it, that leaning
too far over, it sucked him in, so that he died embalmed.
t/files/moby11.txt view on Meta::CPAN
compound for grey amber, yet the two substances are quite distinct.
For amber, though at times found on the sea-coast, is also dug up in some
far inland soils, whereas ambergris is never found except upon the sea.
Besides, amber is a hard, transparent, brittle, odorless substance,
used for mouth-pieces to pipes, for beads and ornaments; but ambergris
is soft, waxy, and so highly fragrant and spicy, that it is largely used
in perfumery, in pastiles, precious candles, hair-powders, and pomatum.
The Turks use it in cooking, and also carry it to Mecca, for the same
purpose that frankincense is carried to St. Peter's in Rome. Some wine
merchants drop a few grains into claret, to flavor it.
t/files/moby11.txt view on Meta::CPAN
certain hard, round, bony plates, which at first Stubb thought
might be sailors' trousers buttons; but it afterwards turned
out that they were nothing, more than pieces of small squid
bones embalmed in that manner.
Now that the incorruption of this most fragrant ambergris
should be found in the heart of such decay; is this nothing?
Bethink thee of that saying of St. Paul in Corinthians,
about corruption and incorruption; how that we are sown in dishonor,
but raised in glory. And likewise call to mind that saying
of Paracelsus about what it is that maketh the best musk.
t/files/moby11.txt view on Meta::CPAN
and in the state that it is casked, the oil is nearly scentless.
The truth is, that living or dead, if but decently treated,
whales as a species are by no means creatures of ill odor;
nor can whalemen be recognised, as the people of the middle
ages affected to detect a Jew in the company, by the nose.
Nor indeed can the whale possibly be otherwise than fragrant,
when, as a general thing, he enjoys such high health;
taking abundance of exercise; always out of doors; though, it is true,
seldom in the open air. I say, that the motion of a Sperm Whale's
flukes above water dispenses a perfume, as when a musk-scented
lady rustles her dress in a warm parlor. What then shall I liken
the Sperm Whale to for fragrance, considering his magnitude?
Must it not be to that famous elephant, with jewelled tusks,
and redolent with myrrh, which was led out of an Indian town
to do honor to Alexander the Great?
t/files/moby11.txt view on Meta::CPAN
It is tough with congealed tendons--a wad of muscle--but still contains
some oil. After being severed from the whale, the white-horse
is first cut into portable oblongs ere going to the mincer.
They look much like blocks of Berkshire marble.
Plum-pudding is the term bestowed upon certain fragmentary parts of
the whale's flesh, here and there adhering to the blanket of blubber,
and often participating to a considerable degree in its unctuousness.
It is a most refreshing, convivial, beautiful object to behold.
As its name imports, it is of an exceedingly rich, mottled tint, with a
bestreaked snowy and golden ground, dotted with spots of the deepest
t/files/moby11.txt view on Meta::CPAN
which is the last preceding the superficial formations. And though
none of them precisely answer to any known species of the present time,
they are yet sufficiently akin to them in general respects, to justify
their taking ranks as Cetacean fossils.
Detached broken fossils of pre-adamite whales, fragments of their bones
and skeletons, have within thirty years past, at various intervals,
been found at the base of the Alps, in Lombardy, in France,
in England, in Scotland, and in the States of Louisiana, Mississippi,
and Alabama. Among the more curious of such remains is part of a skull,
which in the year 1779 was disinterred in the Rue Dauphine in Paris,
a short street opening almost directly upon the palace of the Tuileries;
and bones disinterred in excavating the great docks of Antwerp,
in Napoleon's time. Cuvier pronounced these fragments to have belonged
to some utterly unknown Leviathanic species.
But by far the most wonderful of all Cetacean relics was the almost
complete vast skeleton of an extinct monster, found in the year 1842,
on the plantation of Judge Creagh, in Alabama. The awe-stricken credulous
t/files/moby11.txt view on Meta::CPAN
elephants in the book of Maccabees. Meanwhile Ahab half smothered
in the foam of the whale's insolent tail, and too much of a cripple
to swim,--though he could still keep afloat, even in the heart
of such a whirlpool as that; helpless Ahab's head was seen,
like a tossed bubble which the least chance shock might burst.
From the boat's fragmentary stern, Fedallah incuriously and mildly
eyed him; the clinging crew, at the other drifting end, could not
succor him; more than enough was it for them to look to themselves.
For so revolvingly appalling was the White Whale's aspect,
and so planetarily swift the ever-contracting circles
he made, that he seemed horizontally swooping upon them.
App-Presto
view release on metacpan or search on metacpan
given is appended to the endpoint specified when presto is invoked as
shown in the SYNOPSIS above.
Request Building
If the endpoint contains a * character the URL fragment specified in
the GET/POST/etc command is inserted at that point. This allows you to
do things like auto-append a file extension to all URLs. For instance:
bash$ presto http://my-server.com*.json
http://my-server.com> GET /product/1
In this case, the full URL would be
http://my-server.com/product/1.json. If no * is found in the URL, the
URL fragment is simply appended at the end of the endpoint.
All arguments after the first will be treated as query parameters (for
GET/HEAD/DELETE requests) or request content (for POST/PUT requests).
For instance:
App-Prove-Plugin-TestArgs
view release on metacpan or search on metacpan
maint/AuthorExtensions.pl view on Meta::CPAN
: $local_bin; ## no critic (RequireLocalizedPunctuationVars)
{
no warnings 'once'; ## no critic (ProhibitNoWarnings)
*MY::postamble = sub {
my $make_fragment = '';
$make_fragment .= <<"MAKE_FRAGMENT";
export PATH := $ENV{ PATH }
ifdef PERL5LIB
PERL5LIB := @{ [ -d $t_lib ? "$t_lib:" : () ] }$local_lib:\$(PERL5LIB)
else
maint/AuthorExtensions.pl view on Meta::CPAN
testlm:
\$(NOECHO) \$(MAKE) TEST_FILES=\$\$(find t -name '*.t' -printf '%T@ %p\\n' | sort -nr | head -1 | cut -d' ' -f2) test
MAKE_FRAGMENT
my $prove = _which 'prove';
$make_fragment .= <<"MAKE_FRAGMENT" if $prove;
# runs test scripts through TAP::Harness (prove) instead of Test::Harness (ExtUtils::MakeMaker)
.PHONY: testp
testp: pure_all
\$(NOECHO) \$(FULLPERLRUN) $prove\$(if \$(TEST_VERBOSE:0=), --verbose) --norc@{ [ -f $prove_rc_file ? " --rc $prove_rc_file" : () ] } --blib --recurse --shuffle \$(TEST_FILES)
MAKE_FRAGMENT
$make_fragment .= <<"MAKE_FRAGMENT" if _which 'cover';
.PHONY: cover
cover:
\$(NOECHO) cover -test -ignore @{ [ basename( $local_lib_root ) ] } -report vim
MAKE_FRAGMENT
return $make_fragment;
};
}
sub _which ( $ ) {
my ( $executable ) = @_;
App-Prun-Scaled
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
return 1;
}
sub postamble {
$PostambleUsed = 1;
my $fragment;
$fragment .= <<"AUTO_INSTALL" if !$InstallDepsTarget;
config :: installdeps
\t\$(NOECHO) \$(NOOP)
AUTO_INSTALL
$fragment .= <<"END_MAKE";
checkdeps ::
\t\$(PERL) $0 --checkdeps
installdeps ::
inc/Module/AutoInstall.pm view on Meta::CPAN
listalldeps ::
\t$PostambleActionsListAllDeps
END_MAKE
return $fragment;
}
1;
__END__
App-REPL
view release on metacpan or search on metacpan
It -can- notice, but PPI currently handles quote-like operators
strangely, treating qw## and qw() in oddly different ways, and I
want to either resolve that or resolve my thinking about that
before I add further magic to App-REPL
6. You say 'magic', but I hear 'fragile evil'. What does App-REPL do
that's fragile and evil?
Well, several things.
1. The current version monkey-patches a bug out of PPI, so that
I don't have to wait for the next PPI to be released before
App-RPi-EnvUI
view release on metacpan or search on metacpan
public/js/flot.js view on Meta::CPAN
// Collection of HTML div layers for text overlaid onto the canvas
this.textContainer = null;
this.text = {};
// Cache of text fragments and metrics, so we can avoid expensively
// re-calculating them when the plot is re-rendered in a loop.
this._textCache = {};
}
public/js/flot.js view on Meta::CPAN
if (!options.legend.show) {
return;
}
var fragments = [], entries = [], rowStarted = false,
lf = options.legend.labelFormatter, s, label;
// Build a list of legend entries, with each having a label and a color
for (var i = 0; i < series.length; ++i) {
public/js/flot.js view on Meta::CPAN
var entry = entries[i];
if (i % options.legend.noColumns == 0) {
if (rowStarted)
fragments.push('</tr>');
fragments.push('<tr>');
rowStarted = true;
}
fragments.push(
'<td class="legendColorBox"><div style="border:1px solid ' + options.legend.labelBoxBorderColor + ';padding:1px"><div style="width:4px;height:0;border:5px solid ' + entry.color + ';overflow:hidden"></div></div></td>' +
'<td class="legendLabel">' + entry.label + '</td>'
);
}
if (rowStarted)
fragments.push('</tr>');
if (fragments.length == 0)
return;
var table = '<table style="font-size:smaller;color:' + options.grid.color + '">' + fragments.join("") + '</table>';
if (options.legend.container != null)
$(options.legend.container).html(table);
else {
var pos = "",
p = options.legend.position,
App-Raider
view release on metacpan or search on metacpan
lib/App/Raider.pm view on Meta::CPAN
- Technical terms exact. Code blocks unchanged. Errors quoted exact.
- Pattern: `[thing] [action] [reason]. [next step].`
- Not: "Sure! I'd be happy to help. The issue is likely caused by..."
- Yes: "Bug in auth middleware. Token check uses `<` not `<=`. Fix:"
- Drop caveman for: destructive ops warnings, irreversible confirmations,
multi-step sequences where fragment order could confuse. Resume after.
- User says "normal mode" or "stop caveman": revert, write normal.
You have no yield / ask / abort tool. Task done: plain text reply. CLI
loops back to user.
EOM
App-Rakubrew
view release on metacpan or search on metacpan
lib/App/Rakubrew/VersionHandling.pm view on Meta::CPAN
}
}
sub get_local_version {
my ($vol, $path, undef) = splitpath(realpath(), 1);
my @fragments = splitdir($path);
while (@fragments) {
for ($local_filename, '.perl6-version') {
my $filepath = catpath($vol, catdir(@fragments), $_);
if (-f $filepath) {
my $version = trim(slurp($filepath));
if(version_exists($version)) {
return $version;
}
lib/App/Rakubrew/VersionHandling.pm view on Meta::CPAN
say STDERR "file. This version is not installed. Ignoring.";
say STDERR '';
}
}
}
pop @fragments;
}
return undef;
}
sub is_version_broken {
App-RecordStream
view release on metacpan or search on metacpan
lib/App/RecordStream/Operation/fromtcpdump.pm view on Meta::CPAN
use Data::Dumper;
# From NetPacket::IP
my $IP_FLAGS = {
'more_fragments' => IP_FLAG_MOREFRAGS,
'dont_fragment' => IP_FLAG_DONTFRAG,
'congestion' => IP_FLAG_CONGESTION,
};
# From NetPacket::TCP
my $TCP_FLAGS = {
App-RedisTop
view release on metacpan or search on metacpan
lib/App/RedisTop/Component/Memory.pm view on Meta::CPAN
my $self = bless {
group => 'mem',
items => [
{ name => 'use', stat_key => 'used_memory', },
{ name => 'rss', stat_key => 'used_memory_rss', },
{ name => 'frag', stat_key => 'mem_fragmentation_ratio', },
],
width => 7,
unit => 1,
@_,
}, $class;
App-Relate-Complex
view release on metacpan or search on metacpan
t/dat/01/locate/locate.db
t/dat/db/dorks.db
t/dat/db/dummies.db
t/dat/db/oink.db
t/dat/oink/tree_son/zzz/ZZZ/RCS/splintered_reason.txt,v
t/dat/oink/tree_son/zzz/ZZZ/fragmented_target/shards_of_dog.txt
t/dat/oink/tree_son/zzz/ZZZ/fragmented_target/unchained_earth.TXT
t/dat/oink/tree_son/zzz/ZZZ/fragmented_target/shameful_geezers.txt
t/dat/oink/tree_son/zzz/ZZZ/fragmented_target/helpful_tweezers.txt
t/dat/oink/tree_son/zzz/ZZZ/fragmented_target/fragmented_target.txt
t/dat/oink/tree_son/zzz/ZZZ/splintered_reason.txt~
t/dat/oink/tree_son/zzz/ZZZ/splintered_reason.txt
t/dat/oink/tree_son/zzz/ZZZ/#fragmented_target.txt#
t/dat/oink/tree_son/zzz/ZZZ/fragmented_target.txt
t/dat/oink/tree_son/zzz/ZZZ/fragmented_target.txt~
t/dat/oink/tree_son/zzz/world_crime_league
t/dat/oink/tree_son/zzz/bushed_whacked
t/dat/oink/tree_son/republicanism
t/dat/oink/tree_son/none_dare_call_it
t/dat/dorks/Politicians/funny-hats.bio
App-Sandy
view release on metacpan or search on metacpan
lib/App/Sandy/Command/Genome.pm view on Meta::CPAN
'count-loops-by' => 'coverage',
'coverage' => 8,
'strand-bias' => 'random',
'seqid-weight' => 'length',
'sequencing-type' => 'paired-end',
'fragment-mean' => 300,
'fragment-stdd' => 50,
'sequencing-error' => 0.001,
'read-mean' => 100,
'read-stdd' => 0,
'quality-profile' => 'poisson',
'join-paired-ends' => 0,
lib/App/Sandy/Command/Genome.pm view on Meta::CPAN
[default:"100"; Integer]
-d, --read-stdd read standard deviation size for poisson
[default:"0"; Integer]
-t, --sequencing-type single-end or paired-end reads
[default:"paired-end"]
-M, --fragment-mean the fragment mean size for paired-end reads
[default:"300"; Integer]
-D, --fragment-stdd the fragment standard deviation size for
paired-end reads [default:"50"; Integer]
Genome-specific options:
-c, --coverage genome coverage [default:"8", Number]
-a, --genomic-variation a list of genomic variation entries from
lib/App/Sandy/Command/Genome.pm view on Meta::CPAN
=head1 DESCRIPTION
This subcommand simulates genome sequencing reads taking into account the
quality-profile and the genome-variation patterns, along with: raffle
seed; coverage (depth); fragment mean and standard deviation; single-end
(long and short fragments) and paired-end sequencing type; bam, sam,
fastq.gz and fastq output formats and more.
=head2 INPUT
I<sandy genome> expects as argument a fasta file with chromosome sequences.
lib/App/Sandy/Command/Genome.pm view on Meta::CPAN
%T mate read start position
%N mate read end position
%A mate read start position regarding reference genome ***
%B mate read end position regarding reference genome ***
%D distance between the paired-reads
%M fragment mean
%D fragment standard deviation
%f fragment size
%F fragment strand
%S fragment start position
%E fragment end position
%X fragment start position regarding reference genome ***
%Z fragment end position regarding reference genome ***
----------------------------------------------------------------------------
*** specific for genomic variation (genome simulation only)
=item B<--jobs>
lib/App/Sandy/Command/Genome.pm view on Meta::CPAN
=item B<--sequencing-type>
Sets the sequencing type to single-end or paired-end
=item B<--fragment-mean>
If the sequencing-type is set to paired-end, it sets the
fragment mean
=item B<--fragment-stdd>
If the sequencing-type is set to paired-end, it sets the
fragment standard deviation
=item B<--sequencing-error>
Sets the sequencing error rate if quality-profile is equal to 'poisson'.
Valid values are between zero and one
App-SeismicUnixGui
view release on metacpan or search on metacpan
lib/App/SeismicUnixGui/sunix/data/segyread.pm view on Meta::CPAN
even with EXABYTE tapes.
Caveat: may be slow on an 8mm streaming (EXABYTE) tapedrive
Warning: segyread or segywrite to 8mm tape is fragile. Allow sufficient
time between successive reads and writes.
Warning: may return the error message "efclose: fclose failed"
( run in 1.706 second using v1.01-cache-2.11-cpan-b16cb0d3907 )