1use strict; 2use warnings; 3use FindBin qw($Bin); 4use File::Spec::Functions; 5use Test::More; 6use lib 't/lib'; 7 8BEGIN { 9 # Enable XSAccessor check 10 $Class::Accessor::Grouped::hasXS = undef; 11 12 require AccessorGroups; 13} 14 15plan skip_all => 'Class::XSAccessor not available' 16 unless Class::Accessor::Grouped::_hasXS(); 17 18require( catfile($Bin, 'accessors.t') );