Result:
found more than 661 distributions - search limited to the first 2001 files matching your query
( run in 0.596 )
CAD-Drawing
view release on metacpan or search on metacpan
lib/CAD/Drawing.pm view on Meta::CPAN
my ($points, $opt) = @_;
my %opts;
(ref($opt) eq "HASH") && (%opts = %$opt);
# maybe we should allow three, since we actually use three?
(scalar(@$points) == 2) or croak("cannot draw ray without 2 points");
# use a percentage of length, with a 15deg rotation ccw from
# reversed direction (later, add options.)
my $portion = 0.05;
my $rotate = $pi / 12;
my $rev = NewVec(line_vec(@$points)->ScalarMult($portion * -1));
my $length = $rev->Length();
CAD-Firemen
view release on metacpan or search on metacpan
lib/CAD/Firemen/Common.pm view on Meta::CPAN
}
my $terminalWidth = _terminalWidth() - 2;
my $relValue = sprintf("%.0f", $value / $max * 100);
$label .= " [";
# - 6 is the percent itself (e.g.: " 69%, ")
my $valueLen = $terminalWidth - length($label) - 1 - 6 - length($value);
if($valueLen > 100){
$valueLen = 100;
}
my $signs = floor($valueLen * $relValue / 100);
lib/CAD/Firemen/Common.pm view on Meta::CPAN
Prints a text block with an specified indentation.
=head2 buildStatistic
Builds a bar of = to display a percentage value of the ratio between $value and $max.
=head2 getInstallationPath
Method parses $ENV{PATH} and tries to filter out all Firemen related paths.
Afterwards, if more than one is found, the user can select which one he wants
CAM-PDF
view release on metacpan or search on metacpan
bin/crunchjpgs.pl view on Meta::CPAN
if ($jpgsize < $oldsize) {
$doc->replaceObject($objnum, $jpg, 8, 1);
$newtotsize += $jpgsize;
my $percent = sprintf '%.1f', 100 * ($oldsize - $jpgsize) / $oldsize;
_inform("\tcompressed $oldsize -> $jpgsize ($percent%)", $opts{verbose});
$doneobjs{$objnum} = 1;
$rimages++;
} else {
_inform("\tskipped $oldsize -> $jpgsize", $opts{verbose});
}
bin/crunchjpgs.pl view on Meta::CPAN
my $newcontentsize = $doc->{contentlength};
if ($opts{verbose})
{
my $contentpercent = sprintf '%.1f', $oldcontentsize ? 100 * ($oldcontentsize - $newcontentsize) / $oldcontentsize : 0;
my $totpercent = sprintf '%.1f', $oldtotsize ? 100 * ($oldtotsize - $newtotsize) / $oldtotsize : 0;
_inform('Compression summary:', 1);
_inform(" Document: $oldcontentsize -> $newcontentsize ($contentpercent%)", 1);
_inform(" Images: $oldtotsize -> $newtotsize ($totpercent%)", 1);
}
sub _isjpg
{
my $im = shift;
CAM-XML
view release on metacpan or search on metacpan
lib/CAM/XML.pm view on Meta::CPAN
=head1 CODING
This module has just over 97% code coverage in its regression tests,
as reported by Devel::Cover via C<perl Build testcover>. The
remaining few percent is mostly error conditions and a few conditional
defaults on internal methods.
This module passes most of the Perl Best Practices guidelines, as
enforced by Perl::Critic v0.14. A notable exceptions is the
legacy use of C<camelCase> subroutine names.
CGI-Application-Plugin-Authentication
view release on metacpan or search on metacpan
lib/CGI/Application/Plugin/Authentication.pm view on Meta::CPAN
This is the base colour that will be used in the included login box. All other
colours are automatically calculated based on this colour (unless you hardcode
the colour values). In order to calculate other colours, you will need the
Color::Calc module. If you do not have the Color::Calc module, then you will
need to use fixed values for all of the colour options. All colour values
besides the BASE_COLOUR can be simple percentage values (including the % sign).
For example if you set the LIGHTER_COLOUR option to 80%, then the calculated
colour will be 80% lighter than the BASE_COLOUR.
=item LIGHT_COLOUR (default: 50% or #a2aac4)
CGI-Application-Search
view release on metacpan or search on metacpan
templates/prototype_javascript.tmpl view on Meta::CPAN
}
});
Effect.Scale = Class.create();
Object.extend(Object.extend(Effect.Scale.prototype, Effect.Base.prototype), {
initialize: function(element, percent) {
this.element = $(element)
options = Object.extend({
scaleX: true,
scaleY: true,
scaleContent: true,
templates/prototype_javascript.tmpl view on Meta::CPAN
this.originalTop = this.element.offsetTop;
this.originalLeft = this.element.offsetLeft;
if(this.element.style.fontSize=="") this.sizeEm = 1.0;
if(this.element.style.fontSize && this.element.style.fontSize.indexOf("em")>0)
this.sizeEm = parseFloat(this.element.style.fontSize);
this.factor = (percent/100.0) - (options.scaleFrom/100.0);
if(options.scaleMode=='box') {
this.originalHeight = this.element.clientHeight;
this.originalWidth = this.element.clientWidth;
} else
if(options.scaleMode=='contents') {
templates/prototype_javascript.tmpl view on Meta::CPAN
scaleY: false,
afterFinish: function(effect) { Element.hide(effect.element) } });
}}, arguments[1] || {}));
}
// old: new Effect.ContentZoom(element, percent)
// new: Element.setContentZoom(element, percent)
Element.setContentZoom = function(element, percent) {
var element = $(element);
element.style.fontSize = (percent/100) + "em";
if(navigator.appVersion.indexOf('AppleWebKit')>0) window.scrollBy(0,0);
}
//-->
</script>
CGI-Cache
view release on metacpan or search on metacpan
inc/URI/Escape.pm view on Meta::CPAN
utf8::encode($text);
return uri_escape($text, @_);
}
sub uri_unescape {
# Note from RFC1630: "Sequences which start with a percent sign
# but are not followed by two hexadecimal characters are reserved
# for future extension"
my $str = shift;
if (@_ && wantarray) {
# not executed for the common case of a single argument
CGI-Capture
view release on metacpan or search on metacpan
1.11 2007-12-06
- Updating YAML::Tiny to ensure a bug fix is
made for TERMCAP strings with unprintable
characters in them. This was causing a large
percentage of install attempts to spuriously fail.
1.10 2007-10-22
- No functional changes
- Upgrading to newer AUTOMATED_TESTING tests
CGI-Ex-Template-XS
view release on metacpan or search on metacpan
samples/bench_template.pl view on Meta::CPAN
my $filename;
### uncomment to run a specific test - otherwise all tests run
#@run = qw(07);
# ### All percents are CGI::Ex::Template::XS vs TT2 with Stash::XS
# ### (The percent that CET is faster than TT)
# Existing object by string ref #
# New object with CACHE_EXT set # #
# New object each time (undef CACHE_SIZE) # # #
# This percent is compiled in memory (repeated calls) # # # #
my $tests = { # # # # #
'01_empty' => "", # 268% # 585% # 318% # 414% # 23863.2/s #
'02_var_sma' => "[% one %]", # 225% # 563% # 465% # 466% # 19051.2/s #
'03_var_lar' => "[% one %]"x100, # 223% # 405% # 196% # 396% # 2508.9/s #
'04_set_sma' => "[% SET one = 2 %]", # 206% # 489% # 433% # 372% # 17831.8/s #
CGI-Inspect
view release on metacpan or search on metacpan
lib/CGI/Inspect/htdocs/js/jquery.ui.all.js view on Meta::CPAN
*
* http://docs.jquery.com/UI/Effects/Scale
*
* Depends:
* effects.core.js
*/
(function(a){a.effects.puff=function(b){return this.queue(function(){var f=a(this);var c=a.extend(true,{},b.options);var h=a.effects.setMode(f,b.options.mode||"hide");var g=parseInt(b.options.percent,10)||150;c.fade=true;var e={height:f.height(),...
* jQuery UI Effects Shake 1.7.1
*
* Copyright (c) 2009 AUTHORS.txt (http://jqueryui.com/about)
* Dual licensed under the MIT (MIT-LICENSE.txt)
* and GPL (GPL-LICENSE.txt) licenses.
CGI-PathParam
view release on metacpan or search on metacpan
t/CGI-PathParam.t view on Meta::CPAN
$cgi->path_info('/foo/bar');
is_deeply( [ $cgi->path_param ], [ 'foo', 'bar' ], 'some arguments' );
$cgi->path_info('/foo%2Fbar');
is_deeply( [ $cgi->path_param ],
['foo/bar'], 'contains %2F(slash which is percent encoded)' );
$cgi->path_info('/foo%2Fbar%2Fbaz');
is_deeply( [ $cgi->path_param ], ['foo/bar/baz'], 'contains some %2F' );
$cgi->path_info('/foo/bar%2Fbaz');
CGI-ProgressBar
view release on metacpan or search on metacpan
lib/CGI/ProgressBar.pm view on Meta::CPAN
=item width
=item height
The width and height of the progress bar, in pixels. Cannot accept
percentages (yet). Defaults: 400, 20, unless you specify C<orientation>
as C<vertical>, in which case this is reversed.
=item blocks
The number of blocks to appear in the progress bar.
CGI-Struct-XS
view release on metacpan or search on metacpan
'h{xy/z}' => 'slash',
'h{xy\\z}' => 'backslash',
"h{x\x{ff}z}" => '8-bit char',
'h{xy$z}' => 'dollar',
'h{xy@z}' => 'at',
'h{xy%z}' => 'percent',
'h{xy#z}' => 'hash',
);
my @errs;
my $hval = build_cgi_struct \%inp, \@errs;
CGI-Struct
view release on metacpan or search on metacpan
'h{xy/z}' => 'slash',
'h{xy\\z}' => 'backslash',
"h{x\x{ff}z}" => '8-bit char',
'h{xy$z}' => 'dollar',
'h{xy@z}' => 'at',
'h{xy%z}' => 'percent',
'h{xy#z}' => 'hash',
);
my @errs;
my $hval = build_cgi_struct \%inp, \@errs;
CGI-WML
view release on metacpan or search on metacpan
of the image [hspace] or above and below the image [vspace]
height
width These attributes are a hint to the user agent to leave space
for the image while the page is rendering the page. The
user agent may ignore the attributes. If the number length
is passed as a percent the resulting image size will be
relative to the amount of available space, not the image size.
my $img = $query->img(
-src => '/icons/blue_boy.wbmp',
-alt => 'Blue Boy',
CGI-pWiki
view release on metacpan or search on metacpan
CGI::pWiki 0.13
* CGI::pWiki is now pod and a bit more
* the <wiki tags are converted to pod command paragraphs
* the menu bar is now called content and not index
* autolinks are now in brackets and not in percents
* title and body extraction from html files
-- Michael Koehne <kraehe@copyleft.de> 01 Aug 2002
CGI::pWiki 0.12
CIPP
view release on metacpan or search on metacpan
doc/html2ps view on Meta::CPAN
/ISOLatin1Encoding [
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
/space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quoteright
/parenleft/parenright/asterisk/plus/comma/hyphen/period/slash
/zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon
/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N
/O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright
/asciicircum/underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m
CLDR-Number
view release on metacpan or search on metacpan
lib/CLDR/Number.pm view on Meta::CPAN
require CLDR::Number::Format::Decimal;
CLDR::Number::Format::Decimal->new($self->_make_args(%args));
}
sub percent_formatter {
my ($self, %args) = @_;
require CLDR::Number::Format::Percent;
CLDR::Number::Format::Percent->new($self->_make_args(%args));
}
lib/CLDR/Number.pm view on Meta::CPAN
say $decf->format(1234.5); # '1,234.5'
# when locale is 'ar' (Arabic)
say $decf->format(1234.5); # '١٬٢٣٤٫٥'
# percents
$perf = $cldr->percent_formatter;
# when locale is 'tr' (Turkish)
say $perf->format(0.05); # '%5'
# currencies
lib/CLDR/Number.pm view on Meta::CPAN
to submit comments or concerns.
=head1 DESCRIPTION
Software localization includes much more than just translations. Numbers,
prices, and even percents should all be localized based on the user’s language,
script, and region. Fortunately, the Unicode Common Locale Data Repository
(CLDR) provides locale data and specifications for formatting numeric data to
use with many of the world’s locales.
This class provides common attributes shared among the supported formatter
classes as well as methods to instantiate decimal, percent, and currency
formatter objects. The value for any attribute (such as B<locale> or
B<decimal_sign>) will be passed to the formatter objects on instantiation but
can be overwritten by manually passing another value for the attribute or
calling a setter method on the formatter object.
lib/CLDR/Number.pm view on Meta::CPAN
Returns a decimal formatter, which is a L<CLDR::Number::Format::Decimal> object
instantiated with all of the attributes from your CLDR::Number object as well as
any attributes passed to this method.
=item percent_formatter
Returns a percent formatter, which is a L<CLDR::Number::Format::Percent> object
instantiated with all of the attributes from your CLDR::Number object as well as
any attributes passed to this method.
=item currency_formatter
CLI-Meta-YoutubeDl
view release on metacpan or search on metacpan
devdata/youtube-dl.help.2015.02.23.1 view on Meta::CPAN
-o, --output TEMPLATE output filename template. Use %(title)s to get the title, %(uploader)s for the uploader name, %(uploader_id)s for the uploader nickname if different,
%(autonumber)s to get an automatically incremented number, %(ext)s for the filename extension, %(format)s for the format description (like "22 - 1280x720"
or "HD"), %(format_id)s for the unique id of the format (like Youtube's itags: "137"), %(upload_date)s for the upload date (YYYYMMDD), %(extractor)s for
the provider (youtube, metacafe, etc), %(id)s for the video id, %(playlist_title)s, %(playlist_id)s, or %(playlist)s (=title if present, ID otherwise) for
the playlist the video is in, %(playlist_index)s for the position in the playlist. %(height)s and %(width)s for the width and height of the video format.
%(resolution)s for a textual description of the resolution of the video format. %% for a literal percent. Use - to output to stdout. Can also be used to
download to a different directory, for example with -o '/my/downloads/%(uploader)s/%(title)s-%(id)s.%(ext)s' .
--autonumber-size NUMBER Specifies the number of digits in %(autonumber)s when it is present in output filename template or --auto-number option is given
--restrict-filenames Restrict filenames to only ASCII characters, and avoid "&" and spaces in filenames
-A, --auto-number [deprecated; use -o "%(autonumber)s-%(title)s.%(ext)s" ] number downloaded files starting from 00000
-t, --title [deprecated] use title in file name (default)
CLI-Meta-YtDlp
view release on metacpan or search on metacpan
devdata/youtube-dl.help.2015.02.23.1 view on Meta::CPAN
-o, --output TEMPLATE output filename template. Use %(title)s to get the title, %(uploader)s for the uploader name, %(uploader_id)s for the uploader nickname if different,
%(autonumber)s to get an automatically incremented number, %(ext)s for the filename extension, %(format)s for the format description (like "22 - 1280x720"
or "HD"), %(format_id)s for the unique id of the format (like Youtube's itags: "137"), %(upload_date)s for the upload date (YYYYMMDD), %(extractor)s for
the provider (youtube, metacafe, etc), %(id)s for the video id, %(playlist_title)s, %(playlist_id)s, or %(playlist)s (=title if present, ID otherwise) for
the playlist the video is in, %(playlist_index)s for the position in the playlist. %(height)s and %(width)s for the width and height of the video format.
%(resolution)s for a textual description of the resolution of the video format. %% for a literal percent. Use - to output to stdout. Can also be used to
download to a different directory, for example with -o '/my/downloads/%(uploader)s/%(title)s-%(id)s.%(ext)s' .
--autonumber-size NUMBER Specifies the number of digits in %(autonumber)s when it is present in output filename template or --auto-number option is given
--restrict-filenames Restrict filenames to only ASCII characters, and avoid "&" and spaces in filenames
-A, --auto-number [deprecated; use -o "%(autonumber)s-%(title)s.%(ext)s" ] number downloaded files starting from 00000
-t, --title [deprecated] use title in file name (default)
CLIPSeqTools
view release on metacpan or search on metacpan
lib/CLIPSeqTools/App/genome_coverage.pm view on Meta::CPAN
=head1 NAME
CLIPSeqTools::App::genome_coverage - Measure percent of genome covered by reads.
=head1 SYNOPSIS
clipseqtools genome_coverage [options/parameters]
=head1 DESCRIPTION
Measure the percent of genome that is covered by the reads of a library.
=head1 OPTIONS
Input options for library.
--driver <Str> driver for database connection (eg. mysql,
lib/CLIPSeqTools/App/genome_coverage.pm view on Meta::CPAN
warn "Calculating genome coverage\n" if $self->verbose;
my $total_genome_coverage = 0;
my $total_genome_length = 0;
open(my $OUT, '>', $self->o_prefix.'genome_coverage.tab');
say $OUT join("\t", 'rname', 'covered_area', 'size', 'percent_covered');
foreach my $rname (@rnames) {
warn "Working for $rname\n" if $self->verbose;
my $pdl = PDL->zeros(PDL::byte(), $rname_sizes{$rname});
$reads_collection->foreach_record_on_rname_do($rname, sub {
CNC-Cog
view release on metacpan or search on metacpan
tooth top.
nteeth How many teeth to have.
externald The external diameter of the wheel.
toothdepth How deep the spaces between teeth should be.
toothtop Size in degrees of the top of the tooth.
toothtoppc Alternatively, size as a percentage of 1 tooth-and-gap.
toothbase Size in degrees of the tooth at the base
toothbasepc Alternatively, size as % of tooth-and-gap.
offset In degrees of top of tooth from bottom.
holesize If set, gives a hole at center of wheel.
topshape Should be one of the following strings:
circlead The leading edge only is rounded.
circtrail The trailing edge only is rounded
semi A (near) semi circle of the right diameter
is used.
toothradius The radius used in bicirc, circlead and circtrail
toothradiuspc Alternative using percentage of tooth-and-gap
filletradius radius used at botto of tooth. Must be greater than cutter
radius.
=head4 cut
Quantities marked cosmetic are cosmetic only in the sense that they do not
affect opperation directly. The inner radii need to be bigger than the cutter
as otherwise cutting will not be possible. All of these as well as being
specified in arbitrary units in the normal way, may also be specified
as percent in which case this is taken as percent of armwidth. For example
"120%"
Where angles are supplied, these can be supplied in radians by appending an r
to the value:
my $w=new Grahamwheel({
nteeth=>$nteeth,
externald=>1.75,
toothdepth=>0.1,
offset=>2, # degrees
toothbase=>30, # percent of whole tooth gap.
toothtoppc=>8, # percent of whole tooth gap, ie of 360/nteeth
toothradiuspc=>50,
lift=>0.00, # inches
filletradius=>0.033, # radius used to cut tooth gap, in
# inches, should be just greater than cutter.
holesize=>5/32,
CPAN-API-BuildPL
view release on metacpan or search on metacpan
"Legal Entity" shall mean the union of the acting entity and all
other entities that control, are controlled by, or are under common
control with that entity. For the purposes of this definition,
"control" means (i) the power, direct or indirect, to cause the
direction or management of such entity, whether by contract or
otherwise, or (ii) ownership of fifty percent (50%) or more of the
outstanding shares, or (iii) beneficial ownership of such entity.
"You" (or "Your") shall mean an individual or Legal Entity
exercising permissions granted by this License.
CPAN-Changes
view release on metacpan or search on metacpan
corpus/dists/WWW-Mechanize-Cached.changes view on Meta::CPAN
- Referring URLs are now, by defaut, not used when creating cache keys.
This reverses the behaviour of previous versions. RT #56757
- Now using Moose and Dist::Zilla
1.35 2009-11-20
- Changed test URL, which was causing a small percentage of installs to
fail
- Added latest HTTP::Headers to prerequisites in order to prevent some
failed installs
1.34 2009-11-20
CPAN-Common-Index
view release on metacpan or search on metacpan
"Legal Entity" shall mean the union of the acting entity and all
other entities that control, are controlled by, or are under common
control with that entity. For the purposes of this definition,
"control" means (i) the power, direct or indirect, to cause the
direction or management of such entity, whether by contract or
otherwise, or (ii) ownership of fifty percent (50%) or more of the
outstanding shares, or (iii) beneficial ownership of such entity.
"You" (or "Your") shall mean an individual or Legal Entity
exercising permissions granted by this License.
CPAN-Digger
view release on metacpan or search on metacpan
lib/CPAN/Digger.pm view on Meta::CPAN
$stats{ci}{$ci}++ if $dist->{$ci};
}
}
}
if ($stats{total}) {
$stats{has_vcs_percentage} = int(100 * $stats{has_vcs} / $stats{total});
$stats{has_ci_percentage} = int(100 * $stats{has_ci} / $stats{total});
}
my $tt = Template->new({
INCLUDE_PATH => './templates',
CPAN-Meta-YAML
view release on metacpan or search on metacpan
t/tml-local/load-error/scalar.tml view on Meta::CPAN
=== leading ampersand
--- yaml
foo: @INC
--- error: E_PLAIN
=== leading percent
--- yaml
foo: %INC
--- error: E_PLAIN
=== trailing colon
CPAN-Mini-Devel-Recent
view release on metacpan or search on metacpan
"Legal Entity" shall mean the union of the acting entity and all
other entities that control, are controlled by, or are under common
control with that entity. For the purposes of this definition,
"control" means (i) the power, direct or indirect, to cause the
direction or management of such entity, whether by contract or
otherwise, or (ii) ownership of fifty percent (50%) or more of the
outstanding shares, or (iii) beneficial ownership of such entity.
"You" (or "Your") shall mean an individual or Legal Entity
exercising permissions granted by this License.
CPAN-Mini-Devel
view release on metacpan or search on metacpan
"Legal Entity" shall mean the union of the acting entity and all
other entities that control, are controlled by, or are under common
control with that entity. For the purposes of this definition,
"control" means (i) the power, direct or indirect, to cause the
direction or management of such entity, whether by contract or
otherwise, or (ii) ownership of fifty percent (50%) or more of the
outstanding shares, or (iii) beneficial ownership of such entity.
"You" (or "Your") shall mean an individual or Legal Entity
exercising permissions granted by this License.
CPAN
view release on metacpan or search on metacpan
t/30shell.coverage view on Meta::CPAN
Total 19.2 9.1 8.0 42.1 5.4 100.0 15.9
---------------------------- ------ ------ ------ ------ ------ ------ ------
* Devel::Cover 0.59 broke the coverage level I had already achieved by
50 percent from 74% to 37%. 0.58 was fine for me at that time but then
D:C broke completely in bleadperl 28771 and I forgot about it. Paul J
has since fixed the 28771 related failure in his SVN repository and is
now reporting another problem with an endless loop.
I seem to see the endless loop in bleadperl@29622 but not with 28771 and
( run in 0.596 second using v1.01-cache-2.11-cpan-05162d3a2b1 )