File Coverage

blib/lib/Statistics/R/REXP/Integer.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	7	8	87.5
condition	2	6	33.3
subroutine	9	9	100.0
pod	0	2	0.0
total	47	54	87.0

package Statistics::R::REXP::Integer;
# ABSTRACT: an R integer vector
$Statistics::R::REXP::Integer::VERSION = '1.0';
use 5.010;

use Scalar::Util qw(looks_like_number);

use Class::Tiny::Antlers;
use namespace::clean;

extends 'Statistics::R::REXP::Vector';
use overload;


use constant sexptype => 'INTSXP';

sub _type { 'integer'; }


sub BUILDARGS {
    my $class = shift;
    my $attributes = $class->SUPER::BUILDARGS(@_);

    if (ref($attributes->{elements}) eq 'ARRAY') {
        $attributes->{elements} = [
            map { looks_like_number($_) ? int($_ + ($_ <=> 0) * 0.5) : undef }
                Statistics::R::REXP::Vector::_flatten(@{$attributes->{elements}})
        ]
    }
    $attributes
}


sub BUILD {
    my ($self, $args) = @_;

    # Required attribute type
    die "Elements of the 'elements' attribute must be integers" if defined $self->elements &&
        grep { defined($_) && !(looks_like_number($_) && int($_) == $_) } @{$self->elements}
}


1; # End of Statistics::R::REXP::Integer

__END__