Select Code to Download

use strict;
use Carp;
...
for (1..5) { # to test whether changing $_[0] affects the literal
  eval { ro(-loop => 7); } or print $@;
}

V:\>perl -MO=Deparse -e "%a = (-foo => 1);"
(%a) = (-'foo', 1);
-e syntax OK

use strict;
use Benchmark;
...
Benchmark: timing 100000 iterations of wH, woH...
        wH:  1 wallclock secs ( 1.42 usr +  0.00 sys =  1.42 CPU) @ 70
+472.16/s (n=100000)
       woH:  3 wallclock secs ( 2.56 usr +  0.00 sys =  2.56 CPU) @ 39
+077.76/s (n=100000)

D:\>perl -MO=Deparse -e "print -'ahoj' => 1"
print '-ahoj', 1;
...
D:\>perl -MO=Deparse -e "print -ahoj => 1"
print -'ahoj', 1;
-e syntax OK