File Coverage

blib/lib/Class/MaybeXSAccessor.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	3	4	75.0
condition	1	2	50.0
subroutine	4	4	100.0
pod			n/a
total	32	34	94.1

package Class::MaybeXSAccessor;

our $DATE = '2016-05-04'; # DATE
our $VERSION = '0.001'; # VERSION

use 5.010001;
use strict 'subs', 'vars';
use warnings;

our $_target_spec;

sub import {
    my $pkg = shift;
    my $spec = shift;

    my $caller = caller();

    if (eval { require Class::XSAccessor; 1 }) {
        # XXX bad, bad implementation. we need to call _generate_method directly
        $_target_spec = {
            constructor => 'new',
            accessors => { map { $_ => $_ } @{ $spec->{accessors} // [] } },
        };
        eval "package $caller; Class::XSAccessor->import(\$Class::MaybeXSAccessor::_target_spec);";
        die if $@;
    } else {
        require Class::Accessor;
        push @{"$caller\::ISA"}, "Class::Accessor";
        $caller->_mk_accessors('rw', @{ $spec->{accessors} });
    }
}

1;
# ABSTRACT: Generate accessors/constructor

__END__