Result:
found more than 650 distributions - search limited to the first 2001 files matching your query
( run in 3.154 )
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.
App-cryp-exchange
view release on metacpan or search on metacpan
}
},
"runtime" : {
"requires" : {
"Data::Sah::Coerce::perl::To_float::From_str::num_en" : "0",
"Data::Sah::Coerce::perl::To_float::From_str::percent" : "0",
"Data::Sah::Coerce::perl::To_str::From_str::normalize_cryptoexchange_account" : "0",
"Data::Sah::Compiler::perl::TH::bool" : "0",
"Data::Sah::Compiler::perl::TH::float" : "0",
"Data::Sah::Compiler::perl::TH::str" : "0",
"DateTime::Format::ISO8601" : "0",
App-diceware
view release on metacpan or search on metacpan
share/wordlist_en.tsv view on Meta::CPAN
44233 pension
44234 pentagon
44235 pentagram
44236 pep
44241 perceive
44242 percent
44243 perch
44244 percolate
44245 perennial
44246 perfected
44251 perfectly
App-dnsq
view release on metacpan or search on metacpan
IMPROVEMENTS.md view on Meta::CPAN
#### Cache Statistics
- Enhanced statistics tracking:
- Hit count and miss count
- Cache size and max size
- Hit rate percentage
- Eviction count
- Integrated with resolver statistics
### Configuration Options
New cache-related configuration options:
App-financeta
view release on metacpan or search on metacpan
lib/App/financeta/gui/progress_bar.pm view on Meta::CPAN
return $bar;
}
sub update {
my ($self, $val) = @_;
## is percentage
if (defined $val and ($val > 0 and $val < 1)) {
$self->bar->{-progress} = ($val * $self->bar_width);
} elsif (defined $val) {#is absolute
$self->bar->{-progress} = $val;
} else {
App-finddo
view release on metacpan or search on metacpan
script/finddo 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') {
# $nf //= do {
# require Number::Format;
App-freqtable
view release on metacpan or search on metacpan
[NEW FEATURES]
- Add option --format for custom formatting.
- The --percent option can noew be specified more than once to display
frequency as integers as well as percentages.
[INCOMPATIBLE CHANGES]
- Replace --freq with --rank (-r).
0.009 2025-07-24 Released-By: PERLANCAR; Urgency: medium
- Add options: --print-total (-t), --no-print-total (-T),
--clear-before-output, --output-every.
- [bugfix] Fix percent formatting.
0.008 2023-12-28 Released-By: PERLANCAR; Urgency: medium
- Add option: --percent (-p).
0.007 2022-05-20 Released-By: PERLANCAR; Urgency: medium
- [ux] Add -a as shortcut for --sort=asciibetically.
App-genpw-base56
view release on metacpan or search on metacpan
script/genpw-base56 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-genpw-base58
view release on metacpan or search on metacpan
script/genpw-base58 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-genpw-base64
view release on metacpan or search on metacpan
script/genpw-base64 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-genpw-id
view release on metacpan or search on metacpan
lib/App/genpw/id.pm view on Meta::CPAN
%s Random ASCII symbol, e.g. "-" (dash), "_" (underscore), etc.
%x Random letter/digit/ASCII symbol (combination of %a and %s)
%m Base64 character (A-Z, a-z, 0-9, +, /)
%b Base58 character (A-Z, a-z, 0-9 minus IOl0)
%B Base56 character (A-Z, a-z, 0-9 minus IOol01)
%% A literal percent sign
%w Random word
=item * B<wordlists> => I<array[str]>
Select one or more wordlist modules.
App-genpw-ind
view release on metacpan or search on metacpan
lib/App/genpw/ind.pm view on Meta::CPAN
%s Random ASCII symbol, e.g. "-" (dash), "_" (underscore), etc.
%x Random letter/digit/ASCII symbol (combination of %a and %s)
%m Base64 character (A-Z, a-z, 0-9, +, /)
%b Base58 character (A-Z, a-z, 0-9 minus IOl0)
%B Base56 character (A-Z, a-z, 0-9 minus IOol01)
%% A literal percent sign
%w Random word
=item * B<wordlists> => I<array[str]>
Select one or more wordlist modules.
App-genpw-wordlist
view release on metacpan or search on metacpan
lib/App/genpw/wordlist.pm view on Meta::CPAN
%s Random ASCII symbol, e.g. "-" (dash), "_" (underscore), etc.
%x Random letter/digit/ASCII symbol (combination of %a and %s)
%m Base64 character (A-Z, a-z, 0-9, +, /)
%b Base58 character (A-Z, a-z, 0-9 minus IOl0)
%B Base56 character (A-Z, a-z, 0-9 minus IOol01)
%% A literal percent sign
%w Random word. Known arguments:
- "stdin:" (for getting the words from stdin, the default)
- "wordlist:NAME" (for getting the words from a L<WordList> module)
- "arraydata:NAME" (for getting the words from an L<ArrayData> module, the
Role::TinyCommons::Collection::PickItems::RandomPos will be applied).
App-genpw
view release on metacpan or search on metacpan
lib/App/genpw.pm view on Meta::CPAN
%s Random ASCII symbol, e.g. "-" (dash), "_" (underscore), etc.
%x Random letter/digit/ASCII symbol (combination of %a and %s)
%m Base64 character (A-Z, a-z, 0-9, +, /)
%b Base58 character (A-Z, a-z, 0-9 minus IOl0)
%B Base56 character (A-Z, a-z, 0-9 minus IOol01)
%% A literal percent sign
%w Random word. Known arguments:
- "stdin:" (for getting the words from stdin, the default)
- "wordlist:NAME" (for getting the words from a <pm:WordList> module)
- "arraydata:NAME" (for getting the words from an <pm:ArrayData> module, the
Role::TinyCommons::Collection::PickItems::RandomPos will be applied).
lib/App/genpw.pm view on Meta::CPAN
%s Random ASCII symbol, e.g. "-" (dash), "_" (underscore), etc.
%x Random letter/digit/ASCII symbol (combination of %a and %s)
%m Base64 character (A-Z, a-z, 0-9, +, /)
%b Base58 character (A-Z, a-z, 0-9 minus IOl0)
%B Base56 character (A-Z, a-z, 0-9 minus IOol01)
%% A literal percent sign
%w Random word. Known arguments:
- "stdin:" (for getting the words from stdin, the default)
- "wordlist:NAME" (for getting the words from a L<WordList> module)
- "arraydata:NAME" (for getting the words from an L<ArrayData> module, the
Role::TinyCommons::Collection::PickItems::RandomPos will be applied).
App-genusername
view release on metacpan or search on metacpan
lib/App/genusername.pm view on Meta::CPAN
%s Random ASCII symbol, e.g. "-" (dash), "_" (underscore), etc.
%x Random letter/digit/ASCII symbol (combination of %a and %s)
%m Base64 character (A-Z, a-z, 0-9, +, /)
%b Base58 character (A-Z, a-z, 0-9 minus IOl0)
%B Base56 character (A-Z, a-z, 0-9 minus IOol01)
%% A literal percent sign
%w Random word. Known arguments:
- "stdin:" (for getting the words from stdin, the default)
- "wordlist:NAME" (for getting the words from a L<WordList> module)
- "arraydata:NAME" (for getting the words from an L<ArrayData> module, the
Role::TinyCommons::Collection::PickItems::RandomPos will be applied).
App-get_flash_videos
view release on metacpan or search on metacpan
lib/FlashVideo/Downloader.pm view on Meta::CPAN
return if $self->quiet;
my $progress_text;
if ($self->{content_length}) {
my $percent = int(
($self->{downloaded} / $self->{content_length}) * 100
);
if ($percent != $self->{percent} || time != $self->{last_time}) {
my $downloaded_kib = _bytes_to_kib($self->{downloaded});
my $total_kib = _bytes_to_kib($self->{content_length});
$progress_text = ": $percent% ($downloaded_kib / $total_kib KiB)";
$self->{last_time} = time;
$self->{percent} = $percent;
}
} else {
# Handle lame servers that don't tell us how big the file is
my $data_transferred = _bytes_to_kib($self->{downloaded});
if ($data_transferred != $self->{data_transferred}) {
App-gimpgitbuild
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-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-jsonvalidate
view release on metacpan or search on metacpan
--trace-limit N
Max number of trace entries per validation (0 = unlimited).
--trace-sample P
Sampling percentage for trace events.
--unique-keys / --no-unique-keys
Enables the non-standard extension "uniqueKeys"
EXIT CODES
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-mdee
view release on metacpan or search on metacpan
lib/App/mdee.pm view on Meta::CPAN
The color specification supports modifiers:
=over 4
=item * C<+y10> / C<-y10>: Adjust luminance by percentage
=item * C<=y50>: Set absolute luminance
=item * C<D>: Bold, C<U>: Underline, C<E>: Erase line
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.
( run in 3.154 seconds using v1.01-cache-2.11-cpan-6fb7bf0f510 )