use strict;
use warnings;
use Benchmark 'cmpthese';
use lib ('blib/lib', 'blib/arch');
use CMethods;
use PerlMethods;

my($x, $y);

cmpthese(
  200_000, {
  cMethods => sub {
    my $c = CMethods->new;
    $x = $c->x; $y = $c->y;
  },
  PerlMethods => sub {
    my $c = PerlMethods->new;
    $x = $c->x; $y = $c->y;
  },
});