#! perl -slw
use strict;
use Benchmark qw[ cmpthese ];

our $o = bless { X=>1 }, 'main';

sub getX1{ my $self = shift; return $self->{X}; }
sub getX2{                   return $_[0]->{X}; }
sub getX3{                          $_[0]->{X}; }

use Class::XSAccessor getters => { getX4 => 'X' };

cmpthese -1, {
	A=> q[ my $x = $o->getX1(); ],
	B=> q[ my $x = $o->getX2(); ],
	C=> q[ my $x = $o->getX3(); ],
	D=> q[ my $x = $o->getX4(); ],
};

__END__
      Rate    A    B    C    D
A 251509/s   --  -6% -12% -64%
B 267957/s   7%   --  -7% -62%
C 286968/s  14%   7%   -- -59%
D 707950/s 181% 164% 147%   --