File Coverage

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

Criterion	Covered	Total	%
statement	28	29	96.5
branch	6	6	100.0
condition	4	6	66.6
subroutine	8	9	88.8
pod	0	2	0.0
total	46	52	88.4

package Statistics::R::REXP::Raw;
# ABSTRACT: an R raw vector
$Statistics::R::REXP::Raw::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 => 'RAWSXP';

sub _type { 'raw'; }


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

    if (ref($attributes->{elements}) eq 'ARRAY') {
        $attributes->{elements} = [
            map int,
                Statistics::R::REXP::Vector::_flatten(@{$attributes->{elements}})
        ]
    }
    $attributes
}


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

    # Required attribute type
    die 'Raw vectors cannot have attributes' if defined $self->attributes;
    die 'Elements of raw vectors must be 0-255' if defined $self->elements &&
        grep { !($_ >= 0 && $_ <= 255) } @{$self->elements}
}


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

__END__