File Coverage

blib/lib/Repl/Core/Pair.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition	3	9	33.3
subroutine	5	5	100.0
pod	0	3	0.0
total	25	34	73.5

package Repl::Core::Pair;

# Pragma's.
use strict;

# Uses.
use Carp;

sub new
{
    my $invocant = shift;
    my %args = (@_);
    my $class = ref($invocant) || $invocant;

    # Initialize the token instance.
    my $self = {};
    $self->{LEFT} = $args{LEFT} || confess "A pair needs an lvalue.";
    $self->{RIGHT} = $args{RIGHT} || confess "A pair needs an rvalue.";

    return bless($self, $class);
}

sub getLeft
{
    my $self = shift;
    return $self->{LEFT};
}

sub getRight
{
    my $self = shift;
    return $self->{RIGHT};
}


1;