File Coverage

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

Criterion	Covered	Total	%
statement	26	26	100.0
branch	9	10	90.0
condition	3	6	50.0
subroutine	8	8	100.0
pod	0	2	0.0
total	46	52	88.4

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

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

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


use constant sexptype => 'LGLSXP';

sub _type { 'logical'; }


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

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


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

__END__