File Coverage

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

Criterion	Covered	Total	%
statement	25	25	100.0
branch	3	4	75.0
condition	1	3	33.3
subroutine	8	8	100.0
pod	0	2	0.0
total	37	42	88.1

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

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

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


use constant sexptype => 'STRSXP';

sub _type { 'character'; }


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

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


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

    # Required attribute type
    die "Elements of the 'elements' attribute must be scalar values" if defined($self->elements) &&
        grep { ref($_) } @{$self->elements}
}


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

__END__