view release on metacpan or search on metacpan
# return $ref->NEXTKEY(); # next
#}elsif($key =~ m/^ARRAY){
# return $ref->NEXTKEY(); # next
}else{
# per-container metadata does not
# appear in iterations through data.
return $ref->NEXTKEY(); # next
}
};
wantarray or return $key;
return @{[$key, $ref->FETCH($key)]};
view release on metacpan or search on metacpan
Storable.pm view on Meta::CPAN
# return $ref->NEXTKEY(); # next
#}elsif($key =~ m/^ARRAY){
# return $ref->NEXTKEY(); # next
}else{
# per-container metadata does not
# appear in iterations through data.
return $ref->NEXTKEY(); # next
}
};
wantarray or return $key;
return @{[$key, $ref->FETCH($key)]};
view release on metacpan or search on metacpan
# return $ref->NEXTKEY(); # next
#}elsif($key =~ m/^ARRAY){
# return $ref->NEXTKEY(); # next
}else{
# per-container metadata does not
# appear in iterations through data.
return $ref->NEXTKEY(); # next
}
};
wantarray or return $key;
return @{[$key, $ref->FETCH($key)]};
view release on metacpan or search on metacpan
t/integration/12-randfile.t view on Meta::CPAN
plan tests => 109;
# I run local tests of 512 or more to exhaust the chances entropy is causing
# tests to pass that might fail on client machines
# 20 should suffice for clients downloading from CPAN
my $loop_iterations = 20;
my $temp = Directory::Scratch->new;
ok( my $rfile = $temp->randfile, "randfile()" );
ok( length($rfile), "randfile() returned a string" );
ok( -e $rfile, "file exists" );
ok( unlink($rfile), "file unlink() succeeds" );
$rfile = undef;
sub test_iterations {
for my $i (1..$loop_iterations) {
ok( $rfile = $temp->randfile( 1024, 2048 ), "$i: randfile( 1024, 2048 )" );
my $size = -s $rfile;
ok( -e $rfile, " $i: File exists." );
cmp_ok( $size, '>=', 1024, " $i: size of file: $size > 1024" );
cmp_ok( $size, '<=', 2048, " $i: size of file: $size < 2048" );
}
}
test_iterations();
my $j = 1;
for ( my $i=1; $i<=1000000; $i *= 10 ) {
ok( my $file = $temp->randfile($j, $i), "randfile($j, $i)" );
my $size = -s $file;
view release on metacpan or search on metacpan
support/perltidyrc view on Meta::CPAN
# I/O control
--add-terminal-newline
--character-encoding=utf8
--iterations=2
--output-line-ending=unix
--perl-best-practices -nst -nse
# Basic formatting options
view release on metacpan or search on metacpan
-npro
-nsfs
--blank-lines-before-packages=0
--opening-hash-brace-right
--no-outdent-long-comments
--iterations=2
-wbb="% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x="
view release on metacpan or search on metacpan
-npro
-nsfs
--blank-lines-before-packages=0
--opening-hash-brace-right
--no-outdent-long-comments
--iterations=2
-wbb="% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x="
view release on metacpan or search on metacpan
t/lib/GitSetup.pm view on Meta::CPAN
last;
}
$dir = $dir->parent;
}
continue {
die "too many iterations when traversing $tempdir!"
if $count++ > 100;
}
ok(!$in_git, 'tempdir is not in a real git repository');
}
view release on metacpan or search on metacpan
t/lib/GitSetup.pm view on Meta::CPAN
last;
}
$dir = $dir->parent;
}
continue {
die "too many iterations when traversing $tempdir!"
if $count++ > 100;
}
ok(!$in_git, 'tempdir is not in a real git repository');
}
view release on metacpan or search on metacpan
t/lib/GitSetup.pm view on Meta::CPAN
last;
}
$dir = $dir->parent;
}
continue {
die "too many iterations when traversing $tempdir!"
if $count++ > 100;
}
ok(!$in_git, 'tempdir is not in a real git repository');
}
view release on metacpan or search on metacpan
lib/Deployer/Image/PNG.pm view on Meta::CPAN
required => 1
);
has 'iterations' => (
is => 'rw',
default => sub { 1 }
);
lib/Deployer/Image/PNG.pm view on Meta::CPAN
sub optimize {
my ($self) = @_;
for (my $i = 0; $i < $self->iterations; $i++) {
$self->quantize() if $self->use_quantization;
$self->optimize_lossless() if $self->use_lossless;
}
view release on metacpan or search on metacpan
-npro
-nsfs
--blank-lines-before-packages=0
--opening-hash-brace-right
--no-outdent-long-comments
--iterations=2
-wbb="% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x="
view release on metacpan or search on metacpan
-npro
-nsfs
--blank-lines-before-packages=0
--opening-hash-brace-right
--no-outdent-long-comments
--iterations=2
-wbb="% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x="
view release on metacpan or search on metacpan
2.10 2014-08-23 17:55:26Z
- fix pod error (thanks haarg!)
- generated test filename is now configurable
2.09 2014-08-23 08:40:01Z
- sort the arguments to kwalitee_ok, for smaller diffs between iterations
- now again running the generated test during tests, but without
attempting to capture its output cleverly
2.08 2014-08-16 04:56:06Z
- line numbers in shipped code are now almost the same (within 3) as
view release on metacpan or search on metacpan
-npro
-nsfs
--blank-lines-before-packages=0
--opening-hash-brace-right
--no-outdent-long-comments
--iterations=2
-wbb="% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x="
view release on metacpan or search on metacpan
-npro
-nsfs
--blank-lines-before-packages=0
--opening-hash-brace-right
--no-outdent-long-comments
--iterations=2
-wbb="% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x="
view release on metacpan or search on metacpan
-npro
-nsfs
--blank-lines-before-packages=0
--opening-hash-brace-right
--no-outdent-long-comments
--iterations=2
-wbb="% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x="
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/ATOOMIC/TidyAll.pm view on Meta::CPAN
-npro
-nsfs
--blank-lines-before-packages=0
--opening-hash-brace-right
--no-outdent-long-comments
--iterations=2
-wbb="% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x="
EOF
sub _perltidyrc {$perltidyrc}
view release on metacpan or search on metacpan
t/lib/Helper.pm view on Meta::CPAN
last;
}
$dir = $dir->parent;
}
continue {
die "too many iterations when traversing $dir!"
if $count++ > 100;
}
return $in_git;
}
view release on metacpan or search on metacpan
--blank-lines-before-packages=0
--iterations=2
--no-outdent-long-comments
-b
-bar
-boc
-ci=4
view release on metacpan or search on metacpan
share/common/.perltidyrc view on Meta::CPAN
# GENERAL
-w # Show all warnings
-se # Send all error messages to STDERR # default: OFF (-nse)
--converge # Try to converge in max 4 iterations
# Text file format
-utf8
-ole=unix # --output-line-ending=win|dos|unix|mac # default: <native OS>
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/DROLSKY/PerlLinterConfigFiles.pm view on Meta::CPAN
-npro
-nsfs
--blank-lines-before-packages=0
--opening-hash-brace-right
--no-outdent-long-comments
--iterations=2
-wbb="% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x="
EOF
sub _perltidyrc {$perltidyrc}
view release on metacpan or search on metacpan
t/lib/Helper.pm view on Meta::CPAN
last;
}
$dir = $dir->parent;
}
continue {
die "too many iterations when traversing $dir!"
if $count++ > 100;
}
return $in_git;
}
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/MAXMIND/TidyAll.pm view on Meta::CPAN
Dist::Zilla::Role::TextTemplate
);
my $perltidyrc = <<'EOF';
--blank-lines-before-packages=0
--iterations=2
--no-outdent-long-comments
-bar
-boc
-ci=4
-i=4
view release on metacpan or search on metacpan
share/specs/v1.28.yaml view on Meta::CPAN
Parallelism:
description: "Maximum number of tasks to be rolled back in one iteration (0 means unlimited parallelism)."
type: "integer"
format: "int64"
Delay:
description: "Amount of time between rollback iterations, in nanoseconds."
type: "integer"
format: "int64"
FailureAction:
description: "Action to take if an rolled back task fails to run, or stops running during the rollback."
type: "string"
view release on metacpan or search on metacpan
lib/Dotiac/DTL/Tag/for.pm view on Meta::CPAN
The current iteration of the loop, starting with 0.
=item forloop.revcounter
The remaining iterations, starting ending with 1.
=item forloop.revcounter0
The remaining iterations, starting ending with 0.
=item forloop.first
True if this iteration is the first one.
view release on metacpan or search on metacpan
lib/Doubly/Linked/PP.pm view on Meta::CPAN
cmpthese $r;
----
Benchmark: timing 2000000 iterations of Doubly, Doubly::Linked, Doubly::Linked::PP...
Doubly: 1.70335 wallclock secs ( 1.62 usr + 0.08 sys = 1.70 CPU) @ 1176470.59/s (n=2000000)
Doubly::Linked: 7.49174 wallclock secs ( 7.04 usr + 0.44 sys = 7.48 CPU) @ 267379.68/s (n=2000000)
Doubly::Linked::PP: 26.0622 wallclock secs (25.32 usr + 0.56 sys = 25.88 CPU) @ 77279.75/s (n=2000000)
Rate Doubly::Linked::PP Doubly::Linked Doubly
Doubly::Linked::PP 77280/s -- -71% -93%
view release on metacpan or search on metacpan
t/21-memory-leaks.t view on Meta::CPAN
plan tests => 6;
# Test 1: new() + destroy() should not grow memory
subtest 'new() + destroy() no memory growth' => sub {
plan tests => 1;
my $iterations = 100;
my $before = get_rss();
for (1..$iterations) {
my $list = Doubly::Linked->new();
$list->destroy();
}
my $after = get_rss();
my $growth = $after - $before;
ok($growth < 500, "Memory growth < 500KB after $iterations iterations (was ${growth}KB)");
};
# Test 2: new() + add() + destroy() should not grow memory
subtest 'new() + add(1) + destroy() no memory growth' => sub {
plan tests => 1;
my $iterations = 100;
my $before = get_rss();
for (1..$iterations) {
my $list = Doubly::Linked->new();
$list->add(1);
$list->destroy();
}
my $after = get_rss();
my $growth = $after - $before;
ok($growth < 500, "Memory growth < 500KB after $iterations iterations (was ${growth}KB)");
};
# Test 3: new() + add(1..10) + destroy() should not grow memory
subtest 'new() + add(1..10) + destroy() no memory growth' => sub {
plan tests => 1;
my $iterations = 100;
my $before = get_rss();
for (1..$iterations) {
my $list = Doubly::Linked->new();
$list->add(1..10);
$list->destroy();
}
my $after = get_rss();
my $growth = $after - $before;
ok($growth < 500, "Memory growth < 500KB after $iterations iterations (was ${growth}KB)");
};
# Test 4: Longer list should not leak more than short list
subtest 'destroy() breaks circular references regardless of list size' => sub {
plan tests => 1;
my $iterations = 50;
# Test with 100 items per list
my $before = get_rss();
for (1..$iterations) {
my $list = Doubly::Linked->new();
$list->add(1..100);
$list->destroy();
}
my $after = get_rss();
my $growth = $after - $before;
ok($growth < 1000, "Memory growth < 1000KB after $iterations iterations of 100-item lists (was ${growth}KB)");
};
# Test 5: remove operations + destroy should not leak
subtest 'remove operations + destroy() no memory growth' => sub {
plan tests => 1;
my $iterations = 100;
my $before = get_rss();
for (1..$iterations) {
my $list = Doubly::Linked->new();
$list->add(1..5);
$list->remove_from_start();
$list->remove_from_end();
$list->destroy();
}
my $after = get_rss();
my $growth = $after - $before;
ok($growth < 500, "Memory growth < 500KB after $iterations iterations (was ${growth}KB)");
};
# Test 6: insert operations + destroy should not leak
subtest 'insert operations + destroy() no memory growth' => sub {
plan tests => 1;
my $iterations = 100;
my $before = get_rss();
for (1..$iterations) {
my $list = Doubly::Linked->new();
$list->add(1..3);
$list->insert_at_start(0);
$list->insert_at_end(4);
$list->insert_at_pos(2, 1.5);
$list->destroy();
}
my $after = get_rss();
my $growth = $after - $before;
ok($growth < 500, "Memory growth < 500KB after $iterations iterations (was ${growth}KB)");
};
# Helper to get resident set size in KB
sub get_rss {
my $rss;
view release on metacpan or search on metacpan
lib/Doubly.pm view on Meta::CPAN
cmpthese $r;
Docker perl:5.38-threaded - Threaded environment (where only Doubly is truly safe):
Benchmark: timing 10000 iterations of Doubly, Doubly::Linked, Doubly::Linked::PP, Doubly::Pointer...
Doubly: 0.704658 wallclock secs ( 0.70 usr + 0.00 sys = 0.70 CPU) @ 14285.71/s (n=10000)
Doubly::Linked: 4.71918 wallclock secs ( 3.10 usr + 1.61 sys = 4.71 CPU) @ 2123.14/s (n=10000)
Doubly::Linked::PP: 12.1816 wallclock secs (10.76 usr + 1.39 sys = 12.15 CPU) @ 823.05/s (n=10000)
Doubly::Pointer: 0.778561 wallclock secs ( 0.77 usr + 0.00 sys = 0.77 CPU) @ 12987.01/s (n=10000)
Rate Doubly::Linked::PP Doubly::Linked Doubly::Pointer Doubly
lib/Doubly.pm view on Meta::CPAN
Doubly::Pointer 12987/s 1478% 512% -- -9%
Doubly 14286/s 1636% 573% 10% --
Docker perl:5.38 - None threaded environment:
Benchmark: timing 10000 iterations of Doubly, Doubly::Linked, Doubly::Linked::PP, Doubly::Pointer...
Doubly: 0.712633 wallclock secs ( 0.70 usr + 0.01 sys = 0.71 CPU) @ 14084.51/s (n=10000)
Doubly::Linked: 16.0794 wallclock secs ( 4.05 usr + 5.75 sys = 9.80 CPU) @ 1020.41/s (n=10000)
Doubly::Linked::PP: 13.0293 wallclock secs (11.73 usr + 1.27 sys = 13.00 CPU) @ 769.23/s (n=10000)
Doubly::Pointer: 0.775681 wallclock secs ( 0.77 usr + 0.00 sys = 0.77 CPU) @ 12987.01/s (n=10000)
Rate Doubly::Linked::PP Doubly::Linked Doubly::Pointer Doubly
view release on metacpan or search on metacpan
lib/Dreamhack/Solitaire/Medici.pm view on Meta::CPAN
our $VERSION = "0.01";
sub process {
my ($self, %args) = @_;
my $imax = (exists $args{'attempts'}) && ($args{'attempts'} =~ m/^[1-9]\d*$/) ? $args{'attempts'} : $self->_iterations(1+$#{$self->{'leftcards'}});
for my $i (1..$imax) {
my @layout = $self->add_rnd_layout();
my @save = @layout;
lib/Dreamhack/Solitaire/Medici.pm view on Meta::CPAN
return @work
}
return @work
}
sub _iterations {
my ($self, $cardscount) = @_;
my $imax = 0;
if ($cardscount <= 1) {
$imax = 1;