Select Code to Download

use strict;
use warnings;
...
    $x = $c->x; $y = $c->y;
  },
});

                Rate PerlMethods    cMethods
PerlMethods 111297/s          --        -17%
...
                Rate PerlMethods    cMethods
PerlMethods 108460/s          --        -22%
cMethods    139179/s         28%          --

use strict;
use warnings;
...
    }
  },
});

              Rate PerlMethods    cMethods
PerlMethods 2933/s          --        -44%
...
              Rate PerlMethods    cMethods
PerlMethods 2949/s          --        -44%
cMethods    5246/s         78%          --

package PerlMethods;
use strict;
...
}

1;

package CMethods;
use strict;
...


1;

#include "EXTERN.h"
#include "perl.h"
...
      EXTEND(SP, 1);
      PUSHs(y ? *y : &PL_sv_undef);