NAME
Benchmark - Benchmark running time of Perl 6 code
SYNOPSIS
#!/usr/bin/pugs
use v6;
use Benchmark;
@t = timeit($count, 'code');
@t = timeit($count, { 1 + 1 });
timethese($count, { hyper => { my @r = @a >>+<< @b },
normal => {
my @r = gather {
take(@a[$_] + @b[$_]) for 0..@a.end;
}
}
});
TODO
many
AUTHOR
Chia-liang Kao, <clkao@clkao.org>
COPYRIGHT
Copyright (c) 2005. Chia-liang Kao. All rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
See http://www.perl.com/perl/misc/Artistic.html