File Coverage

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

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition	4	6	66.6
subroutine	8	8	100.0
pod	1	2	50.0
total	33	36	91.6

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

use Scalar::Util qw(blessed);

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

extends 'Statistics::R::REXP::List';

use constant sexptype => 'LANGSXP';


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

    # Required attribute type
    die 'The first element must be a Symbol or Language' if defined $self->elements &&
        !(blessed $self->elements->[0] &&
              ($self->elements->[0]->isa('Statistics::R::REXP::Language') ||
               $self->elements->[0]->isa('Statistics::R::REXP::Symbol')))
}

sub to_pl {
    Statistics::R::REXP::Vector::to_pl(@_)
}

sub _type { 'language' };


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

__END__