File Coverage

blib/lib/Statistics/R/REXP/EmptyEnvironment.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

package Statistics::R::REXP::EmptyEnvironment;
# ABSTRACT: the empty R environment (C)
$Statistics::R::REXP::EmptyEnvironment::VERSION = '1.0';
use 5.010;

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

extends 'Statistics::R::REXP::Environment';


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

    # Required attribute type
    die 'Empty environment has no attributes' if defined $self->attributes;
    die 'Nothing can be assigned to the empty environment' if exists $args->{frame};
    die 'Empty environment has no enclosure' if defined $self->enclosure;
}


sub name {
    'R_EmptyEnv'
}


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

__END__