File Coverage

blib/lib/Repl/Core/CompositeContext.pm

Criterion	Covered	Total	%
statement	25	31	80.6
branch	3	8	37.5
condition	3	6	50.0
subroutine	7	9	77.7
pod	0	7	0.0
total	38	61	62.3

package Repl::Core::CompositeContext;

use strict;
use warnings;

sub new
{
    my ($invocant, $main, $backing) = @_;
    my $class = ref($invocant) || $invocant;

    # Initialize the token instance.
    my $self = {};
    $self->{MAIN} = $main;
    $self->{BACKING} = $backing;
    return bless($self, $class);
}

sub getBinding
{
    my ($self, $name) = @_;
    return $self->{MAIN}->getBinding($name) if($self->{MAIN}->isBound($name));
    return $self->{BACKING}->getBinding($name);
}

sub setBinding
{
    my ($self, $name, $value) = @_;
    my $main = $self->{MAIN};
    my $backing = $self->{BACKING};

    if($main->isBound($name))
    {
        $main->setBinding($name, $value);
    }
    elsif($backing->isBound($name))
    {
        $backing->setBinding($name, $value);
    }
    else
    {
        die sprintf("ERROR: There is no binding for '%s' in the context.", $name);
    }
}

sub defBinding
{
    my ($self, $name, $value) = @_;
    my $main = $self->{MAIN};
    $main->defBinding($name, $value);
}

sub isBound
{
    my ($self, $name) = @_;
    return $self->{MAIN}->isBound($name) || $self->{BACKING}->isBound($name);
}

sub removeBinding
{
    my ($self, $name) = @_;
    $self->{MAIN}->removeBinding($name) if($self->{MAIN}->isBound($name));
}

sub getRootContext
{
    my $self = shift;
    return $self->{BACKING}->getRootContext();
}

1;