File Coverage

blib/lib/Class/XSAccessor/Compat.pm

Criterion	Covered	Total	%
statement	39	39	100.0
branch			n/a
condition			n/a
subroutine	11	11	100.0
pod	3	3	100.0
total	53	53	100.0

package Class::XSAccessor::Compat;
use 5.008;
use strict;
use warnings;
our $VERSION = '0.01';
use Class::XSAccessor;
use Class::Accessor::Fast;
our @ISA = qw(Class::Accessor::Fast);

# The following is almost 100% the same as Ruslan Zakirov's code:
sub make_ro_accessor {
  my($class, $field) = @_;

  my $sub = $class ."::__cxs_ro_". $field;
  # Do not copy this code. It's the only place where this internal function should be used:
  Class::XSAccessor::newxs_getter($sub, $field);

  no strict 'refs';
  return \&{$sub};
}

sub make_wo_accessor {
  my($class, $field) = @_;

  my $sub = $class ."::__cxs_wo_". $field;
  # Do not copy this code. It's the only place where this internal function should be used:
  Class::XSAccessor::_newxs_compat_setter($sub, $field);

  no strict 'refs';
  return \&{$sub};
}

sub make_accessor {
  my($class, $field) = @_;

  my $sub = $class ."::__cxs_ac_". $field;
  # Do not copy this code. It's the only place where this internal function should be used:
  Class::XSAccessor::_newxs_compat_accessor($sub, $field);

  no strict 'refs';
  return \&{$sub};
}




1;

__END__