File Coverage

blib/lib/Language/P/Toy/Value/ScratchPad.pm

Criterion	Covered	Total	%
statement	35	37	94.5
branch	2	4	50.0
condition	6	8	75.0
subroutine	7	8	87.5
pod	1	4	25.0
total	51	61	83.6

package Language::P::Toy::Value::ScratchPad;

use strict;
use warnings;
use base qw(Language::P::Toy::Value::Any);

use Language::P::Toy::Value::StringNumber;

__PACKAGE__->mk_ro_accessors( qw(outer names values clear) );

sub new {
    my( $class, $args ) = @_;
    my $self = $class->SUPER::new( $args );

    $self->{values} ||= [];
    $self->{names} ||= {};
    $self->{clear} ||= [];

    return $self;
}

sub new_scope {
    my( $self, $outer_scope ) = @_;

    my $new = ref( $self )->new( { outer  => $outer_scope,
                                   values => [ @{$self->values} ],
                                   clear  => $self->clear,
                                   } );
    my $values = $new->values;
    foreach my $clear ( @{$new->{clear}} ) {
        # FIXME lexical initialization
        $values->[$clear] = Language::P::Toy::Value::StringNumber->new;
    }

    return $new;
}

sub add_value {
    my( $self, $lexical, $value ) = @_;

    # FIXME lexical initialization
    push @{$self->values}, @_ > 2 ? $value : Language::P::Toy::Value::StringNumber->new;
    $self->{names}{$lexical->symbol_name} ||= [];
    push @{$self->{names}{$lexical->symbol_name}}, $#{$self->values};

    return $#{$self->values};
}

sub is_empty { return $#{$_[0]->values} == -1 ? 1 : 0 }

1;