File Coverage

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

Criterion	Covered	Total	%
statement	22	26	84.6
branch	2	4	50.0
condition			n/a
subroutine	5	7	71.4
pod	0	4	0.0
total	29	41	70.7

package Language::P::Toy::Value::List;

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

__PACKAGE__->mk_ro_accessors( qw() );

sub type { 8 }

sub assign {
    my( $self, $other ) = @_;

    # FIXME optimize: don't do it unless necessary
    my $oiter = $other->clone( 1 )->iterator;
    for( my $iter = $self->iterator; $iter->next; ) {
        $iter->item->assign_iterator( $oiter );
    }
}

sub push {
    my( $self, @values ) = @_;

    foreach my $value ( @values ) {
        if( $value->isa( 'Language::P::Toy::Value::Array' ) ) {
            for( my $it = $value->iterator; $it->next; ) {
                push @{$self->{array}}, $it->item;
            }
        } else {
            push @{$self->{array}}, $value;
        }
    }

    return;
}

sub as_scalar {
    my( $self ) = @_;

    return @{$self->{array}} ? $self->{array}[-1]->as_scalar :
                               # FIXME real undef
                               Language::P::Toy::Value::StringNumber->new;
}

1;