File Coverage

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

Criterion	Covered	Total	%
statement	29	29	100.0
branch	7	8	87.5
condition	1	3	33.3
subroutine	9	9	100.0
pod	0	2	0.0
total	46	51	90.2

package Statistics::R::REXP::Double;
# ABSTRACT: an R numeric vector
$Statistics::R::REXP::Double::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 => 'REALSXP';

sub _type { 'double'; }


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

    if (ref($attributes->{elements}) eq 'ARRAY') {
        $attributes->{elements} = [
            map { looks_like_number($_) ? $_ : 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 numbers or undef" if defined($self->elements) &&
        grep { defined($_) && !looks_like_number($_) } @{$self->elements}
}


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

__END__