File Coverage

blib/lib/Object/Tiny/RW/XS.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	5	8	62.5
condition	3	6	50.0
subroutine	5	5	100.0
pod			n/a
total	33	39	84.6

package Object::Tiny::RW::XS;

use strict 'vars', 'subs';
BEGIN {
	require 5.004;
	$Object::Tiny::RW::XS::VERSION = '0.04';
}

sub import {
	return unless shift eq 'Object::Tiny::RW::XS';
	my $pkg   = caller;
	my $child = !! @{"${pkg}::ISA"};
	eval join "\n",
		"package $pkg;",
		($child ? () : "\@${pkg}::ISA = 'Object::Tiny::RW::XS';"),
			"use Class::XSAccessor accessors => {",
        (map {
            defined and ! ref and /^[^\W\d]\w*$/s
            or die "Invalid accessor name '$_'";
            "'$_' => '$_',"
        } @_),
			"};";
	die "Failed to generate $pkg" if $@;
	return 1;
}

use Class::XSAccessor
  constructor => 'new';

1;

__END__