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


my($x, $y);

cmpthese(
  50_000, {
  cMethods => sub {
    my $c = CMethods->new;
    for (1..100) {
      $x = $c->x; $y = $c->y;
    }
  },
  PerlMethods => sub {
    my $c = PerlMethods->new;
    for (1..100) {
      $x = $c->x; $y = $c->y;
    }
  },
});