File Coverage

blib/lib/Evo/Class/Attrs/XS.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	2	4	50.0
condition			n/a
subroutine	4	4	100.0
pod	0	2	0.0
total	19	23	82.6

package Evo::Class::Attrs::XS;
use Evo 'XSLoader; -Export';

use constant {ECA_OPTIONAL => 0, ECA_DEFAULT => 1, ECA_DEFAULT_CODE => 2, ECA_REQUIRED => 3,
  ECA_LAZY => 4,};

export qw(
  ECA_OPTIONAL ECA_DEFAULT ECA_DEFAULT_CODE ECA_REQUIRED ECA_LAZY
);

our $VERSION = '0.0405';    # VERSION

# to be able to run with and without dzil
my $version = eval '$VERSION';    ## no critic
$version
  ? XSLoader::load("Evo::Class::Attrs::XS", $version)
  : XSLoader::load("Evo::Class::Attrs::XS");

sub new { bless [], shift }

sub gen_attr ($self, %opts) {
  $self->_gen_attr(@opts{qw(name type value check ro inject method)});
}

1;

# ABSTRACT: XS implementation of attributes and "new" method generator

__END__