#! perl -slw
use strict;
use Data::Dumper;

sub get_pp { $_[0]->{X}; }
use Class::XSAccessor getters => { get_xs => 'X' };

{
	my $o   = bless { X=>1 }, 'main';
	my $ref = \($o->get_pp);
	$$ref++;
	print Dumper($o);
}

{
	my $o   = bless { X=>1 }, 'main';
	my $ref = \($o->get_xs);
	$$ref++;
	print Dumper($o);
}