view release on metacpan or search on metacpan
lib/Game/Xomb.pm view on Meta::CPAN
=item B<distance>
Pythagorean distance between two cells, with rounding. Will differ in
some cases from the Chebyshev distance that the B<linecb> and B<walkcb>
line functions use for an iterations count.
=item B<does_hit>
Whether or not the given weapon hits at the given B<distance>, and
what the cost of that move was. The cost will be higher if the target
view all matches for this distribution
view release on metacpan or search on metacpan
inc/cpSpace.xsh view on Meta::CPAN
int
cpSpaceGetIterations( space )
cpSpace *space
void
cpSpaceSetIterations( space, iterations )
cpSpace *space
int iterations
cpVect
cpSpaceGetGravity( space )
cpSpace *space
view all matches for this distribution
view release on metacpan or search on metacpan
t/patterns.txt view on Meta::CPAN
1|2|2|4|5|6|7|1|3|10|7|12:immaterially|
1|2|2|4|5|6|7|1|3|2:innovation|
1|2|2|4|5|6|7|1|3|2|11:innovations|
1|2|2|4|5|6|7|1|4|10:immaturity|innovative|
1|2|2|4|5|6|7|1|4|3|11|12:alliteration|
1|2|2|4|5|6|7|1|4|3|11|12|13:alliterations|
1|2|2|4|5|6|7|1|4|3|11|5:alliterative|
1|2|2|4|5|6|7|1|5|10|11|4:accentuation|
1|2|2|4|5|6|7|1|5|10|4|12:accentuating|
1|2|2|4|5|6|7|1|5|2|11:accountancy|
1|2|2|4|5|6|7|1|5|3:accentuate|
t/patterns.txt view on Meta::CPAN
1|2|3|4|5|2|1|8|4|10|11|12|13|10:thoughtfulness|
1|2|3|4|5|2|1|8|4|10|7|12:thoughtfully|
1|2|3|4|5|2|1|8|5:reinserts|
1|2|3|4|5|2|1|8|6|1|11|12|4:impermissible|
1|2|3|4|5|2|1|8|9:devotedly|indemnify|indemnity|insomniac|iterating|iteration|tabulated|tabulates|tabulator|
1|2|3|4|5|2|1|8|9|10:iterations|recovering|tabulating|tabulation|tabulators|
1|2|3|4|5|2|1|8|9|10|11:tabulations|
1|2|3|4|5|2|1|8|9|10|11|5:remuneration|
1|2|3|4|5|2|1|8|9|10|2:recoverable|
1|2|3|4|5|2|1|8|9|10|8:thoughtless|
1|2|3|4|5|2|1|8|9|10|8|12|7|8|8:thoughtlessness|
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Games/Dissociate.pm view on Meta::CPAN
characters as the group size.
-wNUMBER
Run a by-word dissociation with that number of
words as the group size.
-mNUMBER
Specifies how many iterations the dissociator loop should make.
";
}
my $o;
my $max;
lib/Games/Dissociate.pm view on Meta::CPAN
characters) instead. A value of -1 is invalid, and currently causes
C<dissociate> to use the value of -2 (2 words) instead. The
behavior/validity of $group_size values of 0, 1, or -1 may change in
future versions.
$max is a parameter used to control the maximum number of iterations
of C<dissociate>'s central loop -- it corresponds roughly to the
number of "chunks" of text you get back, where a chunk is N *
-$group_size words for negative values of $group_size, and N *
$group_size characters for positive values of $group_size. $max must
be greater than 1.
view all matches for this distribution
view release on metacpan or search on metacpan
bin/bayrate.pl view on Meta::CPAN
my $collection = Games::Go::AGA::BayRate::Collection->new(
iter_hook => \&iter_hook,
tournamentDate => $tournamentDate,
strict_compliance => $strict_compliance, # match original bayrate C++ code exactly
#f_iterations => 50,
#fdf_iterations => 50,
);
# enter all the players who were in a game
my %players_by_id;
foreach my $id (sort { $a <=> $b } keys %player_seeds_by_id) {
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Games/LMSolve/Base.pm view on Meta::CPAN
=head2 $self->solve_board($file_spec, %args)
Solves the board specification specified in $file_spec. %args specifies
optional arguments. Currently there is one: 'max_iters' that specifies the
maximal iterations to run.
Returns whatever run_scan returns.
=head2 $self->run_scan(%args)
Continues the current scan. %args may contain the 'max_iters' parameter
to specify a maximal iterations limit.
Returns two values. The first is a progress indicator. "solved" means the
puzzle was solved. "unsolved" means that all the states were covered and
the puzzle was proven to be unsolvable. "interrupted" means that the
scan was interrupted in the middle, and could be proved to be either
lib/Games/LMSolve/Base.pm view on Meta::CPAN
The second argument is the final state and is valid only if the progress
value is "solved".
=head2 $self->get_num_iters()
Retrieves the current number of iterations.
=head2 $self->display_solution($progress_code, $final_state)
If you input this message with the return value of run_scan() you'll get
a nice output of the moves to stdout.
view all matches for this distribution
view release on metacpan or search on metacpan
process() is next called on the object.
=item Delayed-action modifiers
A persistent modifier, either one that is timed or not, can be set up such
that it does not take effect for a given number of iterations through the
C<process()> method. This is done via the I<-delay> option, as in this example:
$obj->mod_attr(-name => "health",
-modify => -5,
-incremental => 1,
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Games/Perlwar/Shell.pm view on Meta::CPAN
});
### run
$shell->add_commands({
run => {
desc => 'run iterations of the game',
proc => \&do_run,
}
});
### exec, info
view all matches for this distribution
view release on metacpan or search on metacpan
$ dzil test # to run the tests
$ dzil run ./bin/prisk # to run the game from local checkout
$ dzil run bash # to examine what built dist will look like
This takes quite some time, but you will be sure to run against what
would be released to CPAN. For quicker iterations, you can run directly:
$ ./bin/prisk
Note however that some windows will fail (such as the about box,
and maybe others): indeed, they would need some information added
by dist-zilla.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Games/Roguelike/Caves.pm view on Meta::CPAN
#use cellular automata to carve out a decent cave
#initially contain 45% walls at random
#a tile becomes or remains a wall if the 3x3 region centered on it contains at least 5 walls.
#use 1 to represent wall, 0 is space
sub generate_cave{
my ($w, $h, $iterations, $percentWalls, $wall, $floor) = @_;
die 'dimensions?' unless ($w and $h);
$iterations ||= 12;
$percentWalls ||= .45;
$percentWalls /= 100 if $percentWalls>1; # in case it's .45 or something
$wall = ' ' unless defined $wall;
$floor = '.' unless defined $floor;
lib/Games/Roguelike/Caves.pm view on Meta::CPAN
for my $x (0..$w-1){
for my $y (0..$h-1){
$terrain[$y][$x] = rand()<$percentWalls ? 1 : 0;
}
}
for (1..$iterations){
for my $x (0..$w-1){
for my $y (0..$h-1){
if ( !$x or !$y or $x==$w-1 or $y==$h-1){
#we're at edge: be wall.
$nextStep[$y][$x] = 1;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Games/ScottAdams/Manual.pod view on Meta::CPAN
=head2 %version
%version 416
Specifies the version of this adventure. Looks like Adams went
through 416 design iterations before he got I<Adventureland> into a
state he was happy to release.
=head2 %wordlen
%wordlen 3
view all matches for this distribution
view release on metacpan or search on metacpan
examples/benchmark.pl view on Meta::CPAN
if ( $ARGV[0] =~ m{\A-h|--help\z} )
{
print <<'EOF';
summarize-fc-solve [Game Params] -- [Extra fc-solve Args]
Display the solution status, the iterations count and the solution length
of the Freecell Solver invocation specified by the arguments. Also verifies
that the solution is true.
The [Game Params] flags (e.g: -g , --freecells-num, --stacks-num, etc.) are also
used to determine the variant used by the solution verifier.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Games/Sudoku/General.pm view on Meta::CPAN
sub _constrain {
my ( $self ) = @_;
my $stack = $self->{backtrack_stack} ||= []; # May hit this
# when initializing.
my $used = $self->{constraints_used} ||= {};
my $iterations;
$iterations = $self->{iteration_limit}
if $self->{iteration_limit} > 0;
$self->{no_more_solutions} and
return $self->_unload (undef, SUDOKU_NO_SOLUTION);
lib/Games/Sudoku/General.pm view on Meta::CPAN
# ? constraint - initiate backtracking.
sub _constraint_backtrack {
my ( $self ) = @_;
## --$iterations >= 0 or return $self->_unload ('', SUDOKU_TOO_HARD)
## if defined $iterations;
my @try;
my $syms = @{$self->{symbol_list}};
foreach my $cell (@{$self->{cell}}) {
next if $cell->{content};
next unless @{$cell->{membership}};
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Games/Word/Wordlist/Enable.pm view on Meta::CPAN
allergens allergic allergies allergin allergins allergist allergists allergy
allethrin allethrins alleviate alleviated alleviates alleviating alleviation
alleviations alleviator alleviators alley alleys alleyway alleyways allheal
allheals alliable alliaceous alliance alliances allicin allicins allied allies
alligator alligators alliterate alliterated alliterates alliterating
alliteration alliterations alliterative alliteratively allium alliums
alloantibodies alloantibody alloantigen alloantigens allobar allobars
allocable allocatable allocate allocated allocates allocating allocation
allocations allocator allocators allocution allocutions allod allodia allodial
allodium allods allogamies allogamous allogamy allogeneic allogenic allograft
allografted allografting allografts allograph allographic allographs
lib/Games/Word/Wordlist/Enable.pm view on Meta::CPAN
italicizations italicize italicized italicizes italicizing italics itch itched
itches itchier itchiest itchily itchiness itchinesses itching itchings itchy
item itemed iteming itemise itemised itemises itemising itemization
itemizations itemize itemized itemizer itemizers itemizes itemizing items
iterance iterances iterant iterate iterated iterates iterating iteration
iterations iterative iteratively iterum ither ithyphallic itinerancies
itinerancy itinerant itinerantly itinerants itineraries itinerary itinerate
itinerated itinerates itinerating itineration itinerations its itself
ivermectin ivermectins ivied ivies ivories ivory ivorybill ivorybills ivy
ivylike iwis ixia ixias ixodid ixodids ixora ixoras ixtle ixtles izar izars
izzard izzards jab jabbed jabber jabbered jabberer jabberers jabbering jabbers
lib/Games/Word/Wordlist/Enable.pm view on Meta::CPAN
litany litas litchi litchis lite liter literacies literacy literal literalism
literalisms literalist literalistic literalists literalities literality
literalization literalizations literalize literalized literalizes literalizing
literally literalness literalnesses literals literarily literariness
literarinesses literary literate literately literateness literatenesses
literates literati literatim literation literations literator literators
literature literatures literatus liters litharge litharges lithe lithely
lithemia lithemias lithemic litheness lithenesses lither lithesome lithest
lithia lithias lithiases lithiasis lithic lithification lithifications
lithified lithifies lithify lithifying lithium lithiums litho lithoed
lithograph lithographed lithographer lithographers lithographic
lib/Games/Word/Wordlist/Enable.pm view on Meta::CPAN
obligates obligati obligating obligation obligations obligato obligatorily
obligatory obligatos oblige obliged obligee obligees obliger obligers obliges
obliging obligingly obligingness obligingnesses obligor obligors oblique
obliqued obliquely obliqueness obliquenesses obliques obliquing obliquities
obliquity obliterate obliterated obliterates obliterating obliteration
obliterations obliterative obliterator obliterators oblivion oblivions
oblivious obliviously obliviousness obliviousnesses oblong oblongly oblongs
obloquies obloquy obnoxious obnoxiously obnoxiousness obnoxiousnesses
obnubilate obnubilated obnubilates obnubilating obnubilation obnubilations
oboe oboes oboist oboists obol obole oboles oboli obols obolus obovate obovoid
obscene obscenely obscener obscenest obscenities obscenity obscurant
lib/Games/Word/Wordlist/Enable.pm view on Meta::CPAN
reinvestigates reinvestigating reinvestigation reinvestigations reinvesting
reinvestment reinvestments reinvests reinvigorate reinvigorated reinvigorates
reinvigorating reinvigoration reinvigorations reinvigorator reinvigorators
reinvite reinvited reinvites reinviting reinvoke reinvoked reinvokes
reinvoking reis reissue reissued reissuer reissuers reissues reissuing reitbok
reitboks reiterate reiterated reiterates reiterating reiteration reiterations
reiterative reiteratively reive reived reiver reivers reives reiving rejacket
rejacketed rejacketing rejackets reject rejected rejectee rejectees rejecter
rejecters rejecting rejectingly rejection rejections rejective rejector
rejectors rejects rejigger rejiggered rejiggering rejiggers rejoice rejoiced
rejoicer rejoicers rejoices rejoicing rejoicingly rejoicings rejoin rejoinder
lib/Games/Word/Wordlist/Enable.pm view on Meta::CPAN
transitively transitiveness transitivenesses transitivities transitivity
transitorily transitoriness transitorinesses transitory transits
translatabilities translatability translatable translate translated translates
translating translation translational translations translative translator
translators translatory transliterate transliterated transliterates
transliterating transliteration transliterations translocate translocated
translocates translocating translocation translocations translucence
translucences translucencies translucency translucent translucently
transmarine transmembrane transmigrate transmigrated transmigrates
transmigrating transmigration transmigrations transmigrator transmigrators
transmigratory transmissibilities transmissibility transmissible transmission
view all matches for this distribution
view release on metacpan or search on metacpan
scripts/Gin/Calibrate/GcodeGenerator.pm view on Meta::CPAN
return \@gcode;
}
sub waggle {
my ($self, $directions, $distance, $iterations) = @_;
my @gcode = ();
for(my $i = 0; $i < $iterations; $i++) {
foreach my $direction (1, -1) {
my $moves = {
'X' => 0,
'Y' => 0,
'Z' => 0,
view all matches for this distribution
view release on metacpan or search on metacpan
t/lib_for_test_class/Test/GenOO/Data/Structure/DoubleHashArray.pm view on Meta::CPAN
sub foreach_entry_do : Test(3) {
my ($self) = @_;
can_ok $self->obj, 'foreach_entry_do';
my $iterations = 0;
$self->obj->foreach_entry_do(sub{
my ($arg) = @_;
$iterations++ if ($arg =~ /^\d+$/);
});
is $iterations, $self->obj->entries_count, "... and should do the correct number of iterations";
$iterations = 0;
$self->obj->foreach_entry_do(sub{
my ($arg) = @_;
$iterations++ if ($arg =~ /^\d+$/);
return 'break_loop' if ($iterations == 3)
});
is $iterations, 3, "... and should break when requested";
}
sub foreach_entry_on_secondary_key_do : Test(2) {
my ($self) = @_;
can_ok $self->obj, 'foreach_entry_on_secondary_key_do';
my $iterations = 0;
$self->obj->foreach_entry_on_secondary_key_do('chr3', sub{
my ($arg) = @_;
if ($arg =~ /^\d+$/) {
$iterations++;
}
});
is $iterations, 3, "... and should do the correct number of iterations";
}
sub add_entry : Test(2) {
my ($self) = @_;
view all matches for this distribution
view release on metacpan or search on metacpan
mock 'Data::Reuse::fixate' => sub { $fixate_calls++; $real_fixate->(@_) };
my @results = $obj->search(last => 'Nonexistent');
is(scalar @results, 0, 'PS-6: empty list returned');
is($fixate_calls, 0, 'PS-6: fixate=0 proves loop body never ran (0 iterations)');
restore_all();
};
# -----------------------------------------------------------------------
view all matches for this distribution
view release on metacpan or search on metacpan
t/03_value.t view on Meta::CPAN
$o->open or die $o->error;
@header_things = $o->fetch_header;
$ret_val = undef;
my $temp_max_i = 300; # temporary number of iterations (ensure we don't end up in endless loop if anything goes wrong)
my $i;
while ( my $ret = $o->fetch ) {
# we are testing with callbacks, so not much to do here
# as we add more tests, set the last to be when we have the latest one to test, i.e. will probably zones_target
# last if $device_info_got;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Geo/GDAL.dox view on Meta::CPAN
# @param progress_data [optional]
# @return
## @ignore FillNodata
## @method FillNoData($mask, $max_search_dist, $smoothing_iterations, $options, coderef progress, $progress_data)
# Interpolate values for cells in this raster. The cells to fill
# should be marked in the mask band with zero.
#
# @param mask [optional] a mask band indicating cells to be interpolated (zero valued) (default is to get it with Geo::GDAL::Band::GetMaskBand).
# @param max_search_dist [optional] the maximum number of cells to
# search in all directions to find values to interpolate from (default is 10).
# @param smoothing_iterations [optional] the number of 3x3 smoothing filter passes to run (0 or more) (default is 0).
# @param options [optional] A reference to a hash. No options have been defined so far for this algorithm (default is {}).
# @param progress [optional] a reference to a subroutine, which will
# be called with parameters (number progress, string msg, progress_data) (default is undef).
# @param progress_data [optional] (default is undef).
#
view all matches for this distribution
view release on metacpan or search on metacpan
src/mapbox/earcut.hpp view on Meta::CPAN
Node* stop = ear;
Node* prev;
Node* next;
int iterations = 0;
// iterate through ears, slicing them one by one
while (ear->prev != ear->next) {
iterations++;
prev = ear->prev;
next = ear->next;
if (hashing ? isEarHashed(ear) : isEar(ear)) {
// cut off the triangle
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Geo/HelmertTransform.pm view on Meta::CPAN
my $niter = 0;
do {
$lat = $lat2;
$v = $datum->a() / sqrt(1 - $datum->e2() * sin($lat) ** 2);
$lat2 = atan2(($z + $datum->e2() * $v * sin($lat)), $p);
die "exceeded 10000 iterations without converging in Geo::HelmertTransform::xyz_to_geo"
if (++$niter > 10000);
} while (abs($lat2 - $lat) > 2e-6); # about 1/10000 mile
$h = $p / cos($lat) - $v;
view all matches for this distribution
view release on metacpan or search on metacpan
author/benchmark.pl view on Meta::CPAN
ok 7 - size
1..7
ok 16 - XM488276746051234
------------------------------------------------------------
Creates zone object from geohex:
Benchmark: timing 30000 iterations of pp, xs...
pp: 21 wallclock secs (21.49 usr + 0.09 sys = 21.58 CPU) @ 1390.18/s (n=30000)
xs: 2 wallclock secs ( 1.84 usr + 0.01 sys = 1.85 CPU) @ 16216.22/s (n=30000)
Rate pp xs
pp 1390/s -- -91%
xs 16216/s 1066% --
------------------------------------------------------------
------------------------------------------------------------
Creates zone object from latlng:
Benchmark: timing 30000 iterations of pp, xs...
pp: 23 wallclock secs (22.65 usr + 0.11 sys = 22.76 CPU) @ 1318.10/s (n=30000)
xs: 2 wallclock secs ( 1.98 usr + 0.01 sys = 1.99 CPU) @ 15075.38/s (n=30000)
Rate pp xs
pp 1318/s -- -91%
xs 15075/s 1044% --
------------------------------------------------------------
------------------------------------------------------------
Converts latlng to geohex:
Benchmark: timing 60000 iterations of pp, xs...
Write failed: Broken pipe
pp: 46 wallclock secs (45.80 usr + 0.20 sys = 46.00 CPU) @ 1304.35/s (n=60000)
xs: 2 wallclock secs ( 1.17 usr + 0.00 sys = 1.17 CPU) @ 51282.05/s (n=60000)
Rate pp xs
pp 1304/s -- -97%
xs 51282/s 3832% --
------------------------------------------------------------
------------------------------------------------------------
Converts geohex to latlng:
Benchmark: timing 60000 iterations of pp, xs...
pp: 43 wallclock secs (42.95 usr + 0.19 sys = 43.14 CPU) @ 1390.82/s (n=60000)
xs: 1 wallclock secs ( 1.38 usr + 0.01 sys = 1.39 CPU) @ 43165.47/s (n=60000)
Rate pp xs
pp 1391/s -- -97%
xs 43165/s 3004% --
view all matches for this distribution
view release on metacpan or search on metacpan
examples/benchmark.pl view on Meta::CPAN
&$_code();
$t1 = Time::HiRes::time();
$count++;
} until ($t1 >= $t_end );
my $duration = $t1 - $t0;
print "$count iterations over $duration seconds, ".($count/$duration)." iterations per second\n";
return [ $count, $duration ];
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Geo/MedianCenter/XS.pm view on Meta::CPAN
Computes the median center of a list of points. Options are C<points>,
an array of arrays of latitude and longitude in decimal degrees and
optionally a weight; C<tolerance>, a number in meters, if the iterative
algorithm improves its approximation by at most this value, the function
will return; C<max_iterations>, the function will return after this
many attempts to refine the approximation. Returns the latitude and
longitude in decimal degrees.
=item haversine_distance_dec($lat1, $lon1, $lat2, $long2)
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Geo/Raster/Image.pm view on Meta::CPAN
# Intelligence. 12(6). 541-551. (Same as in GRASS but done in a bit
# different, and more generic way, I believe).
#
# The thinning algorithm defines a set of structuring templates and
# applies them in several passes until there are no matches or until the
# maxiterations is reached. Trimming means certain structuring templates
# are applied to kill emerging short limbs which appear because of the
# noise in the raster.
#
# Exple of thinning:
# @code
lib/Geo/Raster/Image.pm view on Meta::CPAN
# - <I>algorithm</I> => character (optional). By default "B", the other option
# is "A".
# - <I>trimming</I> => binary (optional). By default 0, the other option is 1.
# Trimming removes artificial branches which grow on the side of wide lines in
# thinnning, but it also shortens a bit the real branches.
# - <I>maxiterations</I> => integer (optional). By default 0 (no maximum, will
# iterate until no cells are deleted).
# - <I>width</I> => double (optional). Used to define the maximum iterations
# count. In case the width is given then the maxiterations is set to
# int(width/2).
# @return a new raster. In void context changes this raster.
# @note The thinned raster must be a binary raster.
sub thin {
my($self, %opt) = @_;
lib/Geo/Raster/Image.pm view on Meta::CPAN
my @trimmer = (\@G1,\@G2,\@G3,\@G4,\@G5,\@G6,\@G7,\@G8);
my $algorithm = $opt{algorithm};
$algorithm = 'B' unless $algorithm;
my $trimming = $opt{trimming};
$trimming = 0 unless $trimming;
my $maxiterations = $opt{maxiterations};
$maxiterations = 0 unless $maxiterations;
my $width = $opt{width};
$maxiterations = int($width/2) if $width;
my @thinner;
if ($algorithm eq 'B') {
if ($trimming) {
@thinner = (\@D1,\@D2,\@E1,@trimmer,
\@D2,\@D3,\@E2,@trimmer,
lib/Geo/Raster/Image.pm view on Meta::CPAN
$M = $m;
foreach (@thinner) {
$m += ral_grid_applytempl($self->{GRID}, $_, 0);
print STDERR "#" unless $opt{quiet};
}
print STDERR " thinning, pass $i/$maxiterations: deleted ", $m-$M, " cells\n" unless $opt{quiet};
$i++;
} while ($m > $M and !($maxiterations > 0 and $i > $maxiterations));
return $self if defined wantarray;
}
## @method Geo::Raster borders(%params)
#
view all matches for this distribution
view release on metacpan or search on metacpan
maxmind-db/perltidyrc view on Meta::CPAN
--blank-lines-before-packages=0
--iterations=2
--no-outdent-long-comments
-b
-bar
-boc
-ci=4
view all matches for this distribution
view release on metacpan or search on metacpan
Revision history for Perl extension Getopt-EX-Config
1.0202 2026-02-17T09:19:40Z
- Fix set() bug: $c was not reset between iterations, causing
second and subsequent dot-notation keys to fail
- Document nested hash configuration and dot notation
* Dot notation access (e.g., hashed.h3=1) for nested hashes
* Getopt::Long hash type (%) for module private options
view all matches for this distribution
view release on metacpan or search on metacpan
GETOPTLONG.md view on Meta::CPAN
[ output | o : # Specify output file ]=/dev/stdout
[ mode | m ? # Operation mode (optional) ]=
[ include | i @ # Include path (multiple ok) ]=()
[ define | D % # Definition (KEY=VALUE) ]=()
[ execute | x ! # Execute command ]=my_execute_function
[ count | N : =i # Number of iterations (int) ]=1
[ ratio | r : =f # Ratio (float) ]=0.5
[ id | K : =(^[a-z0-9_]+$) # ID (alphanum & _) ]=default_id
)
```
GETOPTLONG.md view on Meta::CPAN
#### 4.4.1. Integer Validation (`=i`)
Validates if the argument is an integer.
* **Definition Example:** `[count|c:COUNT=i # Number of iterations]` (assuming COUNT is the destination variable) or `[count|c:=i # Number of iterations]` (if using default variable name).
* **Behavior:** If the argument is not an integer, an error message is displayed, and the script exits (default behavior, if `EXIT_ON_ERROR=1`).
* Applicable to array options (`@...=i`) and the value part of hash options (`%...=i`).
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Getopt/Long/Descriptive.pm view on Meta::CPAN
#pod
#pod In addition, any constraint understood by Params::Validate may be used.
#pod
#pod For example, to accept positive integers:
#pod
#pod [ 'max-iterations=i', "maximum number of iterations",
#pod { callbacks => { positive => sub { shift() > 0 } } } ],
#pod
#pod (Internally, all constraints are translated into Params::Validate options or
#pod callbacks.)
#pod
lib/Getopt/Long/Descriptive.pm view on Meta::CPAN
In addition, any constraint understood by Params::Validate may be used.
For example, to accept positive integers:
[ 'max-iterations=i', "maximum number of iterations",
{ callbacks => { positive => sub { shift() > 0 } } } ],
(Internally, all constraints are translated into Params::Validate options or
callbacks.)
view all matches for this distribution
view release on metacpan or search on metacpan
xt/perltidyrc view on Meta::CPAN
# break before all operators
--want-break-before="% + - * / x != == >= <= =~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x="
# run at least twice to improve stability
--iterations=2
view all matches for this distribution