File Coverage

blib/lib/Statistics/R/REXP/BaseEnvironment.pm
Criterion Covered Total %
statement 13 13 100.0
branch 6 6 100.0
condition n/a
subroutine 5 5 100.0
pod 1 2 50.0
total 25 26 96.1


line stmt bran cond sub pod time code
1             package Statistics::R::REXP::BaseEnvironment;
2             # ABSTRACT: the base R environment (C)
3             $Statistics::R::REXP::BaseEnvironment::VERSION = '1.0';
4 12     12   16109 use 5.010;
  12         23  
5              
6 12     12   518 use Class::Tiny::Antlers;
  12         3887  
  12         58  
7 12     12   1363 use namespace::clean;
  12         9415  
  12         44  
8              
9             extends 'Statistics::R::REXP::Environment';
10              
11              
12             sub BUILD {
13 18     18 0 159 my ($self, $args) = @_;
14              
15             # Required attribute type
16 18 100       250 die 'Base environment has implicit attributes' if defined $self->attributes;
17 17 100       102 die 'Nothing can be assigned to the base environment' if exists $args->{frame};
18 16 100       240 die 'Base environment has an implicit enclosure' if defined $self->enclosure;
19             }
20              
21             sub name {
22 1     1 1 4 'R_BaseEnv'
23             }
24              
25              
26             1; # End of Statistics::R::REXP::BaseEnvironment
27              
28             __END__