Result:
found more than 661 distributions - search limited to the first 2001 files matching your query
( run in 0.805 )
App-grindperl
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-idxdb
view release on metacpan or search on metacpan
lib/App/idxdb.pm view on Meta::CPAN
}
}
delete $row->{StockCode};
delete $row->{persen};
delete $row->{percentage};
delete $row->{ctime};
delete $row->{mtime};
for my $f (@daily_fields) { delete $row->{$f} unless (grep {$_ eq $f} @$fields) }
push @{ $stock_rows{$code} }, $row;
}
App-indodax
view release on metacpan or search on metacpan
lib/App/indodax.pm view on Meta::CPAN
$tot_avail_est_idr += $rec->{avail_est_idr};
$tot_held_est_idr += $rec->{held_est_idr};
$tot_total_est_idr += $rec->{total_est_idr};
}
# calculate percentages
for my $rec (@recs) {
if ($tot_total_est_idr > 0) {
$rec->{pct_est_idr} = $rec->{total_est_idr} / $tot_total_est_idr;
} else {
$rec->{pct_est_idr} = 0;
lib/App/indodax.pm view on Meta::CPAN
total_est_idr => $tot_total_est_idr,
pct_est_idr => 1,
};
$resmeta{'table.fields'} = [qw/currency bal_avail price_btc price_idr avail_est_idr bal_held held_est_idr bal_total total_est_idr pct_est_idr/];
$resmeta{'table.field_aligns'} = [qw/left right right right right right right right right right/];
$resmeta{'table.field_formats'} = [undef, undef, $fnum8, $fnum0, $fnum0, $fnum8, $fnum0, $fnum8, $fnum0, 'percent'];
} else {
$resmeta{'table.fields'} = [qw/currency bal_avail bal_held bal_total/];
$resmeta{'table.field_aligns'} = [qw/left right right right/];
$resmeta{'table.field_formats'} = [undef, $fnum8, $fnum8, $fnum8,];
}
App-ipinfo
view release on metacpan or search on metacpan
lib/App/ipinfo.pm view on Meta::CPAN
=item * C<%t> - the timezone of the organization (e.g. C<America/New_York> )
=item * C<%T> - tab
=item * C<%%> - literal percent
=back
=head2 Class methods
App-lapidary
view release on metacpan or search on metacpan
script/lapidary view on Meta::CPAN
Options:\n
read_1\tLocation of first read file (required)\n
read_2\tLocation of second read file if read files are paired\n
db\tFull location to fasta file containing amino acid sequences (required)\n
threads\tNumber of threads to use for Diamond (default: 1)\n
identity\tDiamond identity percentage cut-off to use (default: 70)\n
coverage\tDiamond coverage percentage cut-off to use (default: 50)\n
read_type\tTypes of reads used (required): single or paired\n
sequence_identification\tMethod for calling most likely sequence: identity (default) or consensus\n
help\tDisplay help screen\n
version\tReturn version of Lapidary\n\n";
}
App-lcpan-CmdBundle-debian
view release on metacpan or search on metacpan
lib/App/lcpan/Cmd/debian_dist2deb.pm view on Meta::CPAN
v => 1.1,
summary => 'Show Debian package name/version for a dist',
description => <<'_',
This routine uses the simple rule of: converting the dist name to lowercase then
add "lib" prefix and "-perl" suffix. A small percentage of Perl distributions do
not follow this rule.
_
args => {
%App::lcpan::common_args,
lib/App/lcpan/Cmd/debian_dist2deb.pm view on Meta::CPAN
handle_cmd(%args) -> [$status_code, $reason, $payload, \%result_meta]
Show Debian package nameE<sol>version for a dist.
This routine uses the simple rule of: converting the dist name to lowercase then
add "lib" prefix and "-perl" suffix. A small percentage of Perl distributions do
not follow this rule.
This function is not exported.
Arguments ('*' denotes required arguments):
App-lcpan
view release on metacpan or search on metacpan
- [subcommand script2rel] Accept multiple arguments.
- [subcommand dists] Add options --sort, --has-multiple-rels.
- [subcommands authors-by-*] Add percentage result field.
- [subcommand contents] Add option --package.
0.68 2016-02-11 Released-By: PERLANCAR
App-metasyn
view release on metacpan or search on metacpan
script/metasyn view on Meta::CPAN
# } elsif ($fmt_name eq 'sci2dec') {
# if ($row->[$j] =~ /\A(?:[+-]?)(?:\d+\.|\d*\.(\d+))[eE]([+-]?\d+)\z/) {
# my $n = length($1 || "") - $2; $n = 0 if $n < 0;
# $row->[$j] = sprintf("%.${n}f", $row->[$j]);
# }
# } elsif ($fmt_name eq 'percent') {
# my $fmt = $fmt_opts->{sprintf} // '%.2f%%';
# $row->[$j] = sprintf($fmt, $row->[$j] * 100);
# } elsif ($fmt_name eq 'number') {
# require Number::Format::BigFloat;
# $row->[$j] = Number::Format::BigFloat::format_number(
App-mimi
view release on metacpan or search on metacpan
mimi.fatpack view on Meta::CPAN
}
EOI
DBI_DBD_SQLENGINE
$fatpacked{"DBI/Gofer/Execute.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_EXECUTE';
package DBI::Gofer::Execute;use strict;use warnings;use Carp;use DBI qw(dbi_time);use DBI::Gofer::Request;use DBI::Gofer::Response;use base qw(DBI::Util::_accessor);our$VERSION="0.03";our@all_dbh_methods=sort map {keys %$_}$DBI::DBI_methods{db},$DB...
DBI_GOFER_EXECUTE
$fatpacked{"DBI/Gofer/Request.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_REQUEST';
package DBI::Gofer::Request;use strict;use DBI qw(neat neat_list);use base qw(DBI::Util::_accessor);our$VERSION="0.03";use constant GOf_REQUEST_IDEMPOTENT=>0x0001;use constant GOf_REQUEST_READONLY=>0x0002;our@EXPORT=qw(GOf_REQUEST_IDEMPOTENT GOf_RE...
DBI_GOFER_REQUEST
App-mimic
view release on metacpan or search on metacpan
# END IFUNBUILT
use Getopt::Long::EvenLess qw(GetOptions);
my $mode = 'mimic';
my $percentage = 1;
my $sh = "\x{02591}"; # shade character
sub _list {
require Unicode::Homoglyph;
my $re;
if ($mode eq 'mimic') {
$re = "(?:" . join("|", map {quotemeta} sort keys %uni_homoglyphs) . ")";
$re = qr/$re/o;
while (<>) {
s/($re)/rand()*100 < $percentage ?
$uni_homoglyphs{$1}[rand()*@{ $uni_homoglyphs{$1} }] : $1/eg;
print;
}
} else {
$re = "(?:" . join("|", map {sprintf("\\x{%04X}", ord($_))} sort keys %asciis). ")";
Usage: mimic [options]
Options:
-h, --help show this help message and exit
-m CHANCE, --me-harder=CHANCE
replacement percent
-e CHAR, --explain=CHAR
show a char's homoglyphs
-l, --list show all homoglyphs
-c, --check check input for suspicious chars
-r, --reverse reverse operation, clean a mimicked file
_
exit 0;
},
'me-harder|m=s' => sub {
$percentage = $_[1];
},
'explain|e=s' => sub {
_explain($_[1]);
exit 0;
},
App-mycnfdiff
view release on metacpan or search on metacpan
t/samples/percona-compiled.txt view on Meta::CPAN
--innodb-buffer-pool-size=#
The size of the memory buffer InnoDB uses to cache data
and indexes of its tables.
--innodb-change-buffer-max-size=#
Maximum on-disk size of change buffer in terms of
percentage of the buffer pool.
--innodb-change-buffering=name
Buffer changes to reduce random access: OFF, ON,
inserting, deleting, changing, or purging.
--innodb-checksum-algorithm=name
The algorithm InnoDB uses for page checksumming. Possible
t/samples/percona-compiled.txt view on Meta::CPAN
all reads and multiple writes) to as much as you can
afford
--key-cache-age-threshold=#
This characterizes the number of hits a hot block has to
be untouched until it is considered aged enough to be
downgraded to a warm block. This specifies the percentage
ratio of that number of hits to the total number of
blocks in key cache
--key-cache-block-size=#
The default size of key cache blocks
--key-cache-division-limit=#
The minimum percentage of warm blocks in key cache
--kill-idle-transaction=#
If non-zero, number of seconds to wait before killing
idle connections that have open transactions
-L, --language=name Client error messages in given language. May be given as
a full path. Deprecated. Use --lc-messages-dir instead.
App-mymeta_requires
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-pandoc-preprocess
view release on metacpan or search on metacpan
etc/input.pandoc view on Meta::CPAN
op.add_option("-i", "--in", dest="infile", help="read yuml from FILE instead of stdin", metavar="FILE", default="-")
op.add_option("-o", "--out", dest="outfile", help="store output in FILE", metavar="FILE")
op.add_option("-f", "--format", dest="fmt", help="use format FMT", metavar="FMT", default="png", choices=['png', 'pdf', 'jpg', 'svg'])
op.add_option("-t", "--type", dest="type", help="draw a TYPE diagram", metavar="TYPE", default="class", choices=['class', 'activity', 'usecase'])
op.add_option("-s", "--style", dest="style", help="use style STY", metavar="STY", default="scruffy", choices=['scruffy', 'boring', 'plain'])
op.add_option("--scale", dest="scale", help="scale output to percentage", metavar="PERCENT", type="int")
op.add_option("--dir", dest="dir", help="direction of the diagram LR RL TD", metavar="DIRECTION")
op.add_option("-v", "--verbose", dest="v", help="print some debug info", action="store_true", default=False)
-->
App-pl
view release on metacpan or search on metacpan
pod/examples.pod view on Meta::CPAN
=item Median, Quartiles, Percentiles
The median is the number where half the list is less and half is greater.
Similarly the 1st quartile is where 25% are less and the 3rd where 25% are
greater. Use a list slice to extract these 3 and a 97th percentile, by
multiplying the fractional percentage with the list length:
pl -A 0..200 'echo @ARGV[map $_*@ARGV, .25, .5, .75, .97]'
pl -A 0..200 'e @A[map $_*@A, .25, .5, .75, .97]'
> 50 100 150 194
If you'd rather have names associated, assign them to hash slice in
sort-numerically-at-end C<%N(UMBER)>, whose key order must match the
percentages:
pl -A 0..200 '@NUMBER{qw(lower median upper 97.)} = @ARGV[map $_*@ARGV, .25, .5, .75, .97]'
pl -A 0..200 '@N{qw(lower median upper 97.)} = @A[map $_*@A, .25, .5, .75, .97]'
> 50: lower
App-plackbench
view release on metacpan or search on metacpan
lib/App/plackbench/Stats.pm view on Meta::CPAN
my $sd = sqrt( $differences_sum / $self->count() );
return $sd;
}
sub percentile {
my $self = shift;
my $percentile = shift;
my $n = int(( $percentile / 100 ) * $self->count() + 0.5) - 1;
$n = 0 if $n < 0;
return $self->[$n];
}
sub elapsed {
lib/App/plackbench/Stats.pm view on Meta::CPAN
=head2 standard_deviation
Returns the standard deviation. L<http://en.wikipedia.org/wiki/Standard_deviation>.
=head2 C<percentile($n)>
Returns the number at percentile C<$n>.
=head2 SEE ALSO
L<plackbench>
App-pltest
view release on metacpan or search on metacpan
pod/examples.pod view on Meta::CPAN
=item Median, Quartiles, Percentiles
The median is the number where half the list is less and half is greater.
Similarly the 1st quartile is where 25% are less and the 3rd where 25% are
greater. Use a list slice to extract these 3 and a 97th percentile, by
multiplying the fractional percentage with the list length:
pltest -A 0..200 'echo @ARGV[map $_*@ARGV, .25, .5, .75, .97]'
If you'd rather have names associated, assign them to hash slice in
sort-numerically-at-end C<%N(UMBER)>, whose key order must match the
percentages:
pltest -A 0..200 '@NUMBER{qw(lower median upper 97.)} = @ARGV[map $_*@ARGV, .25, .5, .75, .97]'
=item Triangular Number, Factorial and Averages
App-rank
view release on metacpan or search on metacpan
- [doc] Fix results in Synopsis.
0.005 2018-04-25 (PERLANCAR)
- [doc] Add --calc-percentile example in Synopsis and more
documentation for options.
- [Fix] Allow extrapolating to get requested low percentiles.
- Forgot the standard Getopt::Long configuration (bundling +
no_ignore_case).
0.004 2018-04-25 (PERLANCAR)
- Add options: --action (new action calc-percentile),
--calc-percentile to calculate specific percentiles.
0.003 2018-04-22 (PERLANCAR)
- Add option: --rank.
App-redis_traffic_stats
view release on metacpan or search on metacpan
script/redis-traffic-stats view on Meta::CPAN
=item Total network traffic and average of bytes/sec
=item Total number of requests and average and peak of req/sec
=item Top commands of count, percentage, req/sec by count
=item Top commands of network traffic and byte/sec by amount of traffic
=item Top keys for each command show bytes, byte/sec, count, percentage, req/sec
=item Worst slow requests
=back
App-remarkpl
view release on metacpan or search on metacpan
lib/App/remarkpl/public/remark.min.js view on Meta::CPAN
}),e.COMMENT("#cs","#ce"),e.COMMENT("#comments-start","#comments-end")]},n={begin:"\\$[A-z0-9_]+"},i={className:"string",variants:[{begin:/"/,end:/"/,contains:[{begin:/""/,relevance:0}]},{begin:/'/,end:/'/,contains:[{begin:/''/,relevance:0}]}]},l={va...
beginKeywords:"class interface",end:/[{;=]/,illegal:/[^\s:]/,contains:[e.TITLE_MODE,e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE]},{beginKeywords:"namespace",end:/[{;=]/,illegal:/[^\s:]/,contains:[e.inherit(e.TITLE_MODE,{begin:"[a-zA-Z](\\.?\\w)*"}),...
},a={className:"params",begin:/\(/,end:/\)/,excludeBegin:!0,excludeEnd:!0},r={className:"symbol",variants:[{begin:/\=[lgenxc]=/},{begin:/\$/}]},s={className:"comment",variants:[{begin:"'",end:"'"},{begin:'"',end:'"'}],illegal:"\\n",contains:[e.BACKSL...
},{begin:":\\s*"+t}]}]}}},{name:"hsp",create:function(e){return{case_insensitive:!0,lexemes:/[\w\._]+/,keywords:"goto gosub return break repeat loop continue wait await dim sdim foreach dimtype dup dupptr end stop newmod delmod mref run exgoto on mca...
},contains:[t,{className:"keyword",begin:"\\bend\\sif\\b"},{className:"function",beginKeywords:"function",end:"$",contains:[t,s,e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,e.BINARY_NUMBER_MODE,e.C_NUMBER_MODE,r]},{className:"function",begin:"\\bend\\s+",e...
contains:[{className:"comment",begin:/\(\*/,end:/\*\)/},e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,e.C_NUMBER_MODE,{begin:/\{/,end:/\}/,illegal:/:/}]}}},{name:"matlab",create:function(e){var t=[e.C_NUMBER_MODE,{className:"string",begin:"'",end:"'",contai...
illegal:"</",contains:[e.C_NUMBER_MODE,e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,{className:"string",begin:"`",end:"`",contains:[e.BACKSLASH_ESCAPE]},{begin:"[\\$\\%\\@](\\^\\w\\b|#\\w+|[^\\s\\w{]|{\\w+}|\\w+)"},e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_M...
contains:[i]});return{aliases:["ps"],lexemes:/-?[A-z\.\-]+/,case_insensitive:!0,keywords:{keyword:"if else foreach return function do while until elseif begin for trap data dynamicparam end break throw param continue finally in switch exit filter try...
},{className:"meta",begin:"#\\!?\\[",end:"\\]",contains:[{className:"meta-string",begin:/"/,end:/"/}]},{className:"class",beginKeywords:"type",end:";",contains:[e.inherit(e.UNDERSCORE_TITLE_MODE,{endsParent:!0})],illegal:"\\S"},{className:"class",beg...
literal:"true false nil"},contains:[e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE,e.NUMBER_MODE,a,t.preprocessor],illegal:/#/}}},{name:"sql",create:function(e){var t=e.COMMENT("--","$");return{case_insensitive:!0,illegal:/[<>{}*#]/,contains:[{beginKey...
return{aliases:["styl"],case_insensitive:!1,keywords:"if else for in",illegal:"("+o.join("|")+")",contains:[e.QUOTE_STRING_MODE,e.APOS_STRING_MODE,e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE,a,{begin:"\\.[a-zA-Z][a-zA-Z0-9_-]*"+i,returnBegin:!0,cont...
built_in:"ip eip rip al ah bl bh cl ch dl dh sil dil bpl spl r8b r9b r10b r11b r12b r13b r14b r15b ax bx cx dx si di bp sp r8w r9w r10w r11w r12w r13w r14w r15w eax ebx ecx edx esi edi ebp esp eip r8d r9d r10d r11d r12d r13d r14d r15d rax rbx rcx rdx...
"atelier-lakeside-light":".hljs-atelier-lakeside-light .hljs-comment,.hljs-atelier-lakeside-light .hljs-quote{color:#5a7b8c}.hljs-atelier-lakeside-light .hljs-variable,.hljs-atelier-lakeside-light .hljs-template-variable,.hljs-atelier-lakeside-light ...
grayscale:".hljs-grayscale .hljs{display:block;overflow-x:auto;padding:.5em;color:#333;background:#fff}.hljs-grayscale .hljs-comment,.hljs-grayscale .hljs-quote{color:#777;font-style:italic}.hljs-grayscale .hljs-keyword,.hljs-grayscale .hljs-selector...
"solarized-dark":".hljs-solarized-dark .hljs{display:block;overflow-x:auto;padding:.5em;background:#002b36;color:#839496}.hljs-solarized-dark .hljs-comment,.hljs-solarized-dark .hljs-quote{color:#586e75}.hljs-solarized-dark .hljs-keyword,.hljs-solari...
containerLayout:'<div class="remark-notes-area">\n <div class="remark-top-area">\n <div class="remark-toolbar">\n <a class="remark-toolbar-link" href="#increase">+</a>\n <a class="remark-toolbar-link" href="#decrease">-</a>\n <span...
App-revealup
view release on metacpan or search on metacpan
share/revealjs/dist/reveal.esm.js.map view on Meta::CPAN
{"version":3,"file":"reveal.esm.js","sources":["../js/utils/util.js","../js/utils/device.js","../node_modules/fitty/dist/fitty.module.js","../js/controllers/slidecontent.js","../js/controllers/slidenumber.js","../js/utils/color.js","../js/controllers...
App-rmhere
view release on metacpan or search on metacpan
bar.
0.03 2014-04-25 (SHARYANTO)
- Fix another bug in displaying progress message/percentage. D'oh.
0.02 2014-04-25 (SHARYANTO)
- Fix minor bug in displaying progress message.
App-rs
view release on metacpan or search on metacpan
I could now compile once on desktop, and then install the compiled package
on laptop, or vps; I could select a few packages, patch them, and then make
a bootable usb disk or cdrom, or a complete environment that's suitable to
put into a container and run web service. I sincerely believe anyone who
likes LFS will like it, and anyone who likes the freedom of LFS but hated
the inconvenience will like it also, since B<rs> eliminates ninety percent
of the inconvenience yet without sacrificing even a tiny bit of the freedom.
RSLinux is a Linux distribution, but not necessarily so, it's a way of doing
things more. You do not need to take a full commitment using it as a
distribution, there're almost always packages that you care about more and
useful when you need more complex preparations of the source like applying some
patches, or initializing git submodules, etc.
=back
The C<compile> command really covers ninety percent of the case, but it may
not be flexible enough to compile every package in the wild, but that's
actually okay, since you could always do a manual installation followed
by a C<diff> command.
=item patch
App-sdview-Output-Tickit
view release on metacpan or search on metacpan
lib/App/sdview/Output/Tickit.pm view on Meta::CPAN
Tickit::Widget::Scroller->VERSION( '0.33' );
$scroller = Tickit::Widget::Scroller->new;
$scroller->set_gen_bottom_indicator(
sub ( $scroller ) {
# It feels better for progress if we claim the percentage of ofscreen
# lines that are above the screen.
my $lines_above = $scroller->lines_above;
my $lines_total = $lines_above + $scroller->lines_below;
return "" if $lines_total < 1;
return sprintf( "%d of %d (%d%%)",
App-summ
view release on metacpan or search on metacpan
script/summ view on Meta::CPAN
calc_max => 1,
calc_mean => 1,
calc_median => 1,
calc_variance => 1,
calc_stddev => 1,
calc_percentiles => [25, 75],
calc_covariance => 0,
calc_correlation => 0,
);
sub parse_cmdline {
script/summ view on Meta::CPAN
'min!' => \$Opts{calc_min},
'mean!' => \$Opts{calc_mean},
'median!' => \$Opts{calc_median},
'variance!' => \$Opts{calc_variance},
'stddev!' => \$Opts{calc_stddev},
'no-percentile|P' => sub { $Opts{calc_percentiles} = [] },
'percentile|p=s' => sub {
my $p = int($_[1]);
die "summ: Invalid percentile $p, must be between 0 and 100\n"
if $p < 0 || $p > 100;
push @{ $Opts{calc_percentiles} }, $p
unless grep { $p == $_ } @{ $Opts{calc_percentiles} };
},
'covariance!' => \$Opts{calc_covariance},
'correlation!' => \$Opts{calc_correlation},
'help|h' => sub {
print <<USAGE;
script/summ view on Meta::CPAN
printf "Variance: %s\n", $sd->variance;
}
if ($Opts{calc_stddev}) {
printf "Std. dev.: %s\n", $sd->standard_deviation;
}
if (@{ $Opts{calc_percentiles} }) {
require Lingua::EN::Numbers::Ordinate;
for my $p (sort { $a <=> $b } @{ $Opts{calc_percentiles} }) {
printf "%s percentile: %s\n",
Lingua::EN::Numbers::Ordinate::ordinate($p),
$sd->percentile($p);
}
}
if ($Opts{calc_covariance}) {
require Statistics::Basic;
printf "Covariance: %s\n", Statistics::Basic::covariance(
script/summ view on Meta::CPAN
=item * --no-stddev
Do not calculate standard deviation.
=item * --no-percentile, -P
Do not calculate any percentiles. The default is to calculate 25th and 75th
percentiles.
=item * --percentile=P, -p P
Add a percentile to calculate, for example: C<-p 5 -p 95> to add calculating 5th
and 95th percentiles. The default is to only calculate 25th and 75th
percentiles.
=item * --covariance
Calculate covariance. This requires every line to contain two numbers intead of
one.
App-termpub
view release on metacpan or search on metacpan
lib/App/termpub/Epub.pm view on Meta::CPAN
|| '{}';
my $data = decode_json($content);
if ( $data->{version} == 1 ) {
$data->{position} = {
chapter => $data->{position}->[0],
percent => $data->{position}->[1]
};
}
return $data;
}
App-url
view release on metacpan or search on metacpan
lib/App/url.pm view on Meta::CPAN
=item * C<%n> - newline
=item * C<%t> - tab
=item * C<%%> - literal percent
=back
=head2 Methods
App-vaporcalc
view release on metacpan or search on metacpan
lib/App/vaporcalc.pm view on Meta::CPAN
base_nic_type => 'PG', # nicotine base type (VG/PG, default PG)
base_nic_per_ml => 100, # mg/ml (base nicotine concentration)
target_nic_per_ml => 12, # mg/ml (target nicotine concentration)
target_pg => 65, # target PG percentage
target_vg => 35, # target VG percentage
# target flavor(s) name, percentage, base type
# (or App::vaporcalc::Flavor objects)
flavor_array => [
+{ tag => 'Raspberry', percentage => 15, type => 'PG' },
# ...
],
);
# Returns an App::vaporcalc::RecipeResultSet ->
App-wdq
view release on metacpan or search on metacpan
if ( $id =~ $ENTITY_PATTERN ) {
$entity_id = $+{id};
$entity_id =~ s/Property://i;
}
else {
# URL could be percent-encoded or not, so normalize
my $uri = URI->new($id);
if ( $uri and $uri->canonical =~ $SITELINK_PATTERN ) {
my ( $base, $title ) = ( $+{base}, $+{title} );
# unescape to UTF-8 octets
App-wmiirc
view release on metacpan or search on metacpan
lib/App/wmiirc/Battery.pm view on Meta::CPAN
my %data = (
time_full => strftime("%-H:%M", 0, $minutes_to_full, 0, 0, 0, 0),
# Let me know if your battery lasts for >23 hours. I'd like one too.
time_empty => strftime("%-H:%M", 0, $minutes, 0, 0, 0, 0),
watts => sprintf("%d", $power_now / 1e6),
percent => sprintf("%d", $self->_bat("energy_now") /
$self->_bat("energy_full") * 100),
);
given($self->_bat("status")) {
when("Discharging") {
( run in 0.805 second using v1.01-cache-2.11-cpan-05162d3a2b1 )