File: 1m_stmts.pl

package info (click to toggle)

libdevel-nytprof-perl 6.14%2Bdfsg-1

file content (7 lines) | stat: -rw-r--r-- 134 bytes

# execute 1 million iterations of a 3 statement + condition loop
my $i = shift || 1_000_000;
while (--$i) {
    1;
    ++$a;
    1;
}