File Coverage

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

Criterion	Covered	Total	%
statement	29	32	90.6
branch			n/a
condition	2	2	100.0
subroutine	9	12	75.0
pod	1	4	25.0
total	41	50	82.0

package Language::P::Toy::Value::Subroutine;

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

__PACKAGE__->mk_ro_accessors( qw(name) );

sub type { 6 }
sub is_subroutine { 1 }

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

    # for @_
    $self->{stack_size} ||= 1;

    return $self;
}

sub call {
    my( $self, $runtime, $pc, $context ) = @_;
    my $args = pop @{$runtime->{_stack}};

    $self->SUPER::call( $runtime, $pc, $context );

    my( $stack, $frame ) = ( $runtime->{_stack}, $runtime->{_frame} );

    $stack->[$frame - 3] = $args;
}

package Language::P::Toy::Value::Subroutine::Stub;

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

sub call { Carp::confess( "Called subroutine stub" ) }
sub is_defined { 0 }

1;