Select Code to Download

// hypothetical struct x
if (flag) {
  x->y->z->a->b[5]->q = 8;
  x->y->z->a->b[5]->r = 9;
}

if (flag) {
  t = x->y->z->a->b[5];
  t->q = 8;
  t->r = 9;
}

#!/usr/bin/perl

...
           my $prod = $common->{baz} * $common->{quux};
        },
    });

                     Rate without_common_g without_common with_common_
+g with_common
without_common_g 341880/s               --            -4%          -20
+%        -23%
without_common   357910/s               5%             --          -16
+%        -19%
with_common_g    428449/s              25%            20%            -
+-         -3%
with_common      443853/s              30%            24%            4
+%          --

$"=$,,$_=q>|\p4<6 8p<M/_|<('=>
.q>.<4-KI<l|2$<6%s!<qn#F<>;$,
.=pack'N*',"@{[unpack'C*',$_]
}"for split/</;$_=$,,y[A-Z a-z]
         {}cd;print lc