Help for this page

Select Code to Download


  1. or download this
    $ perl -MO=Concise,-exec -e'time()'
1  <0> enter
...
3  <0> time[t1] v                       <-- time operator
4  <@> leave[1 ref] vKP/REFC
-e syntax OK
  2. or download this
    $ perl -MO=Concise,-exec -e'BEGIN { *CORE::GLOBAL::time = sub {} } tim
+e()'
1  <0> enter
...
5  <1> entersub[t2] vKS/TARG,1          <-- sub invocation
6  <@> leave[1 ref] vKP/REFC
-e syntax OK
  3. or download this
    $ perl -MO=Concise,-exec -e'use subs qw( time ); time()'
1  <0> enter
...
5  <1> entersub[t2] vKS/TARG,1          <-- sub invocation
6  <@> leave[1 ref] vKP/REFC
-e syntax OK