[p5sagit/Class-Accessor-Grouped.git] / t / accessors_xs.t

use strict;
use warnings;
use FindBin qw($Bin);
use File::Spec::Functions;
use Test::More;
use lib 't/lib';

use AccessorGroups ();
 
plan skip_all => 'Class::XSAccessor not available'
    unless Class::Accessor::Grouped::_hasXS();

require( catfile($Bin, 'accessors.t') );
Commit	Line	Data
9540f4e4	1	use strict;
	2	use warnings;
	3	use FindBin qw($Bin);
	4	use File::Spec::Functions;
	5	use Test::More;
	6	use lib 't/lib';
	7
8ef9b3ff	8	use AccessorGroups ();
9540f4e4	9
	10	plan skip_all => 'Class::XSAccessor not available'
	11	unless Class::Accessor::Grouped::_hasXS();
	12
8ef9b3ff	13	require( catfile($Bin, 'accessors.t') );