Result:
found more than 649 distributions - search limited to the first 2001 files matching your query
( run in 1.439 )
App-ElasticSearch-Utilities
view release on metacpan or search on metacpan
lib/App/ElasticSearch/Utilities/Aggregations.pm view on Meta::CPAN
$Aggregations{extended_stats} = { type => 'metric' };
$Aggregations{percentiles} = {
params => sub {
my @pcts = $_[0] ? split /,/, $_[0] : qw(25 50 75 90);
return { percents => \@pcts };
},
};
$Aggregations{geo_centroid} = { type => 'metric' };
lib/App/ElasticSearch/Utilities/Aggregations.pm view on Meta::CPAN
"field": "field_name"
}
}
}
=item B<percentiles>
Computes percentiles for the enclosing bucket. The positional parameter is
interpretted at the percents computed. If ommitted, the percentiles computed
will be: 25, 50, 75, 90.
percentiles:field_name:75,95,99
Results in
{
"percentiles.field_names": {
"percentiles": {
"field": "field_name",
"percents": [ 75, 95, 99 ]
}
}
}
=item B<geo_centroid>
App-EventStreamr
view release on metacpan or search on metacpan
share/status/app/lib/bootstrap/jquery.js view on Meta::CPAN
ret = jQuery.style( elem, name );
}
// A tribute to the "awesome hack by Dean Edwards"
// Chrome < 17 and Safari 5.0 uses "computed value" instead of "used value" for margin-right
// Safari 5.1.7 (at least) returns percentage for a larger set of values, but width seems to be reliably pixels
// this is against the CSSOM draft spec: http://dev.w3.org/csswg/cssom/#resolved-values
if ( rnumnonpx.test( ret ) && rmargin.test( name ) ) {
// Remember the original values
width = style.width;
share/status/app/lib/bootstrap/jquery.js view on Meta::CPAN
}
};
}
// Webkit bug: https://bugs.webkit.org/show_bug.cgi?id=29084
// getComputedStyle returns percent when specified for top/left/bottom/right
// rather than make the css module depend on the offset module, we just check for it here
if ( !jQuery.support.pixelPosition && jQuery.fn.position ) {
jQuery.each( [ "top", "left" ], function( i, prop ) {
jQuery.cssHooks[ prop ] = {
get: function( elem, computed ) {
if ( computed ) {
computed = curCSS( elem, prop );
// if curCSS returns percentage, fallback to offset
return rnumnonpx.test( computed ) ?
jQuery( elem ).position()[ prop ] + "px" :
computed;
}
}
share/status/app/lib/bootstrap/jquery.js view on Meta::CPAN
}
var currentTime = fxNow || createFxNow(),
remaining = Math.max( 0, animation.startTime + animation.duration - currentTime ),
// archaic crash bug won't allow us to use 1 - ( 0.5 || 0 ) (#12497)
temp = remaining / animation.duration || 0,
percent = 1 - temp,
index = 0,
length = animation.tweens.length;
for ( ; index < length ; index++ ) {
animation.tweens[ index ].run( percent );
}
deferred.notifyWith( elem, [ animation, percent, remaining ]);
if ( percent < 1 && length ) {
return remaining;
} else {
deferred.resolveWith( elem, [ animation ] );
return false;
}
share/status/app/lib/bootstrap/jquery.js view on Meta::CPAN
return hooks && hooks.get ?
hooks.get( this ) :
Tween.propHooks._default.get( this );
},
run: function( percent ) {
var eased,
hooks = Tween.propHooks[ this.prop ];
if ( this.options.duration ) {
this.pos = eased = jQuery.easing[ this.easing ](
percent, this.options.duration * percent, 0, 1, this.options.duration
);
} else {
this.pos = eased = percent;
}
this.now = ( this.end - this.start ) * eased + this.start;
if ( this.options.step ) {
this.options.step.call( this.elem, this.now, this );
App-FargateStack
view release on metacpan or search on metacpan
lib/App/FargateStack/Pod.pm view on Meta::CPAN
You must specify exactly one scaling metric.
=over
=item * C<cpu>: The target average CPU utilization percentage across all tasks in
the service. Valid values are between 1 and 100.
=item * C<requests>: The target number of requests per minute for each task. This
is only valid for tasks of type C<http> or C<https> that are behind an
Application Load Balancer.
App-FfmpegUtils
view release on metacpan or search on metacpan
lib/App/FfmpegUtils.pm view on Meta::CPAN
},
);
our %argspecsopt_duration = (
start => {
schema => ['any*', of=>['duration*', 'percent_str*']],
default => 0,
cmdline_aliases => {s=>{}},
},
end => {
schema => ['any*', of=>['duration*', 'percent_str*']],
cmdline_aliases => {e=>{}},
},
duration => {
schema => ['any*', of=>['duration*', 'percent_str*']],
cmdline_aliases => {d=>{}},
},
);
my @presets = qw/ultrafast superfast veryfast faster fast medium slow slower veryslow/;
lib/App/FfmpegUtils.pm view on Meta::CPAN
MARKDOWN
args => {
%argspec0_files,
# XXX start => {},
every => {
schema => ['any*', of=>['duration*', 'percent_str*']],
},
parts => {
schema => 'posint*',
},
%argspecopt_copy,
lib/App/FfmpegUtils.pm view on Meta::CPAN
src => '[[prog]] foo.mp4 --parts 4',
test => 0,
'x.doc.show_result' => 0,
},
{
summary => 'Another way to split into equiduration parts using percentage in --every',
src_plang => 'bash',
src => '[[prog]] foo.mp4 --every 25%',
test => 0,
'x.doc.show_result' => 0,
},
lib/App/FfmpegUtils.pm view on Meta::CPAN
if (defined $parts) {
return [400, "Please specify a positive number in --parts"] unless $parts >= 1;
$part_dur = $total_dur / $parts;
} elsif (defined $every) {
if ($every =~ s/%\z//) {
$every > 0 && $every <= 100 or return [400, "For percentage in --every, please specify a number between 0 and 100"];
$part_dur = $total_dur * ($every/100);
} else {
$every > 0 or return [400, "Please specify a positive number in --every"];
$part_dur = $every;
}
lib/App/FfmpegUtils.pm view on Meta::CPAN
argv => ['100s.mp4', '-s', '40s'],
test => 0,
'x.doc.show_result' => 0,
},
{
summary => 'Specify duration only (using percentage) of two files, the results are 100s.cut_0_to_30.mp4 & 50s.cut_0_to_15.mp4',
argv => ['100s.mp4', '50s.mp4', '-d', '30%'],
test => 0,
'x.doc.show_result' => 0,
},
{
lib/App/FfmpegUtils.pm view on Meta::CPAN
=item * B<copy> => I<bool>
Whether to use the "copy" codec (fast but produces inaccurate timings).
=item * B<duration> => I<duration|percent_str>
(No description)
=item * B<end> => I<duration|percent_str>
(No description)
=item * B<files>* => I<array[filename]>
(No description)
=item * B<start> => I<duration|percent_str> (default: 0)
(No description)
=back
lib/App/FfmpegUtils.pm view on Meta::CPAN
=item * Specify start only, the result is 100s.cut_40_to_100.mp4:
cut_video_by_duration(files => ["100s.mp4"], start => "40s");
=item * Specify duration only (using percentage) of two files, the results are 100s.cut_0_to_30.mp4 & 50s.cut_0_to_15.mp4:
cut_video_by_duration(files => ["100s.mp4", "50s.mp4"], duration => "30%");
=item * Specify end only (using h:m:s notation), the result is 100s.cut_0_to_63.mp4:
lib/App/FfmpegUtils.pm view on Meta::CPAN
=item * B<copy> => I<bool>
Whether to use the "copy" codec (fast but produces inaccurate timings).
=item * B<duration> => I<duration|percent_str>
(No description)
=item * B<end> => I<duration|percent_str>
(No description)
=item * B<files>* => I<array[filename]>
lib/App/FfmpegUtils.pm view on Meta::CPAN
=item * B<overwrite> => I<bool>
(No description)
=item * B<start> => I<duration|percent_str> (default: 0)
(No description)
=back
lib/App/FfmpegUtils.pm view on Meta::CPAN
=item * B<copy> => I<bool>
Whether to use the "copy" codec (fast but produces inaccurate timings).
=item * B<every> => I<duration|percent_str>
(No description)
=item * B<files>* => I<array[filename]>
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-GHGen
view release on metacpan or search on metacpan
lib/App/GHGen/CostEstimator.pm view on Meta::CPAN
=cut
sub estimate_savings($issues, $workflows = []) {
my %savings = (
minutes => 0,
percentage => 0,
cost => 0,
details => [],
);
# Get current usage if workflows provided
lib/App/GHGen/CostEstimator.pm view on Meta::CPAN
issue_type => $issue->{type},
};
}
}
# Calculate percentage and cost
if ($current_usage && $current_usage->{total_minutes} > 0) {
$savings{percentage} = int(($savings{minutes} / $current_usage->{total_minutes}) * 100);
} elsif ($savings{minutes} > 0) {
$savings{percentage} = 30; # Estimate 30% savings
}
$savings{cost} = sprintf('%.2f', $savings{minutes} * 0.008);
$savings{minutes} = int($savings{minutes});
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-GoLP
view release on metacpan or search on metacpan
lib/App/GUI/GoLP.pm view on Meta::CPAN
=head2 Menus
=head3 File
The I<New> option allows the user to create a new board. Choose the width and height of the board and whether the initial cell status will be all 'dead', all 'live' or chosen at random according to a specified percentage chance. Use the I<Rules> subm...
The I<Open> option provides a dialog box allowing the user to select a .rle or .cells format file to be loaded.
The I<Save> option will save the current board in .rle or .cells format.
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" : {
"App::BinPackUtils" : "0",
"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/MHFS/Plugin/BitTorrent/Client/Interface.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/Common.pm view on Meta::CPAN
# This is mostly intended for images.
# Since ABC generated SVG can contain multiple images, this function
# can be called in list context to get all the images.
# In scalar context, it returns the first (or only) image.
sub encode_percent {
my ( $str ) = @_;
require URI::Escape;
return URI::Escape::uri_escape_utf8($str);
}
lib/ChordPro/Output/Common.pm view on Meta::CPAN
use MIME::Base64;
# Emit as individual images.
for my $img ( @img ) {
if ( $mimetype =~ m;(text/|/svg); ) {
$img = "data:$mimetype,". encode_percent($img);
warn("mimedata: $mimetype, ", length($img), " bytes\n")
if $config->{debug}->{images};
}
else {
$img = encode_utf8($img) if $mimetype =~ /svg/;
( run in 1.439 second using v1.01-cache-2.11-cpan-39bf76dae61 )