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