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


line stmt bran cond sub pod time code
1             package Statistics::R::REXP::Language;
2             # ABSTRACT: an R language vector
3             $Statistics::R::REXP::Language::VERSION = '1.0001';
4 16     16   16196 use 5.010;
  16         33  
5              
6 16     16   52 use Scalar::Util qw(blessed);
  16         16  
  16         587  
7              
8 16     16   484 use Class::Tiny::Antlers;
  16         4094  
  16         71  
9 16     16   1638 use namespace::clean;
  16         9428  
  16         58  
10              
11             extends 'Statistics::R::REXP::List';
12              
13 16     16   1896 use constant sexptype => 'LANGSXP';
  16         16  
  16         2260  
14              
15              
16             sub BUILD {
17 635     635 0 14376 my ($self, $args) = @_;
18              
19             # Required attribute type
20 635 100 66     8676 die 'The first element must be a Symbol or Language' if defined $self->elements &&
      66        
21             !(blessed $self->elements->[0] &&
22             ($self->elements->[0]->isa('Statistics::R::REXP::Language') ||
23             $self->elements->[0]->isa('Statistics::R::REXP::Symbol')))
24             }
25              
26             sub to_pl {
27 6     6 1 439 Statistics::R::REXP::Vector::to_pl(@_)
28             }
29              
30 38     38   71 sub _type { 'language' };
31              
32              
33             1; # End of Statistics::R::REXP::Language
34              
35             __END__