view release on metacpan or search on metacpan
demo/1m_stmts.pl view on Meta::CPAN
# execute 1 million iterations of a 3 statement + condition loop
my $i = shift || 1_000_000;
while (--$i) {
1;
++$a;
1;
view release on metacpan or search on metacpan
lib/Devel/SizeMe/Graph/static/jit-yc.js view on Meta::CPAN
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
THE SOFTWARE.
*/
(function(){window.$jit=function(x){x=x||window;for(var y in $jit){if($jit[y].$extend){x[y]=$jit[y]}}};$jit.version="2.0.1";var c=function(w){return document.getElementById(w)};c.empty=function(){};c.extend=function(y,w){for(var x in (w||{})){y[x]=w...
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
-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/301_report_slowops.t view on Meta::CPAN
use Devel::StatProfiler -file => $profile_file, -interval => 1000;
my ($l1);
for (my $count = precision_factor == 1 ? 10000 : 20000; ; $count *= 2) {
my $start = time;
note("Trying with $count iterations");
t::lib::Slowops::foo($count);
-d '.' && $LONG_STR =~ s/ $// for 1..$count; BEGIN { $l1 = __LINE__ + 0 }
last if time - $start >= 0.5;
}
view release on metacpan or search on metacpan
lib/Devel/WxProf/Treemap/Output/Imager.pm view on Meta::CPAN
# guess.
if (( $metrix[2] <= $width ) && ( $metrix[3] > $height )) {
# if there is a major difference in height, correct guess
if (( abs( $height - $metrix[3] ) / $height ) * $size >= 3 )
{
$self->{font_iters}++; $local_iters++; # track iterations
$self->{TEXT_DEBUG} && print STDERR "\tHeight restricted, changing $size =>";
$size = int( $size * ( $height / $metrix[3] ));
$self->{TEXT_DEBUG} && print STDERR "$size.\n";
lib/Devel/WxProf/Treemap/Output/Imager.pm view on Meta::CPAN
# 2. if our guess is way off width-wise, correct:
# if a correction would yeild a size change of more than 3,
# it is obviously worth it.
elsif ( ( abs( $width - $metrix[2] ) / $width ) * $size >= 3 )
{
$self->{font_iters}++; $local_iters++; # track iterations
$self->{TEXT_DEBUG} && print STDERR "\tOff by 3pts+, changing $size =>";
$size = int( $size * ( $width / $metrix[2] ));
$self->{TEXT_DEBUG} && print STDERR "$size.\n";
@metrix = $self->{FONT}->bounding_box(
string => $text,
lib/Devel/WxProf/Treemap/Output/Imager.pm view on Meta::CPAN
# if our guess was too large, try smaller values until there is a fit:
if (( $metrix[2] > $width ) || ( $metrix[3] > $height )) {
$self->{TEXT_DEBUG} && print STDERR "\tGuess ($size) too large.\n";
while ( ( $metrix[2] > $width ) || ( $metrix[3] > $height ) )
{
$self->{font_iters}++; $local_iters++; # track iterations
$size--;
return if ( $size < 5 );
@metrix = $self->{FONT}->bounding_box(
lib/Devel/WxProf/Treemap/Output/Imager.pm view on Meta::CPAN
# if our guess is too small, try larger values until there is a -no- fit:
elsif ( ( $metrix[2] <= $width ) && ( $metrix[3] <= $height )) {
$self->{TEXT_DEBUG} && print STDERR "\tGuess ($size) fits, adjusting.\n";
while ( ( $metrix[2] <= $width ) && ( $metrix[3] <= $height ) )
{
$self->{font_iters}++; $local_iters++; # track iterations
$size++;
$size++ if ( $size > 50 ); # grow a bit faster for big fonts
@metrix = $self->{FONT}->bounding_box(
view release on metacpan or search on metacpan
t/47-zombie-coverage-closure.t view on Meta::CPAN
=head1 WHEN TO USE
Use this focused regression while changing collector child-reaping behavior,
forced worker shutdown, or the runtime helper command detection code. It is
meant for narrow zombie-fix iterations where the broader runtime suites would
add unnecessary setup noise.
=head1 HOW TO USE
Run it directly while iterating on collector zombie handling or runtime helper
view release on metacpan or search on metacpan
lib/DhMakePerl/Command/make.pm view on Meta::CPAN
return $found ? 1 : 0;
}
sub reset_git_environment {
# The Git environment variables may be set from previous iterations
# of this program being run. In this case, it's possible that the
# Git module will use these to point to the wrong source tree.
delete $ENV{'GIT_DIR'};
delete $ENV{'GIT_WORK_TREE'};
}
view release on metacpan or search on metacpan
dcdb-query.perl view on Meta::CPAN
our %save = (format=>undef);
our $outfmt = 'text'; ##-- output format: 'text' or 'json'
our $pretty = 1;
our $dotime = 1; ##-- report timing?
our $niters = 1; ##-- number of benchmark iterations
##----------------------------------------------------------------------
## Command-line processing
##----------------------------------------------------------------------
GetOptions(##-- general
dcdb-query.perl view on Meta::CPAN
'pretty|p!' => \$pretty,
'ugly!' => sub {$pretty=!$_[1]},
'null|noout' => sub {$outfmt=''},
'score-format|sf|format|fmt=s' => \$save{format},
'timing|times|time|T!' => \$dotime,
'bench|n-iterations|iterations|iters|i=i' => \$niters,
);
if ($version) {
print STDERR "$prog version $DiaColloDB::VERSION by Bryan Jurish\n";
exit 0 if ($version);
dcdb-query.perl view on Meta::CPAN
#($rel,@query{qw(slice groupby query)}) = ('ddc',0,'l','"*=2 Mansch" #fmin 1'); ##-- missing {schön,ganz,",d} from list-client (was cutoff=>0, fixed with cutoff=>'' in Client::list)
}
##--/DEBUG queries
if ($niters != 1) {
$cli->info("performing $niters query iterations");
}
my $timer = DiaColloDB::Timer->start();
foreach my $iter (1..$niters) {
my $mp = $cli->query($rel, %query)
or die("$prog: query() failed for relation '$rel', query '$query{query}'".($isDiff ? " - '$query{bquery}'" : '').": $cli->{error}");
dcdb-query.perl view on Meta::CPAN
General Options:
-help # display a brief usage summary
-version # display program version
-[no]time # do/don't report operation timing (default=do)
-iters NITERS # benchmark NITERS iterations of query
Query Options:
-col, -ug, -ddc, -tdf # select profile type (collocations, unigrams, ddc client, tdf matrix; default=-col)
-(a|b)?date DATES # set target DATE or /REGEX/ or MIN-MAX
-(a|b)?slice SLICE # set target date slice (default=1)
dcdb-query.perl view on Meta::CPAN
Do/don't report operation timing (default=do).
=item -iters NITERS
Benchmark NITERS iterations of query (default=1).
=back
=cut
view release on metacpan or search on metacpan
ex/benchmark.pl view on Meta::CPAN
use Digest::Shabal ();
use Digest::Skein ();
use Digest::Whirlpool ();
my %opts = (
iterations => -1,
size => 1, # kB
);
GetOptions(\%opts, 'iterations|i=i', 'size|s=f',);
my $data = '01234567' x (128 * $opts{size});
my %digests = (
blake_224 => sub { Digest::BLAKE::blake_224($data) },
view release on metacpan or search on metacpan
ex/benchmark.pl view on Meta::CPAN
use Digest::Shabal ();
use Digest::Skein ();
use Digest::Whirlpool ();
my %opts = (
iterations => -1,
size => 1, # kB
);
GetOptions(\%opts, 'iterations|i=i', 'size|s=f',);
my $data = '01234567' x (128 * $opts{size});
my %digests = (
blake_224 => sub { Digest::BLAKE::blake_224($data) },
view release on metacpan or search on metacpan
ex/benchmark.pl view on Meta::CPAN
use Digest::Shabal ();
use Digest::Skein ();
use Digest::Whirlpool ();
my %opts = (
iterations => -1,
size => 1, # kB
);
GetOptions(\%opts, 'iterations|i=i', 'size|s=f',);
my $data = '01234567' x (128 * $opts{size});
my %digests = (
blake_224 => sub { Digest::BLAKE::blake_224($data) },
view release on metacpan or search on metacpan
ex/benchmark.pl view on Meta::CPAN
use Digest::Shabal ();
use Digest::Skein ();
use Digest::Whirlpool ();
my %opts = (
iterations => -1,
size => 1, # kB
);
GetOptions(\%opts, 'iterations|i=i', 'size|s=f',);
my $data = '01234567' x (128 * $opts{size});
my %digests = (
blake_224 => sub { Digest::BLAKE::blake_224($data) },
view release on metacpan or search on metacpan
ex/benchmark.pl view on Meta::CPAN
use Digest::Shabal ();
use Digest::Skein ();
use Digest::Whirlpool ();
my %opts = (
iterations => -1,
size => 1, # kB
);
GetOptions(\%opts, 'iterations|i=i', 'size|s=f',);
my $data = '01234567' x (128 * $opts{size});
my %digests = (
blake_224 => sub { Digest::BLAKE::blake_224($data) },
view release on metacpan or search on metacpan
ex/benchmark.pl view on Meta::CPAN
use Digest::Shabal ();
use Digest::Skein ();
use Digest::Whirlpool ();
my %opts = (
iterations => -1,
size => 1, # kB
);
GetOptions(\%opts, 'iterations|i=i', 'size|s=f',);
my $data = '01234567' x (128 * $opts{size});
my %digests = (
blake_224 => sub { Digest::BLAKE::blake_224($data) },
view release on metacpan or search on metacpan
ex/benchmark.pl view on Meta::CPAN
use Digest::Shabal ();
use Digest::Skein ();
use Digest::Whirlpool ();
my %opts = (
iterations => -1,
size => 1, # kB
);
GetOptions(\%opts, 'iterations|i=i', 'size|s=f',);
my $data = '01234567' x (128 * $opts{size});
my %digests = (
blake_224 => sub { Digest::BLAKE::blake_224($data) },
view release on metacpan or search on metacpan
ex/benchmark.pl view on Meta::CPAN
use Digest::Shabal ();
use Digest::Skein ();
use Digest::Whirlpool ();
my %opts = (
iterations => -1,
size => 1, # kB
);
GetOptions(\%opts, 'iterations|i=i', 'size|s=f',);
my $data = '01234567' x (128 * $opts{size});
my %digests = (
blake_224 => sub { Digest::BLAKE::blake_224($data) },
view release on metacpan or search on metacpan
ex/benchmark.pl view on Meta::CPAN
use Digest::Shabal ();
use Digest::Skein ();
use Digest::Whirlpool ();
my %opts = (
iterations => -1,
size => 1, # kB
);
GetOptions(\%opts, 'iterations|i=i', 'size|s=f',);
my $data = '01234567' x (128 * $opts{size});
my %digests = (
blake_224 => sub { Digest::BLAKE::blake_224($data) },
view release on metacpan or search on metacpan
ex/benchmark.pl view on Meta::CPAN
use Digest::Shabal ();
use Digest::Skein ();
use Digest::Whirlpool ();
my %opts = (
iterations => -1,
size => 1, # kB
);
GetOptions(\%opts, 'iterations|i=i', 'size|s=f',);
my $data = '01234567' x (128 * $opts{size});
my %digests = (
blake_224 => sub { Digest::BLAKE::blake_224($data) },
view release on metacpan or search on metacpan
examples/oo_vs_func.pl view on Meta::CPAN
sub new { bless { key => 'val' }, shift }
sub do_foo { $_[0] ? $Test::oo++ : $Test::ff++ }
__DATA__
Benchmark: timing 10000000 iterations of Function, Import, OO...
Function: 8 wallclock secs ( 7.99 usr + 0.00 sys = 7.99 CPU) @ 1251251.25/s (n=10000000)
Import: 12 wallclock secs (12.72 usr + 0.00 sys = 12.72 CPU) @ 786225.33/s (n=10000000)
OO: 9 wallclock secs ( 9.33 usr + 0.00 sys = 9.33 CPU) @ 1071352.05/s (n=10000000)
OO 10000000
view release on metacpan or search on metacpan
ex/benchmark.pl view on Meta::CPAN
use Digest::Shabal ();
use Digest::Skein ();
use Digest::Whirlpool ();
my %opts = (
iterations => -1,
size => 1, # kB
);
GetOptions(\%opts, 'iterations|i=i', 'size|s=f',);
my $data = '01234567' x (128 * $opts{size});
my %digests = (
blake_224 => sub { Digest::BLAKE::blake_224($data) },
view release on metacpan or search on metacpan
ex/benchmark.pl view on Meta::CPAN
use Digest::Shabal ();
use Digest::Skein ();
use Digest::Whirlpool ();
my %opts = (
iterations => -1,
size => 1, # kB
);
GetOptions(\%opts, 'iterations|i=i', 'size|s=f',);
my $data = '01234567' x (128 * $opts{size});
my %digests = (
blake_224 => sub { Digest::BLAKE::blake_224($data) },
view release on metacpan or search on metacpan
// the bitvector where we'll start xoring
size_t vectorArrayIndex = pqx->shiftSoFar / 64;
// the position within the bit vector at which we begin xoring
int vectorOffset = pqx->shiftSoFar % 64;
size_t iterations = addSize > pqx->kWidthInBits ? pqx->kWidthInBits : addSize;
for (size_t i = 0; i < iterations; ++i) {
size_t nextCell = vectorArrayIndex + 1;
int bitsInVectorCell = 64;
if (nextCell == pqx->kDataLength) {
nextCell = 0;
if (pqx->kWidthInBits % 64 > 0) {
view release on metacpan or search on metacpan
ex/benchmark.pl view on Meta::CPAN
use Digest::Shabal ();
use Digest::Skein ();
use Digest::Whirlpool ();
my %opts = (
iterations => -1,
size => 1, # kB
);
GetOptions(\%opts, 'iterations|i=i', 'size|s=f',);
my $data = '01234567' x (128 * $opts{size});
my %digests = (
blake_224 => sub { Digest::BLAKE::blake_224($data) },
view release on metacpan or search on metacpan
ex/benchmark.pl view on Meta::CPAN
use Digest::Shabal ();
use Digest::Skein ();
use Digest::Whirlpool ();
my %opts = (
iterations => -1,
size => 1, # kB
);
GetOptions(\%opts, 'iterations|i=i', 'size|s=f',);
my $data = '01234567' x (128 * $opts{size});
my %digests = (
blake_224 => sub { Digest::BLAKE::blake_224($data) },
view release on metacpan or search on metacpan
ex/benchmark.pl view on Meta::CPAN
use Digest::Shabal ();
use Digest::Skein ();
use Digest::Whirlpool ();
my %opts = (
iterations => -1,
size => 1, # kB
);
GetOptions(\%opts, 'iterations|i=i', 'size|s=f',);
my $data = '01234567' x (128 * $opts{size});
my %digests = (
blake_224 => sub { Digest::BLAKE::blake_224($data) },
view release on metacpan or search on metacpan
digest-benchmark view on Meta::CPAN
use strict;
use Benchmark qw/ cmpthese /;
use Getopt::Long qw/ GetOptions :config no_ignore_case /;
my %opts = (
iterations => 100, # number of iterations
size => 0.5, # data size in MB
);
GetOptions( \%opts, 'iterations|i=i', 'size|s=f', );
my $data = "abcdefghij" x ( $opts{size} * 100_000 );
use Digest ();
use Digest::Skein ();
digest-benchmark view on Meta::CPAN
# pre-load everything just in case
$_->() for values %algo;
# run the benchmark
cmpthese( $opts{iterations}, \%algo, );
# vim: ts=4 sw=4 noet
view release on metacpan or search on metacpan
src/SpookyV2.h view on Meta::CPAN
// with probability 50 +- .3%
// For every pair of input bits,
// with probability 50 +- 3%
//
// This does not rely on the last Mix() call having already mixed some.
// Two iterations was almost good enough for a 64-bit result, but a
// 128-bit result is reported, so End() does three iterations.
//
static INLINE void EndPartial(
uint64 &h0, uint64 &h1, uint64 &h2, uint64 &h3,
uint64 &h4, uint64 &h5, uint64 &h6, uint64 &h7,
uint64 &h8, uint64 &h9, uint64 &h10,uint64 &h11)
view release on metacpan or search on metacpan
lib/Digest/ssdeep.pm view on Meta::CPAN
push @last7chars, $char;
$roll_h2 += 7 * $char - $roll_h1;
$roll_h1 += $char - $char7bf;
$roll_h3 <<= 5; # 5*7 = 35 (so it vanish after 7 iterations)
$roll_h3 &= 0xffffffff;
$roll_h3 ^= $char;
#printf("c=%d cAnt=%d H1=%u H2=%u H3=%u\n",
# $char, $char7bf,
view release on metacpan or search on metacpan
ext/xxHash/xxhsum.1.md view on Meta::CPAN
<BLOCKSIZE> specifies benchmark mode's test data block size in bytes.
Default value is 102400
* `-i`<ITERATIONS>:
Only useful for benchmark mode (`-b`). See [EXAMPLES](#EXAMPLES) for details.
<ITERATIONS> specifies number of iterations in benchmark. Single iteration
takes at least 2500 milliseconds. Default value is 3
EXIT STATUS
-----------