Result:
found more than 661 distributions - search limited to the first 2001 files matching your query
( run in 0.996 )
App-FinanceUtils
view release on metacpan or search on metacpan
lib/App/FinanceUtils.pm view on Meta::CPAN
schema => ['float*'],
},
r => {
caption => 'return rate',
summary => 'Return rate (e.g. 0.06 for 6%)',
schema => ['float*', 'x.perl.coerce_rules'=>['From_str::percent']],
},
n => {
caption => 'periods',
summary => 'Number of periods',
schema => ['float*'],
lib/App/FinanceUtils.pm view on Meta::CPAN
{
summary => 'Invest $100 at 6% annual return rate for 5 years',
args => {pv=>100, r=>0.06, n=>5},
},
{
summary => 'Ditto, using percentage notation on command-line',
src => '[[prog]] 100 6% 5',
src_plang => 'bash',
},
],
},
App-GUI-Cellgraph
view release on metacpan or search on metacpan
lib/App/GUI/Cellgraph/Widget/ProgressBar.pm view on Meta::CPAN
$self->set_colors( @color );
return unless ref $self->{'color'};
$self->{'x'} = $x;
$self->{'y'} = $y;
$self->{'percentage'} = 100;
Wx::Event::EVT_PAINT( $self, sub {
my( $cpanel, $event ) = @_;
my $dc = Wx::PaintDC->new( $cpanel );
my $bg_color = Wx::Colour->new( 255, 255, 255 );
lib/App/GUI/Cellgraph/Widget/ProgressBar.pm view on Meta::CPAN
$dc->Clear();
my $l_pos = 0;
my $l_color = Wx::Colour->new( @{$self->{'color'}[0]} );
my $stripe_width = int( 1 / $#{$self->{'color'}} * $x);
if ($self->{'percentage'}){
for my $i (1 .. $#{$self->{'color'}}){
my $r_pos = $l_pos + $stripe_width;
my $r_color = Wx::Colour->new( @{$self->{'color'}[$i]} );
$dc->GradientFillLinear( Wx::Rect->new( $l_pos, 0, $stripe_width, $y ), $l_color, $r_color, &Wx::wxRIGHT );
$l_pos = $r_pos;
lib/App/GUI/Cellgraph/Widget/ProgressBar.pm view on Meta::CPAN
$self->{'color'} = [ map {[$_->rgb]} @color ];
}
sub reset {
my ( $self ) = @_;
$self->{'percentage'} = 0;
$self->Refresh;
}
sub full {
my ( $self ) = @_;
$self->{'percentage'} = 100;
$self->Refresh;
}
1;
App-GUI-Harmonograph
view release on metacpan or search on metacpan
lib/App/GUI/Harmonograph.pm view on Meta::CPAN
the pendulum a quater rotation ahead. To add another quarter check the
box left beside it. The last box adds another half rotation. This allows
you to flip or mirror the image in meaningful ways.
The sixth row mirrors the first but with 2 distinctions. Its not about
integer values but percentage values of the original pendulum length.
This length will be calculated by the program for opimal display.
Thi slider helps you only to change the proportions of the amplitude
towards the other pendula. Natural constants are also here available as
a factor and behind the on the most right is a button to reset the
radius to 100 percent.
The seventh row is the amplitude size, which simple allows to make the
picture larger or smaller depending if the pendulum left the frame or
doesn't move enough. As with reqency, also the amplitude can be damped
over time and this damping can accelerated.
App-GUI-Juliagraph
view release on metacpan or search on metacpan
lib/App/GUI/Juliagraph/Compute/Image.pm view on Meta::CPAN
my $color_index_max = $schranke + $set->{'mapping'}{'subgradient_size'};
my ($colors, $background_color) = compute_colors( $set, $max_iter );
for my $bar_name (keys %progress_bar){
my $bar = $progress_bar{$bar_name};
my $gradient_percent = 100 / @$colors;
$bar->reset;
next if $bar_name eq 'pen' and $sketch_factor;
if ($bar_name eq 'background'){
$bar->set_start_color( @$background_color );
$bar->add_percentage( 100, $background_color );
} else {
if ($set->{'mapping'}{'use_subgradient'}){
$bar->set_start_color( @{$colors->[0][0]} );
my $subgradient_length = @{$colors->[0]};
$gradient_percent /= $subgradient_length;
my $color_counter = 0;
for my $gradient_nr (0 .. $#$colors) {
for my $subgradient_pos (0 .. $subgradient_length - 1) {
$bar->add_percentage( $color_counter++ * $gradient_percent ,
$colors->[$gradient_nr][$subgradient_pos] );
}
}
} else {
$bar->set_start_color( @{$colors->[0]} );
$bar->add_percentage( $_ * $gradient_percent , $colors->[$_] ) for 1 .. $#$colors;
}
}
$bar->paint();
}
App-Genpass-ID
view release on metacpan or search on metacpan
lib/App/Genpass/ID.pm view on Meta::CPAN
%w Random word, all lowercase.
%W Random word, first letter uppercase, the rest lowercase.
%s Random ASCII symbol, e.g. "-" (dash), "_" (underscore), etc.
%d Random digit (0-9).
%% A literal percent sign.
=back
Returns an enveloped result (an array).
App-Genpass-WordList
view release on metacpan or search on metacpan
lib/App/Genpass/WordList.pm view on Meta::CPAN
%w Random word, all lowercase.
%W Random word, first letter uppercase, the rest lowercase.
%s Random ASCII symbol, e.g. "-" (dash), "_" (underscore), etc.
%d Random digit (0-9).
%% A literal percent sign.
_
default => $default_patterns,
cmdline_aliases => {p=>{}},
},
lib/App/Genpass/WordList.pm view on Meta::CPAN
%w Random word, all lowercase.
%W Random word, first letter uppercase, the rest lowercase.
%s Random ASCII symbol, e.g. "-" (dash), "_" (underscore), etc.
%d Random digit (0-9).
%% A literal percent sign.
=item * B<wordlists> => I<array[str]>
Select one or more wordlist modules.
App-Genpass
view release on metacpan or search on metacpan
bin/genpass view on Meta::CPAN
Default: 1.
=item B<-s | --special>
Indicates whether to use special characters or not. This basically means symbols
such as period, exclamation mark, percentage sign, etc.
genpass --special
You can negate this flag by doing:
App-GeoCancerPrognosticDatasetsRetriever
view release on metacpan or search on metacpan
data/bladder_cancer_GEO.txt view on Meta::CPAN
Platform: GPL18951 6 Samples
FTP download: GEO (GPR) ftp://ftp.ncbi.nlm.nih.gov/geo/series/GSE59nnn/GSE59440/
Series Accession: GSE59440 ID: 200059440
229. Role of Notch signaling pathway in urothelial cancer
(Submitter supplied) The Notch signaling pathway controls cell fates through interactions between neighboring cells by positively or negatively affecting, in a context-dependent manner, processes of proliferation, differentiation, and apoptosis1. It ...
Organism: Mus musculus
Type: Expression profiling by array
Platform: GPL1261 4 Samples
FTP download: GEO (CEL) ftp://ftp.ncbi.nlm.nih.gov/geo/series/GSE54nnn/GSE54589/
Series Accession: GSE54589 ID: 200054589
App-Git-Ribbon
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.
App-GitUtils
view release on metacpan or search on metacpan
}
},
"runtime" : {
"requires" : {
"Cwd" : "0",
"Data::Sah::Coerce::perl::To_float::From_str::percent" : "0",
"Data::Sah::Coerce::perl::To_float::From_str::suffix_datasize" : "0",
"Data::Sah::Compiler::perl::TH::bool" : "0.914",
"Data::Sah::Compiler::perl::TH::float" : "0.914",
"Data::Sah::Compiler::perl::TH::str" : "0.914",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
App-Glacier
view release on metacpan or search on metacpan
lib/App/Glacier/Progress.pm view on Meta::CPAN
}
if ($v = delete $opts{show_total}) {
$self->{_show_total} = $v;
$show_default = 0;
}
if ($v = delete $opts{show_percent}) {
$self->{_show_percent} = $v;
$show_default = 0;
}
if ($v = delete $opts{show_dots}) {
$self->{_show_dots} = $v;
$show_default = 0;
lib/App/Glacier/Progress.pm view on Meta::CPAN
croak "extra arguments" if keys %opts;
if ($show_default) {
$self->{_show_current} = 1;
$self->{_show_total} = 1;
$self->{_show_percent} = 1;
}
if (-t STDOUT) {
$self->{_sigwinch} = $SIG{WINCH};
if (open($self->{_tty}, "+</dev/tty")) {
lib/App/Glacier/Progress.pm view on Meta::CPAN
}
if ($self->{_show_total}) {
$text .= ' / ' if $self->{_show_current};
$text .= sprintf('%*d', $self->{_digits}, $self->{_total});
}
if ($self->{_show_percent}) {
$text .= ' ' if $text ne '';
$text .= sprintf("%3d%%", int(100 * $self->{_current} / $self->{_total}));
}
$text = $self->{_prefix} . ': ' . $text if $self->{_prefix};
App-GnuCash-MembershipUtils
view release on metacpan or search on metacpan
bin/gc-members-generate-invoices view on Meta::CPAN
* price - Price. Mandatory for each row. If not provided, all rows of the same invoice will be
ignored.
* disc_type - Type of discount. Optional. Only relevant for invoices, not for bills.
Use "%" or blank for percentage value, anything else for monetary value.
* disc_how - Discount how. Optional. Only relevant for invoices, not for bills. Use ">"
for discount applied after tax, "=" for discount and tax applied before tax, and
"<", blank or anything else for discount applied before tax.
* discount - Amount or percentage of discount. Optional. Only relevant for invoices, not
for bills
* taxable - Is this entry taxable? Optional. Use "Y" or "X" for yes, "N" or blank for no.
* taxincluded - Is tax included in the item price? Optional. Use "Y" or "X" for yes, "N"
App-Greple-subst
view release on metacpan or search on metacpan
share/jtca-katakana-guide-3.pl view on Meta::CPAN
パピルス papyrus １ï¼ï¼’例外
パフォーマンス performance １ï¼ï¼”ã€ï¼’ï¼ï¼”
パラメーター parameter １ï¼ï¼‘ã€ï¼‘ï¼ï¼”
パース perth １ï¼ï¼”
パースペクティブ perspective １ï¼ï¼”ã€ï¼“ã€ï¼”ï¼ï¼‘例外
パーセント percent １ï¼ï¼”
パーソナル personal １ï¼ï¼‘ã€ï¼‘ï¼ï¼”
パーツ parts １ï¼ï¼”
パーティー party １ï¼ï¼‘ã€ï¼‘ï¼ï¼”
パート part １ï¼ï¼”
ヒューリスティック heuristic ï¼”ï¼ï¼‘例外
App-I18N
view release on metacpan or search on metacpan
lib/App/I18N/Command/Status.pm view on Meta::CPAN
my $lexicon = $extract->lexicon;
my $total = scalar keys %$lexicon;
my $empty = scalar grep { $_ } values %$lexicon;
my $percent = $empty / $total * 100;
printf "%10s: ", $lang;
$self->print_bar( $percent );
printf " %2d%% (%d/%d) ", $percent, $empty, $total;
print "\n";
}
}
App-Icli
view release on metacpan or search on metacpan
printf( $format, 'Next Check', pretty_date( $x->{'next_check'} ), );
printf(
"%-16s : %s (%.1f%% state change)\n",
'Flapping',
pretty_noyes( $x->{'is_flapping'} ),
$x->{'percent_state_change'},
);
}
if ( $v > 3 ) {
printf( $format,
'Check Type', ( $x->{'check_type'} ? 'PASSIVE' : 'ACTIVE' ),
App-ImageMagickUtils
view release on metacpan or search on metacpan
script/calc-image-resized-size view on Meta::CPAN
Syntax Meaning
-------------------------- ----------------------------------------------------------------
"" No resizing.
SCALE"%" Height and width both scaled by specified percentage.
SCALEX"%x"SCALEY"%" Height and width individually scaled by specified percentages. (Only one % symbol needed.)
WIDTH Width given, height automagically selected to preserve aspect ratio.
WIDTH">" Shrink width if larger, height automagically selected to preserve aspect ratio.
WIDTH"^" Enlarge width if smaller, height automagically selected to preserve aspect ratio.
script/calc-image-resized-size view on Meta::CPAN
=head2 scale (down) width to 20% but height to 40%
% calc-image-resized-size 2592x1944 20%x40%
518x777
=head2 scale (down) width to 20% but height to 40% (first percent sign is optional)
% calc-image-resized-size 2592x1944 20x40%
518x777
=head2 set width to 1024px
App-IndonesianBankingUtils
view release on metacpan or search on metacpan
"Data::Sah::Coerce::perl::To_datetime::From_str::iso8601" : "0.049",
"Data::Sah::Coerce::perl::To_duration::From_float::seconds" : "0.049",
"Data::Sah::Coerce::perl::To_duration::From_obj::datetime_duration" : "0.049",
"Data::Sah::Coerce::perl::To_duration::From_str::human" : "0.049",
"Data::Sah::Coerce::perl::To_duration::From_str::iso8601" : "0.049",
"Data::Sah::Coerce::perl::To_float::From_str::percent" : "0.049",
"Data::Sah::Coerce::perl::To_int::From_str::percent" : "0.049",
"Data::Sah::Coerce::perl::To_num::From_str::percent" : "0.049",
"Data::Sah::Coerce::perl::To_timeofday::From_obj::date_timeofday" : "0.049",
"Data::Sah::Coerce::perl::To_timeofday::From_str::hms" : "0.049",
"Data::Sah::CoerceCommon" : "0.049",
"Data::Sah::CoerceJS" : "0.049",
"Data::Sah::Compiler" : "0.910",
App-IndonesianFinanceUtils
view release on metacpan or search on metacpan
"requires" : {
"Data::Sah::Coerce::perl::To_date::From_float::epoch" : "0",
"Data::Sah::Coerce::perl::To_date::From_obj::datetime" : "0",
"Data::Sah::Coerce::perl::To_date::From_obj::time_moment" : "0",
"Data::Sah::Coerce::perl::To_date::From_str::iso8601" : "0",
"Data::Sah::Coerce::perl::To_float::From_str::percent" : "0",
"Data::Sah::Coerce::perl::To_int::From_str::convert_en_month_name_to_num" : "0",
"Data::Sah::Compiler::perl::TH::date" : "0",
"Data::Sah::Compiler::perl::TH::float" : "0",
"Data::Sah::Compiler::perl::TH::int" : "0",
"Data::Sah::Compiler::perl::TH::str" : "0",
App-InvestSim
view release on metacpan or search on metacpan
lib/App/InvestSim/Finance.pm view on Meta::CPAN
sub total_invested {
return $values{invested} + notary_fees();
}
# Takes a yearly loan interest rate as a percentage value (e.g. 2.0 for 2%) and
# returns the monthly interest rate.
sub monthly_rate {
my ($yearly_rate) = @_;
# Or should it be: (1 + yearly_rate) ** (1/12) - 1 ?
# That calculation is more correct but it seems that real loans are using the
App-KemenkesUtils-RDA
view release on metacpan or search on metacpan
"Rinci" : "v1.1.102"
}
},
"runtime" : {
"requires" : {
"Data::Sah::Coerce::perl::To_float::From_str::percent" : "0",
"Data::Sah::Compiler::perl::TH::bool" : "0.914",
"Data::Sah::Compiler::perl::TH::float" : "0.914",
"Data::Sah::Compiler::perl::TH::str" : "0.914",
"Log::ger" : "0.038",
"Perinci::CmdLine::Any" : "0.154",
App-MHFS
view release on metacpan or search on metacpan
lib/App/MHFS.pm view on Meta::CPAN
my $size_bytes = $data->{'size_bytes'};
# print out the current torrent status
my $torrent_name = ${escape_html($torrent_raw)};
my $size_print = get_SI_size($size_bytes);
my $done_print = get_SI_size($bytes_done);
my $percent_print = (sprintf "%u%%", ($bytes_done/$size_bytes)*100);
my $buf = '<h1>Torrent</h1>';
$buf .= '<h3><a href="../video">Video</a> | <a href="../music">Music</a></h3>';
$buf .= '<table border="1" >';
$buf .= '<thead><tr><th>Name</th><th>Size</th><th>Done</th><th>Downloaded</th></tr></thead>';
$buf .= "<tbody><tr><td>$torrent_name</td><td>$size_print</td><td>$percent_print</td><td>$done_print</td></tr></tbody>";
$buf .= '</table>';
# Assume we are downloading, if the bytes don't match
if($bytes_done < $size_bytes) {
$buf .= '<meta http-equiv="refresh" content="3">';
App-MaMGal
view release on metacpan or search on metacpan
lib/App/MaMGal/Exceptions.pm view on Meta::CPAN
sub _initialize
{
my $self = shift;
$self->SUPER::_initialize(@_);
croak "This exception requires a message argument" unless $self->message;
# zero-width negative look-ahead assertion: a percent not followed by percent
my $placeholder_count = () = $self->message =~ /%(?!%)/g;
my $object_count = $self->objects ? scalar @{$self->objects} : 0;
croak "Message with $placeholder_count placeholders must be followed by this many arguments, not $object_count" unless $placeholder_count == $object_count;
}
App-Magpie
view release on metacpan or search on metacpan
lib/App/Magpie/Action/Recent.pm view on Meta::CPAN
# $self->log( "uploads: " . scalar(@uploads) );
# $self->log( "nomageia: " . scalar(@nomageia) );
# $self->log( "valid: $nbvalid" );
my $uploads = @uploads;
my $percent = 100 - int( $nbvalid * 100 / $uploads );
$self->log( "new=$uploads, not in mageia=$nbvalid, mageia coverage=$percent%" );
}
1;
App-Music-ChordPro
view release on metacpan or search on metacpan
lib/ChordPro/Output/PDF.pm view on Meta::CPAN
$v = $1 if $v =~ /^(-?[\d.]+)pt$/;
$v = $1 * $ctx->{size} if $v =~ /^(-?[\d.]+)em$/;
$v = $1 * $ctx->{size} / 2 if $v =~ /^(-?[\d.]+)ex$/;
#$v = $1 * $ctx->{size} / 100 if $v =~ /^(-?[\d.]+)\%$/;
if ( $v =~ /^(-?[\d.]+)\%$/ ) {
warn("Invalid img attribute: \"$kk\" (percentage not allowed)\n");
$err++;
}
else {
$ctl{$k} = $v;
}
App-MusicTools
view release on metacpan or search on metacpan
bin/atonal-util view on Meta::CPAN
my $pitch_freq = $scala->pitch2freq($p);
my $error = $freq - $pitch_freq;
$p = $Lyu->p2ly($p) if $Flag_Lyout;
my $percent = abs($error) / $pitch_freq * 100;
printf "%.2f\t%s\t%+.2f\t%.2f%%\n", $freq, $p, $error, $percent;
}
}
sub gen_melody {
my (@args) = @_;
App-Muter
view release on metacpan or search on metacpan
Implements the L<RFC 4648|https://tools.ietf.org/html/rfc4648> Base64 encoding.
=head2 form
Implements URI percent encoding, like C<uri>, except it encodes space as C<+>
instead of C<%20>, as for use in I<application/x-www-form-urlencoded>. This
used to be written C<uri(form)>, which is no longer allowed.
Otherwise accepts the same options as C<uri> (C<lower> and C<upper>).
and "From " if they appear at the beginning of a line (including beginning of
input).
=head2 uri
Implements URI percent encoding.
Takes two possible options. C<lower> and C<upper> control the type of hex
character emitted.
=head2 url64
=over 4
=item B<muter> B<-c> -base64:uri
Decode the standard input as Base64 and output it, encoding it using URI
percent-encoding.
=item B<muter> B<-r> B<-c> -uri:base64
Exactly the same as the above.
App-Mxpress-PDF
view release on metacpan or search on metacpan
public/javascripts/ace/mode-abc.js view on Meta::CPAN
var ABCHighlightRules = function () {
this.$rules = {
start: [
{
token: ['zupfnoter.information.comment.line.percentage', 'information.keyword', 'in formation.keyword.embedded'],
regex: '(%%%%)(hn\\.[a-z]*)(.*)',
comment: 'Instruction Comment'
},
{
token: ['information.comment.line.percentage', 'information.keyword.embedded'],
regex: '(%%)(.*)',
comment: 'Instruction Comment'
},
{
token: 'comment.line.percentage',
regex: '%.*',
comment: 'Comments'
},
{
App-Netdisco
view release on metacpan or search on metacpan
lib/App/Netdisco/DB/Result/Virtual/SubnetUtilization.pm view on Meta::CPAN
__PACKAGE__->result_source_instance->is_virtual(1);
__PACKAGE__->result_source_instance->view_definition(<<'ENDSQL');
SELECT net as subnet,
power(2, (32 - masklen(net))) as subnet_size,
count(DISTINCT ip) as active,
round(100 * count(DISTINCT ip) / (power(2, (32 - masklen(net))))) as percent
FROM (
SELECT DISTINCT net, ni.ip
FROM subnets s1, node_ip ni
WHERE s1.net <<= ?::cidr
AND ni.ip <<= s1.net
lib/App/Netdisco/DB/Result/Virtual/SubnetUtilization.pm view on Meta::CPAN
AND di.alias <<= s2.net
AND s2.last_discover >= ?
AND d.last_discover >= ?
) as joined
GROUP BY net
ORDER BY percent ASC
ENDSQL
__PACKAGE__->add_columns(
"subnet",
{ data_type => "cidr", is_nullable => 0 },
"subnet_size",
{ data_type => "integer", is_nullable => 0 },
"active",
{ data_type => "integer", is_nullable => 0 },
"percent",
{ data_type => "integer", is_nullable => 0 },
);
1;
App-Netsync
view release on metacpan or search on metacpan
share/mib/ADSL-LINE-MIB.txt view on Meta::CPAN
adslAtucConfRateChanRatio =
[Fast / (Fast + Interleaved)] * 100
In other words this value is the fast channel
percentage."
::= { adslLineConfProfileEntry 3 }
adslAtucConfTargetSnrMgn OBJECT-TYPE
SYNTAX INTEGER (0..310)
UNITS "tenth dB"
share/mib/ADSL-LINE-MIB.txt view on Meta::CPAN
adslAturConfRateChanRatio =
[Fast / (Fast + Interleaved)] * 100
In other words this value is the fast channel
percentage."
::= { adslLineConfProfileEntry 17 }
adslAturConfTargetSnrMgn OBJECT-TYPE
SYNTAX INTEGER (0..310)
UNITS "tenth dB"
App-Nostray
view release on metacpan or search on metacpan
bin/nostray view on Meta::CPAN
}
// Produce an error warning.
function quit(message, line, chr) {
var percentage = Math.floor((line / lines.length) * 100);
throw {
name: 'JSHintError',
line: line,
character: chr,
message: message + " (" + percentage + "% scanned).",
raw: message
};
}
function isundef(scope, m, t, a) {
( run in 0.996 second using v1.01-cache-2.11-cpan-05162d3a2b1 )