view release on metacpan or  search on metacpan

lib/Acme/Perl/VM/Context.pm  view on Meta::CPAN

}

sub ITERVAR(){ undef }

no Mouse;
__PACKAGE__->meta->make_immutable();

package Acme::Perl::VM::Context::FOREACH;
use Mouse;
use Acme::Perl::VM::B qw(USE_ITHREADS);
extends 'Acme::Perl::VM::Context::LOOP';

has padvar => (
    is  => 'rw',
    isa => 'Bool',

    required => 1,
);
has for_def => (
    is => 'rw',
    isa => 'Bool',

    required => 1,
);

has iterdata => (
    is  => 'rw',
    isa => 'Defined',

    required => 1,
);
if(USE_ITHREADS){
    has oldcomppad => (
        is  => 'rw',
        isa => 'B::AV',
    );
}

has itersave => (
    is => 'rw',
);
has iterlval => (
    is  => 'rw',
);
has iterary => (
    is  => 'rw',
);
has iterix => (
    is  => 'rw',
    isa => 'Int',
);
has itermax => (
    is  => 'rw',
    isa => 'Int',
);

sub type(){ 'LOOP' } # this is a LOOP

sub BUILD{
    my($cx) = @_;
    $cx->ITERDATA_SET($cx->iterdata);
    return;
}


sub ITERVAR{
    my($cx) = @_;
    if(USE_ITHREADS){
        if($cx->padvar){
            return $cx->CURPAD_SV($cx->iterdata);
        }
        else{
            return $cx->iterdata->SV;
        }
    }
    else{
        return $cx->iterdata;
    }
}
sub ITERDATA_SET{
    my($cx, $idata) = @_;
    if(USE_ITHREADS){
        $cx->CURPAD_SAVE();
    }

    $cx->itersave($cx->ITERVAR);
}

no Mouse;
__PACKAGE__->meta->make_immutable();

package Acme::Perl::VM::Context::GivenWhen;
use Mouse;
extends 'Acme::Perl::VM::Context::BLOCK';

no Mouse;
__PACKAGE__->meta->make_immutable();

package Acme::Perl::VM::Context::GIVEN;
use Mouse;
extends 'Acme::Perl::VM::Context::GivenWhen';

no Mouse;
__PACKAGE__->meta->make_immutable();

package Acme::Perl::VM::Context::WHEN;
use Mouse;
extends 'Acme::Perl::VM::Context::GivenWhen';

no Mouse;
__PACKAGE__->meta->make_immutable();

package Acme::Perl::VM::Context::SUBST;
use Mouse;
extends 'Acme::Perl::VM::Context';

no Mouse;
__PACKAGE__->meta->make_immutable();

__END__

=head1 NAME

Acme::Perl::VM::Context - Context classes for APVM

=head1 SYNOPSIS

    use Acme::Perl::VM;

=head1 SEE ALSO

L<Acme::Perl::VM>.

=cut