Use Class::XSAccessor

This commit is contained in:
Alessandro Ranellucci 2013-03-13 01:29:45 +01:00
parent cab51d4581
commit 0feef890b1
3 changed files with 21 additions and 1 deletions

View file

@ -991,7 +991,11 @@ END
};
# generate accessors
{
if (eval "use Class::XSAccessor; 1") {
Class::XSAccessor->import(
getters => { map { $_ => $_ } keys %$Options },
);
} else {
no strict 'refs';
for my $opt_key (keys %$Options) {
*{$opt_key} = sub { $_[0]{$opt_key} };