Result:
found more than 651 distributions - search limited to the first 2001 files matching your query
( run in 3.189 )
App-ShellCompleter-mpv
view release on metacpan or search on metacpan
lib/App/ShellCompleter/mpv.pm view on Meta::CPAN
complete_array_elem(array=>[qw/auto/], word=>$word),
complete_int(min=>0, max=>8190, word=>$word),
);
},
'embeddedfonts!' => undef, # Flag (default: yes)
'end=s' => undef, # Relative time or percent position
'field-dominance=s' => [qw/auto top bottom/], # Choices: auto top bottom (default: auto)
'fixed-vo!' => undef, # Flag (default: yes) [global]
'force-rgba-osd-rendering!' => undef, # Flag (default: no)
'force-window!' => undef, # Flag (default: no) [global]
'force-window-position!' => undef, # Flag (default: no)
lib/App/ShellCompleter/mpv.pm view on Meta::CPAN
'input-test!' => undef, # Flag (default: no) [global]
'input-x11-keyboard!' => undef, # Flag (default: yes) [global]
'keep-open!' => undef, # Flag (default: no)
'keepaspect!' => undef, # Flag (default: yes)
'leak-report!' => undef, # Flag [global] [nocfg]
'length=s' => undef, # Relative time or percent position
'list-options!' => undef, # Flag [nocfg]
'list-properties' => undef, # Print [global] [nocfg]
'list-protocols' => undef, # Print [global] [nocfg]
'load-scripts!' => undef, # Flag (default: yes) [global]
'load-unsafe-playlists!' => undef, # Flag (default: no)
lib/App/ShellCompleter/mpv.pm view on Meta::CPAN
'slave-broken!' => undef, # Flag (default: no) [global]
'softvol=s' => [qw/no yes auto/], # Choices: no yes auto (default: auto)
'softvol-max' => _gcfloat(10,10000), # Float (10 to 10000) (default: 200.000000)
'speed=f' => _gcfloat(0.01,100), # Double (0.01 to 100) (default: 1.000000)
'sstep=f' => _gcfloat(0), # Double (0 to any) (default: 0.000000)
'start=s' => undef, # Relative time or percent position
'stop-screensaver!' => undef, # Flag (default: yes)
'stream-capture=s' => undef, # String (default: ) [file]
'stream-dump=s' => undef, # String (default: ) [file]
'stream-lavf-o=s' => undef, # Key/value list (default: )
'stretch-dvd-subs!' => undef, # Flag (default: no)
App-SilverSplash
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-SimpleScan
view release on metacpan or search on metacpan
bin/languages
bin/simple_report
bin/simple_scan
examples/cross_product.in
examples/expression.in
examples/renegade-percent.in
examples/ss.in
examples/ss_backtick1.in
examples/ss_backtick_env.in
examples/ss_blank.in
examples/ss_comment.in
t/40inputq.t
t/41extract.t
t/42nested_sub.t
t/43dynamname.t
t/44expression.t
t/45renegade_percent.t
t/46xproduct.t
t/47line.t
t/48subs_base.t
t/49antique.t
t/50quoteescbug.t
App-Slaughter
view release on metacpan or search on metacpan
lib/Slaughter/API/generic.pm view on Meta::CPAN
}
=head2 PercentageUsed
Return the percentage of space used in in the given mounted-device.
=for example begin
foreach my $point ( Mounts() )
{
lib/Slaughter/API/generic.pm view on Meta::CPAN
The mount-point to the filesystem in question.
=back
The return value will be a percentage in the range 0-100.
B<NOTE>: This primitive invokes C<df> and parses the output. This
is reasonably portable, but will fail upon systems which have no "df"
binary. In that case the method will output a stub message to complain
that the function is not implemented.
App-SlideServer
view release on metacpan or search on metacpan
share/public/highlight/highlight.min.js view on Meta::CPAN
keyword:"define endef undefine ifdef ifndef ifeq ifneq else endif include -include sinclude override export unexport private vpath"
},contains:[e.HASH_COMMENT_MODE,i,a,n,s,{className:"meta",begin:/^\.PHONY:/,
end:/$/,keywords:{$pattern:/[\.\w]+/,keyword:".PHONY"}},r]}}})()
;hljs.registerLanguage("makefile",e)})();/*! `sql` grammar compiled for Highlight.js 11.7.0 */
(()=>{var e=(()=>{"use strict";return e=>{
const r=e.regex,t=e.COMMENT("--","$"),n=["true","false","unknown"],a=["bigint","binary","blob","boolean","char","character","clob","date","dec","decfloat","decimal","float","int","integer","interval","nchar","nclob","national","numeric","real","row",...
begin:r.concat(/\b/,r.either(...o),/\s*\(/),relevance:0,keywords:{built_in:o}}
;return{name:"SQL",case_insensitive:!0,illegal:/[{}]|<\//,keywords:{
$pattern:/\b[\w\.]+/,keyword:((e,{exceptions:r,when:t}={})=>{const n=t
;return r=r||[],e.map((e=>e.match(/\|\d+$/)||r.includes(e)?e:n(e)?e+"|0":e))
})(c,{when:e=>e.length<3}),literal:n,type:a,
App-SocialCalc-Multiplayer
view release on metacpan or search on metacpan
socialcalc/SocialCalcServersideUtilities.pm view on Meta::CPAN
}
}
}
# Get values for our section
my ($sectionstart, $integerdigits, $fractiondigits, $commas, $percent, $thousandssep) =
@{%{$thisformat->{sectioninfo}->[$section]}}{qw(sectionstart integerdigits fractiondigits commas percent thousandssep)};
if ($commas > 0) { # scale by thousands
for (my $i=0; $i<$commas; $i++) {
$value /= 1000;
}
}
if ($percent > 0) { # do percent scaling
for (my $i=0; $i<$percent; $i++) {
$value *= 100;
}
}
my $decimalscale = 1; # cut down to required number of decimal digits
socialcalc/SocialCalcServersideUtilities.pm view on Meta::CPAN
# {sectioninfo}->[] # one hash for each section of the format
# {start}
# {integerdigits}
# {fractiondigits}
# {commas}
# {percent}
# {thousandssep}
# {hasdates}
# {hascomparison} # true if any section has [<100], etc.
#
# # # # # # # # #
socialcalc/SocialCalcServersideUtilities.pm view on Meta::CPAN
push @{$thisformat->{operands}}, $ch;
}
}
elsif ($ch eq "%") {
$lastwasinteger = 0;
$sectioninfo->{percent}++;
push @{$thisformat->{operators}}, $cmd_copy;
push @{$thisformat->{operands}}, $ch;
}
elsif ($ch eq '"') {
$lastwasinteger = 0;
App-Sqitch
view release on metacpan or search on metacpan
lib/sqitch-target.pod view on Meta::CPAN
=back
Note that, as with any URI or URL, special characters must be
L<URL encoded|https://en.wikipedia.org/wiki/URL_encoding>. For example, when
a username contains a reserved character, such as the C<|> in C<ro|michelle>,
it must be percent-encoded as C<%7c>:
db:pg://ro%7Cmichelle@examle.org/inventory
The rules are even more strict for query parameters, as often used by for
ODBC connections. For example, when using a
App-St
view release on metacpan or search on metacpan
lib/App/St.pm view on Meta::CPAN
sub quartile {
my ($self,$q,%opt) = @_;
if ($q !~ /^[01234]$/) {
die "Invalid quartile '$q'\n";
}
return $self->percentile($q / 4 * 100, %opt);
}
sub median {
my ($self,%opt) = @_;
return $self->percentile(50, %opt);
}
sub variance {
my ($self,%opt) = @_;
lib/App/St.pm view on Meta::CPAN
return $opt{formatted} ? $self->_format($stderr)
: $stderr;
}
sub percentile {
my ($self, $p, %opt) = @_;
my $data = $self->{data};
if (!$self->{keep_data} or scalar @{$data} == 0) {
die "Can't get percentile from empty dataset\n";
}
if ($p < 0 or $p > 100) {
die "Invalid percentile '$p'\n";
}
if (!$self->{_is_sorted_}) {
$data = [ sort {$a <=> $b} @{ $data } ];
$self->{data} = $data;
lib/App/St.pm view on Meta::CPAN
}
my $N = $self->N();
my $idx = ($N - 1) * $p / 100;
my $percentile =
int($idx) == $idx ? $data->[$idx]
: ($data->[$idx] + $data->[$idx+1]) / 2;
return $opt{formatted} ? _format($percentile)
: $percentile;
}
sub result {
my $self = shift;
lib/App/St.pm view on Meta::CPAN
q3 => $self->quartile(3),
)
);
}
# the following is a hack to accept multiple percentiles/quartiles
if ( exists $self->{percentile} ) {
my $percentile = ref $self->{percentile} eq 'ARRAY'
? [ map { $self->percentile($_) } @{ $self->{percentile} } ]
: $self->percentile( $self->{percentile} );
%result = (
%result,
percentile => $percentile
);
}
if (exists $self->{quartile}) {
my $quartile = ref $self->{quartile} eq 'ARRAY'
lib/App/St.pm view on Meta::CPAN
=head2 stddev
=head2 stderr
=head2 percentile=<0..100>
=head2 quartile=<0..4>
=head2 min
App-StatisticsUtils
view release on metacpan or search on metacpan
lib/App/StatisticsUtils.pm view on Meta::CPAN
summary => 'CLI utilities related to statistics',
};
$SPEC{z2pct} = {
v => 1.1,
summary => 'Convert z-score to percentile (for standard normal distribution)',
args_as => 'array',
args => {
z => {
schema => 'float*',
req => 1,
lib/App/StatisticsUtils.pm view on Meta::CPAN
Statistics::Standard_Normal::z_to_pct(shift);
}
$SPEC{pct2z} = {
v => 1.1,
summary => 'Convert percentile to z-score (for standard normal distribution)',
args_as => 'array',
args => {
pct => {
schema => ['float*', xbetween=>[0,100]],
req => 1,
lib/App/StatisticsUtils.pm view on Meta::CPAN
Usage:
pct2z($pct) -> any
Convert percentile to z-score (for standard normal distribution).
Examples:
=over
lib/App/StatisticsUtils.pm view on Meta::CPAN
Usage:
z2pct($z) -> any
Convert z-score to percentile (for standard normal distribution).
Examples:
=over
App-Tarotplane
view release on metacpan or search on metacpan
arguments. Please read the manual for more in-depth documentation on the usage
of **tarotplane**.
### Card Files
A **tarotplane** card file is a text file that contains cards seperated by a
delimitting line, which is a line the contains nothing but a percentage (%)
sign. Each card must contain a term and a definition, seperated by a colon (:).
Terms precede the colon, definitions follow the colon.
Lines starting with a hash (#) are treated as comments and are ignored. Blank
lines are also ignored.
App-Tel
view release on metacpan or search on metacpan
local/lib/perl5/Module/Install/Philosophy.pod view on Meta::CPAN
=over 4
=item * New Modules don't help Older Perls
If I were to guess what percent of all Perl5 installations were at the
current release level (5.8.0 in October 2002) I would say 3-5%. That may
even be generous. I'd say that over 40% of installations might still be
at 5.005 or earlier.
The biggest problem with adding a module to the core is that it only
App-TeleGramma
view release on metacpan or search on metacpan
lib/App/TeleGramma/Plugin/Core/YearProgress.pm view on Meta::CPAN
sub send_out_progress_if_necessary {
my $self = shift;
my $decimals = 0;
# what was the last progress report percentage?
my $last_pc = $self->store->hash('last')->{percentage} || sprintf("%0.${decimals}f", 0);
# how many seconds in a year?
my $year_seconds = 365 * 86400; # no such thing as leap year la la la
# how many seconds are we into this year?
my $year_start_ts = DateTime->now->truncate(to => 'year')->epoch;
my $year_seconds_so_far = time() - $year_start_ts;
# as a percent?
my $percent = sprintf("%0.${decimals}f", 100 * ($year_seconds_so_far / $year_seconds));
# has it rolled?
if ($percent ne $last_pc) {
# store it
$self->store->hash('last')->{percentage} = $percent;
$self->store->save('last');
# send out the alerts
$self->send_alerts($percent);
}
}
sub send_alerts {
my $self = shift;
my $percent = shift;
my @alertees = keys %{ $self->store->hash('registered') };
my $done_num = int($percent / 10);
my $todo_num = 10 - $done_num;
my $done = "â–“";
my $todo = "â–‘";
my $bar = $done x $done_num . $todo x $todo_num;
$bar .= " ${percent}%";
foreach my $id (@alertees) {
my $username = $self->store->hash('registered')->{$id}->{username};
eval {
$self->app->send_message_to_chat_id($id, "Hey $username, the year is progressing: $bar");
} or do {
App-Test-Generator
view release on metacpan or search on metacpan
cliff detectors.
- Fixed blib/ paths appearing in coverage table instead of lib/
paths. Devel::Cover instruments blib/ during testing; paths are
now normalised to lib/ for display, with deduplication against
any native lib/ entry.
- Fixed structural coverage percentages in Executive Summary and
Structural Coverage sections showing ~24% instead of ~93%.
_coverage_totals now aggregates from individual own-project files
rather than Devel::Cover's pre-aggregated Total key which
includes all instrumented CPAN dependencies.
- Fixed cyclomatic complexity badge colour and tooltip inverted.
to use $complexity rather than $score.
0.31 Fri Apr 10 08:07:40 EDT 2026
- Added TER3 (LCSAJ path coverage) column to mutation files table in
the test dashboard index, showing percentage and raw fraction
(e.g. "71.8% (352/491)")
- Added TER1, TER2 and TER3 metrics to per-file mutation report pages,
replacing the plain "Statement" and "Branch" labels with their
formal Test Effectiveness Ratio names
- Renamed the LCSAJ column header in the mutation files table to TER3
App-Textcast
view release on metacpan or search on metacpan
restore start state, eg white screens remain dark
handle all the options passed as arguments
option to display
percentage played
time and time left
show terminal bottom if possible
pause/play/jump/back/forward
App-TimeTracker-Command-Category
view release on metacpan or search on metacpan
lib/App/TimeTracker/Command/Category.pm view on Meta::CPAN
}
$stats{_no_cat}{abs} += $time unless $got_cat;
}
while ( my ( $cat, $data ) = each %stats ) {
$data->{percent} = sprintf( "%.1f", $data->{abs} / $total * 100 );
$data->{nice} = $self->beautify_seconds( $data->{abs} );
}
$self->_say_current_report_interval;
printf( "%39s\n", $self->beautify_seconds($total) );
foreach my $cat ( sort keys %stats ) {
my $data = $stats{$cat};
printf( "%6s%% %- 20s% 10s\n",
$data->{percent}, $cat, $data->{nice} );
}
}
sub _load_attribs_statistic {
my ( $class, $meta ) = @_;
App-UniqFiles
view release on metacpan or search on metacpan
}
},
"runtime" : {
"requires" : {
"Data::Sah::Coerce::perl::To_array::From_str::comma_sep" : "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::array" : "0.914",
"Data::Sah::Compiler::perl::TH::bool" : "0.914",
"Data::Sah::Compiler::perl::TH::float" : "0.914",
"Data::Sah::Compiler::perl::TH::int" : "0.914",
App-VOJournal
view release on metacpan or search on metacpan
lib/App/VOJournal/VOTL.pm view on Meta::CPAN
A simple heading starts with any non-whitespace character except
C<< : ; | < > >>.
A checkbox is a special form of a heading that starts with either
C<< [_] >> or C<< [X] >> after the leading tabulator signs.
A checkbox may contain a percent sign (C<%>) as a placeholder for
the percentage completed.
This percent sign must follow the initial C<< [_] >> after a separating
whitespace.
The following text objects are defined for vimoutliner files:
=over 4
App-WHOGrowthReferenceUtils
view release on metacpan or search on metacpan
"Data::Sah::Coerce::perl::To_date::From_str::iso8601" : "0",
"Data::Sah::Coerce::perl::To_duration::From_float::seconds" : "0",
"Data::Sah::Coerce::perl::To_duration::From_obj::datetime_duration" : "0",
"Data::Sah::Coerce::perl::To_duration::From_str::human" : "0",
"Data::Sah::Coerce::perl::To_duration::From_str::iso8601" : "0",
"Data::Sah::Coerce::perl::To_float::From_str::percent" : "0",
"Data::Sah::Compiler::perl::TH::date" : "0",
"Data::Sah::Compiler::perl::TH::duration" : "0",
"Data::Sah::Compiler::perl::TH::float" : "0",
"Data::Sah::Compiler::perl::TH::str" : "0",
"Perinci::CmdLine::Any" : "0",
App-Widget-ChartDirector
view release on metacpan or search on metacpan
lib/App/Widget/ChartDirector.pm view on Meta::CPAN
#Add a title to the chart using 14 points Times Bold Itatic font, using blue
#(0x9999ff) as the background color
$c->addTitle("Rate History", "arialbi.ttf", 12)->setBackground(0x9999ff);
#Set the y axis label format to display a percentage sign
#$c->yAxis()->setLabelFormat("{value}%");
my $labels = $spec->{labels} || [ "Unknown" ];
my $default_colors =
[ 0x0000ff, 0x00ff00, 0xff0000, 0x00ffff, 0xff00ff, 0xffff00,
App-Widget
view release on metacpan or search on metacpan
lib/App/Widget.pm view on Meta::CPAN
my $format = $format_options->{format};
if ($format =~ /%-?[0-9\.]*[sdf]/) { # just a sprintf() type format
$formatted_value = sprintf($format, $formatted_value);
}
# This {format} style supports the following:
# #.#% percentage. multiply by 100, 1 digit precision.
# +#.##% percentage change. multiply by 100, 2 digit precision. add + sign at front if positive.
# #,### integer. add commas as necessary.
# #,###.# float. 1 digit precision. add commas as necessary.
# $#,###.## currency. 2 digits precision. add commas as necessary.
# +$#,###.## currency. 2 digits precision. add commas as necessary. add + sign at front if positive.
# ($#,###.##) currency. 2 digits precision. add commas as necessary. negatives in parentheses.
App-Yath-Plugin-Utilization
view release on metacpan or search on metacpan
lib/App/Yath/Plugin/Utilization.pm view on Meta::CPAN
option disk_mounts => (
name => 'disk_mount',
type => 'm',
long_examples => [' /tmp:25%', ' /var:1gb'],
description => 'Disk resource: repeat to add tracked mount points and their min-free thresholds. Format: /path:THRESHOLD where THRESHOLD is 25% or 1gb. Bare numbers interpreted as percent.',
);
option pipes_per_test => (
type => 's',
default => 2,
lib/App/Yath/Plugin/Utilization.pm view on Meta::CPAN
=over 4
=item C<--utilization-utilize PCT> (also C<-U>)
Target saturation percentage for every utilizer (default 75). Each
resource applies this to its own monitored subsystem.
=item C<-Z>, C<-Z=PCT>
One-stop shortcut. Enables the full utilizer stack (CPU+Memory+
App-Ylastic-CostAgent
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-ZodiacUtils
view release on metacpan or search on metacpan
script/chinese-zodiac-of 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-btcindo
view release on metacpan or search on metacpan
lib/App/btcindo.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/btcindo.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-ccdiff
view release on metacpan or search on metacpan
lib/App/ccdiff.pm view on Meta::CPAN
has fewer or more lines than the new block and that difference exceeds this
threshold, C<ccdiff> will fall-back to vertical diff.
=item --heuristics=n -h n
Defines the percentage of character-changes a change block may differ before
the fall-back of horizontal diff to vertical diff.
This percentage is calculated as C<(characters removed + characters added) /
(2 * characters unchanged))>.
=item --ellipsis=n -e n
Defines the number of characters to keep on each side of a horizontal-equal
lib/App/ccdiff.pm view on Meta::CPAN
=item heuristics (-h)
heuristics : 40
Defines the percentage of character-changes a change block may differ before
the fall-back of horizontal diff to vertical diff. The default is undefined,
meaning no fallback based on heuristics.
=item ellipsis (-e)
App-cloc
view release on metacpan or search on metacpan
${BB}Output Options${NN}
--3 Print third-generation language output.
(This option can cause report summation to fail
if some reports were produced with this option
while others were produced without it.)
--by-percent X Instead of comment and blank line counts, show
these values as percentages based on the value
of X in the denominator:
X = 'c' -> # lines of code
X = 'cm' -> # lines of code + comments
X = 'cb' -> # lines of code + blanks
X = 'cmb' -> # lines of code + comments + blanks
$opt_no3 , # accept it but don't use it
$opt_3 ,
$opt_extract_with ,
$opt_by_file ,
$opt_by_file_by_lang ,
$opt_by_percent ,
$opt_xml ,
$opt_xsl ,
$opt_yaml ,
$opt_csv ,
$opt_csv_delimiter ,
"ignore_whitespace|ignore-whitespace" => \$opt_ignore_whitespace ,
"ignore_case|ignore-case" => \$opt_ignore_case ,
"follow_links|follow-links" => \$opt_follow_links ,
"autoconf" => \$opt_autoconf ,
"sum_one|sum-one" => \$opt_sum_one ,
"by_percent|by-percent=s" => \$opt_by_percent ,
"stdin_name|stdin-name=s" => \$opt_stdin_name ,
"windows" => \$opt_force_on_windows ,
"unix" => \$opt_force_on_unix ,
"show_os|show-os" => \$opt_show_os ,
"skip_archive|skip-archive=s" => \$opt_skip_archive ,
$opt_sql_style = lc $opt_sql_style;
if (!grep { lc $_ eq $opt_sql_style } qw ( Oracle )) {
die "'$opt_sql_style' is not a recognized SQL style.\n";
}
}
$opt_by_percent = '' unless defined $opt_by_percent;
if ($opt_by_percent and $opt_by_percent !~ m/^(c|cm|cb|cmb)$/i) {
die "--by-percent must be either 'c', 'cm', 'cb', or 'cmb'\n";
}
$opt_by_percent = lc $opt_by_percent;
if (defined $opt_vcs) {
if ($opt_vcs eq "git") {
$opt_vcs = "git ls-files";
my @submodules = invoke_generator('git submodule status');
$data_line .= sprintf "%${spacing_2}s" , "" ;
} else {
$data_line .= sprintf "%${spacing_2}s " , "files";
}
my $PCT_symbol = "";
$PCT_symbol = " \%" if $opt_by_percent;
$data_line .= sprintf "%${spacing_2}s %${spacing_2}s %${spacing_2}s",
"blank${PCT_symbol}" ,
"comment${PCT_symbol}" ,
"code";
if ($BY_FILE) {
$line .= sprintf " ";
} else {
$line .= sprintf " %${spacing_2}s", $rhhh_count->{$lang_or_file}{'nFiles'}{$S};
}
if ($opt_by_percent) {
my $DEN = compute_denominator($opt_by_percent ,
$rhhh_count->{$lang_or_file}{'code'}{$S} ,
$rhhh_count->{$lang_or_file}{'comment'}{$S},
$rhhh_count->{$lang_or_file}{'blank'}{$S} );
if ($rhhh_count->{$lang_or_file}{'code'}{$S} > 0) {
$line .= sprintf " %14.2f %14.2f %${spacing_2}s",
if ($BY_FILE) {
$line .= sprintf " ";
} else {
$line .= sprintf " %${spacing_2}s", $sum{'nFiles'}{$S};
}
if ($opt_by_percent) {
my $DEN = compute_denominator($opt_by_percent,
$sum{'code'}{$S}, $sum{'comment'}{$S}, $sum{'blank'}{$S});
if ($sum{'code'}{$S} > 0) {
$line .= sprintf " %14.2f %14.2f %${spacing_2}s",
$sum{'blank'}{$S} / $DEN * 100,
$sum{'comment'}{$S} / $DEN * 100,
} else {
$L .= sprintf " <language name=\"%s\" files_count=\"%d\" ",
$lang_or_file ,
$rhhh_count->{$lang_or_file}{'nFiles'}{$S};
}
if ($opt_by_percent) {
my $DEN = compute_denominator($opt_by_percent ,
$rhhh_count->{$lang_or_file}{'code'}{$S} ,
$rhhh_count->{$lang_or_file}{'comment'}{$S},
$rhhh_count->{$lang_or_file}{'blank'}{$S} );
foreach my $T (qw(blank comment)) {
if ($rhhh_count->{$lang_or_file}{'code'}{$S} > 0) {
push @results, $L . "/>";
}
my $L = sprintf " <total sum_files=\"%d\" ", $sum{'nFiles'}{$S};
if ($opt_by_percent) {
my $DEN = compute_denominator($opt_by_percent,
$sum{'code'}{$S} ,
$sum{'comment'}{$S},
$sum{'blank'}{$S} );
foreach my $V (qw(blank comment)) {
if ($sum{'code'}{$S} > 0) {
if ($BY_FILE) {
$line = rm_leading_tempdir($lang_or_file, \%TEMP_DIR) . "$DELIM ";
} else {
$line = $lang_or_file . "${DELIM} ";
}
if ($opt_by_percent) {
foreach my $item (qw(nFiles)) {
next if $BY_FILE and $item eq 'nFiles';
foreach my $symbol (qw(same modified added removed)) {
if (defined $rhhh_count->{$lang_or_file}{$item}{$symbol}) {
$line .= "$rhhh_count->{$lang_or_file}{$item}{$symbol}${DELIM} ";
$data_line .= sprintf "%${spacing_2}s " , " " ;
} else {
$data_line .= sprintf "%${spacing_2}s " , "files";
}
my $PCT_symbol = "";
$PCT_symbol = " \%" if $opt_by_percent;
$data_line .= sprintf "%${spacing_2}s %${spacing_2}s %${spacing_2}s",
"blank${PCT_symbol}" ,
"comment${PCT_symbol}" ,
"code";
$data_line .= sprintf " %8s %14s",
} else {
$data_line = sprintf $Format{'2'}{$Style}, $lang_or_file;
}
$data_line .= sprintf $Format{3}{$Style} ,
$rhh_count->{$lang_or_file}{'nFiles'} unless $BY_FILE;
if ($opt_by_percent) {
my $DEN = compute_denominator($opt_by_percent ,
$rhh_count->{$lang_or_file}{'code'} ,
$rhh_count->{$lang_or_file}{'comment'},
$rhh_count->{$lang_or_file}{'blank'} );
$data_line .= sprintf $Format{5}{$Style} ,
$rhh_count->{$lang_or_file}{'blank'} / $DEN * 100,
} elsif ($opt_yaml or $opt_json) {
my ($Q, $open_B, $close_B, $start, $C) = yaml_to_json_separators();
push @results,"${Q}" . rm_leading_tempdir($lang_or_file, \%TEMP_DIR). "${Q} :$open_B";
push @results," ${Q}nFiles${Q}: " . $rhh_count->{$lang_or_file}{'nFiles'} . $C
unless $BY_FILE;
if ($opt_by_percent) {
my $DEN = compute_denominator($opt_by_percent ,
$rhh_count->{$lang_or_file}{'code'} ,
$rhh_count->{$lang_or_file}{'comment'},
$rhh_count->{$lang_or_file}{'blank'} );
push @results," ${Q}blank_pct${Q}: " .
sprintf("%3.2f", $rhh_count->{$lang_or_file}{'blank'} / $DEN * 100) . $C;
$first_column = $rhh_count->{$lang_or_file}{'nFiles'};
$str = $clean_name . ${DELIM} .
$first_column . ${DELIM};
}
}
if ($opt_by_percent) {
my $DEN = compute_denominator($opt_by_percent ,
$rhh_count->{$lang_or_file}{'code'} ,
$rhh_count->{$lang_or_file}{'comment'},
$rhh_count->{$lang_or_file}{'blank'} );
$str .= sprintf("%3.2f", $rhh_count->{$lang_or_file}{'blank'} / $DEN * 100) . ${DELIM} .
sprintf("%3.2f", $rhh_count->{$lang_or_file}{'comment'} / $DEN * 100) . ${DELIM} .
if ($opt_xml) {
$data_line = "";
if (!$BY_FILE) {
$data_line .= sprintf "sum_files=\"%d\" ", $sum_files;
}
if ($opt_by_percent) {
my $DEN = compute_denominator($opt_by_percent ,
$sum_code, $sum_comment, $sum_blank);
$data_line .= sprintf $Format{'5'}{$Style},
$sum_blank / $DEN * 100,
$sum_comment / $DEN * 100,
$sum_code ;
$ALREADY_SHOWED_XML_SECTION = 1;
}
} elsif ($opt_yaml or $opt_json) {
my ($Q, $open_B, $close_B, $start, $C) = yaml_to_json_separators();
push @results, "${Q}SUM${Q}: ${open_B}";
if ($opt_by_percent) {
my $DEN = compute_denominator($opt_by_percent ,
$sum_code, $sum_comment, $sum_blank);
push @results, " ${Q}blank${Q}: " . sprintf("%.2f", $sum_blank / $DEN * 100) . $C;
push @results, " ${Q}comment${Q}: ". sprintf("%.2f", $sum_comment / $DEN * 100) . $C;
push @results, " ${Q}code${Q}: " . $sum_code . $C;
} else {
$data_line = sprintf "%-${spacing_0}s ", "SUM:" ;
} else {
$data_line = sprintf "%-${spacing_1}s ", "SUM:" ;
$data_line .= sprintf "%${spacing_2}d ", $sum_files;
}
if ($opt_by_percent) {
my $DEN = compute_denominator($opt_by_percent ,
$sum_code, $sum_comment, $sum_blank);
$data_line .= sprintf $Format{'5'}{$Style},
$sum_blank / $DEN * 100,
$sum_comment / $DEN * 100,
$sum_code ;
my $filename = shift;
chomp($filename);
my $is_lex = 0; # Value to determine.
my $percent_percent = 0;
my $percent_opencurly = 0;
my $percent_closecurly = 0;
# Return cached result, if available:
if ($lex_files{$filename}) { return $lex_files{$filename};}
open(LEX_FILE, "<$filename") ||
die "Can't open $filename to determine if it's lex.\n";
while(<LEX_FILE>) {
$percent_percent++ if (m/^\s*\%\%/);
$percent_opencurly++ if (m/^\s*\%\{/);
$percent_closecurly++ if (m/^\s*\%\}/);
}
close(LEX_FILE);
if ($percent_percent && $percent_opencurly && $percent_closecurly)
{$is_lex = 1;}
$lex_files{$filename} = $is_lex; # Store result in cache.
return $is_lex;
Print third-generation language output. (This option can cause report
summation to fail if some reports were produced with this option while
others were produced without it.)
=item B<--by-percent X>
Instead of comment and blank line counts, show
these values as percentages based on the
value of X in the denominator:
X = 'c' -> # lines of code
X = 'cm' -> # lines of code + comments
X = 'cb' -> # lines of code + blanks
App-corruptor
view release on metacpan or search on metacpan
lib/App/corruptor.pm view on Meta::CPAN
args => {
%argspec0_files,
# XXX arg: block mode or byte mode
proportion => {
summary => 'How much random data is written '.
'as proportion of file size (in percent)',
schema => ['percent*', xmin=>0, max=>100],
req => 1,
cmdline_aliases => {p=>{}},
},
},
features => {
lib/App/corruptor.pm view on Meta::CPAN
=over 4
=item * B<files>* => I<array[filename]>
=item * B<proportion>* => I<percent>
How much random data is written as proportion of file size (in percent).
=back
Special arguments:
App-cpanminus
view release on metacpan or search on metacpan
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
#pod redirected request.) For example:
#pod
#pod $http->request('GET', 'http://Aladdin:open sesame@example.com/');
#pod
#pod If the "user:password" stanza contains reserved characters, they must
#pod be percent-escaped:
#pod
#pod $http->request('GET', 'http://john%40example.com:password@example.com/');
#pod
#pod A hashref of options may be appended to modify the request.
#pod
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
if ( (my $i = index $host, '@') != -1 ) {
# user:pass@host
$auth = substr $host, 0, $i, ''; # take up to the @ for auth
substr $host, 0, 1, ''; # knock the @ off the host
# userinfo might be percent escaped, so recover real auth info
$auth =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg;
}
my $port = $host =~ s/:(\d*)\z// && length $1 ? $1
: $scheme eq 'http' ? 80
: $scheme eq 'https' ? 443
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
redirected request.) For example:
$http->request('GET', 'http://Aladdin:open sesame@example.com/');
If the "user:password" stanza contains reserved characters, they must
be percent-escaped:
$http->request('GET', 'http://john%40example.com:password@example.com/');
A hashref of options may be appended to modify the request.
App-cryp-arbit
view release on metacpan or search on metacpan
lib/App/cryp/arbit.pm view on Meta::CPAN
_
},
%args_accounts_and_currencies,
min_net_profit_margin => {
summary => 'Minimum net profit margin that will trigger an arbitrage '.
'trading, in percentage',
schema => 'float*',
default => 0,
description => <<'_',
Below this percentage number, no order pairs will be sent to the exchanges to do
the arbitrage. Note that the net profit margin already takes into account
trading fees and forex spread (see Glossary section for more details and
illustration).
Suggestion: If you set this option too high, there might not be any order pairs
possible. If you set this option too low, you will be getting too thin profits.
Run `cryp-arbit opportunities` or `cryp-arbit arbit --dry-run` for a while to
see what the average percentage is and then decide at which point you want to
perform arbitrage.
_
},
max_order_quote_size => {
lib/App/cryp/arbit.pm view on Meta::CPAN
For example if you are arbitraging BTC against USD and IDR, and set this option
to 75, then orders will not be above 75 USD. If you are arbitraging LTC against
BTC and set this to 0.03 then orders will not be above 0.03 BTC.
Suggestion: If you set this option too high, a few orders can use up your
inventory (and you might not be getting optimal profit percentage). Also, large
orders can take a while (or too long) to fill. If you set this option too low,
you will hit the exchanges' minimum order size and no orders can be created.
Since we want smaller risk of orders not getting filled quickly, we want small
order sizes. The optimum number range a little above the exchanges' minimum
order size.
lib/App/cryp/arbit.pm view on Meta::CPAN
ctime DOUBLE NOT NULL, INDEX(ctime), -- create time in our database
base_currency VARCHAR(10) NOT NULL, -- the currency we are arbitraging, e.g. LTC
base_size DECIMAL(21,8) NOT NULL, -- amount of "currency" that we are arbitraging (sell on "sell exchange" and buy on "buy exchange")
expected_profit_margin DOUBLE NOT NULL, -- expected profit percentage (after trading fees & forex spread)
expected_net_profit DOUBLE NOT NULL, -- expected net profit (after trading fees & forex spread) in quote currency (converted to USD if fiat) if fully executed
-- we buy "base_size" of "base_currency" on "buy exchange" at
-- "buy_gross_price_orig" (in "buy_quote_currency") a.k.a
-- "buy_gross_price" (in "buy_quote_currency" converted to USD if
lib/App/cryp/arbit.pm view on Meta::CPAN
ctime DOUBLE NOT NULL, INDEX(ctime), -- create time in our database
base_currency VARCHAR(10) NOT NULL, -- the currency we are arbitraging, e.g. LTC
base_size DECIMAL(21,8) NOT NULL, -- amount of "currency" that we are arbitraging (sell on "sell exchange" and buy on "buy exchange")
expected_profit_margin DOUBLE NOT NULL, -- expected profit percentage (after trading fees & forex spread)
expected_net_profit DOUBLE NOT NULL, -- expected net profit (after trading fees & forex spread) in quote currency (converted to USD if fiat) if fully executed
-- we buy "base_size" of "base_currency" on "buy exchange" at
-- "buy_gross_price_orig" (in "buy_quote_currency") a.k.a
-- "buy_gross_price" (in "buy_quote_currency" converted to USD if
lib/App/cryp/arbit.pm view on Meta::CPAN
=item * order pair
=item * gross profit margin
Price difference percentage of a cryptocurrency between two exchanges, without
taking into account trading fees and foreign exchange spread.
For example, suppose BTC is being offered (ask price, sell price) at 7010 USD on
exchange1 and is being bidden (bid price, buy price) at 7150 USD on exchange2.
This means there is a (7150-7010)/7010 = 1.997% gross profit margin. We can buy
BTC on exchange1 for 7010 USD then sell the same amout of BTC on exchange2 for
7150 USD and gain (7150-7010) = 140 USD per BTC, before fees.
=item * trading profit margin
Price difference percentage of a cryptocurrency between two exchanges, after
taking into account trading fees.
For example, suppose BTC is being offered (ask price, sell price) at 7010 USD on
exchange1 and is being bidden (bid price, buy price) at 7150 USD on exchange2.
Trading (market maker) fee on exchange1 is 0.3% and on exchange2 is 0.25%. After
lib/App/cryp/arbit.pm view on Meta::CPAN
then sell the same amout of BTC on exchange2 for 7150 USD and still gain
(7132.125-7031.03) = 101.095 USD per BTC, after trading fees.
=item * net profit margin
Price difference percentage of a cryptocurrency between two exchanges, after
taking into account trading fees and foreign exchange spread. If the price on
both exchanges are quoted in the same currency (e.g. USD) then there is no forex
spread and net profit margin is the same as trading profit margin.
If the quoting currencies are different, e.g. USD on exchange1 and IDR on
lib/App/cryp/arbit.pm view on Meta::CPAN
{exchange_ids} # key=exchange safename, value=exchange (numeric) ID from db
{exchange_recs} # key=exchange safename, value=hash (from CryptoExchange::Catalog)
{exchange_coins} # key=exchange safename, value=[COIN1, COIN2, ...]
{exchange_pairs} # key=exchange safename, value=[{name=>PAIR1, min_base_size=>..., min_quote_size=>...}, ...]
{forex_rates} # key=currency pair (e.g. IDR/USD), val=exchange rate (avg rate)
{forex_spreads} # key=fiat currency pair, e.g. USD/IDR, value=percentage
{fx} # key=currency value=result from get_spot_rate()
{order_pairs} # result from calculate_order_pairs()
{quote_currencies} # what currencies we use to buy/sell the base currencies
{quote_currencies_for} # key=base currency, value={quotecurrency1 => 1, quotecurrency2=>1, ...}
{trading_fees} # key=exchange safename, value={coin1=>num (in percent) market taker fees, ...}, ':default' for all other coins, ':default' for all other exchanges
=head1 FUNCTIONS
=head2 arbit
lib/App/cryp/arbit.pm view on Meta::CPAN
For example if you are arbitraging BTC against USD and IDR, and set this option
to 75, then orders will not be above 75 USD. If you are arbitraging LTC against
BTC and set this to 0.03 then orders will not be above 0.03 BTC.
Suggestion: If you set this option too high, a few orders can use up your
inventory (and you might not be getting optimal profit percentage). Also, large
orders can take a while (or too long) to fill. If you set this option too low,
you will hit the exchanges' minimum order size and no orders can be created.
Since we want smaller risk of orders not getting filled quickly, we want small
order sizes. The optimum number range a little above the exchanges' minimum
order size.
lib/App/cryp/arbit.pm view on Meta::CPAN
What are the minimum account balances.
=item * B<min_net_profit_margin> => I<float> (default: 0)
Minimum net profit margin that will trigger an arbitrage trading, in percentage.
Below this percentage number, no order pairs will be sent to the exchanges to do
the arbitrage. Note that the net profit margin already takes into account
trading fees and forex spread (see Glossary section for more details and
illustration).
Suggestion: If you set this option too high, there might not be any order pairs
possible. If you set this option too low, you will be getting too thin profits.
Run C<cryp-arbit opportunities> or C<cryp-arbit arbit --dry-run> for a while to
see what the average percentage is and then decide at which point you want to
perform arbitrage.
=item * B<quote_currencies> => I<array[fiat_or_cryptocurrency]>
The currencies to exchange (buyE<sol>sell) the target currencies.
lib/App/cryp/arbit.pm view on Meta::CPAN
For example if you are arbitraging BTC against USD and IDR, and set this option
to 75, then orders will not be above 75 USD. If you are arbitraging LTC against
BTC and set this to 0.03 then orders will not be above 0.03 BTC.
Suggestion: If you set this option too high, a few orders can use up your
inventory (and you might not be getting optimal profit percentage). Also, large
orders can take a while (or too long) to fill. If you set this option too low,
you will hit the exchanges' minimum order size and no orders can be created.
Since we want smaller risk of orders not getting filled quickly, we want small
order sizes. The optimum number range a little above the exchanges' minimum
order size.
lib/App/cryp/arbit.pm view on Meta::CPAN
What are the minimum account balances.
=item * B<min_net_profit_margin> => I<float> (default: 0)
Minimum net profit margin that will trigger an arbitrage trading, in percentage.
Below this percentage number, no order pairs will be sent to the exchanges to do
the arbitrage. Note that the net profit margin already takes into account
trading fees and forex spread (see Glossary section for more details and
illustration).
Suggestion: If you set this option too high, there might not be any order pairs
possible. If you set this option too low, you will be getting too thin profits.
Run C<cryp-arbit opportunities> or C<cryp-arbit arbit --dry-run> for a while to
see what the average percentage is and then decide at which point you want to
perform arbitrage.
=item * B<quote_currencies> => I<array[fiat_or_cryptocurrency]>
The currencies to exchange (buyE<sol>sell) the target currencies.
( run in 3.189 seconds using v1.01-cache-2.11-cpan-7fcb06a456a )