view release on metacpan or  search on metacpan

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

    isa => 'B::AV',
);

has lval => (
    is  => 'rw',
    isa => 'Bool',
);

sub BUILD{
    my($cx) = @_;

    $cx->olddepth($cx->cv->DEPTH);
    return;
}

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

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

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

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

use Acme::Perl::VM qw($PL_op $PL_curcop);

has label => (
    is  => 'rw',
    isa => 'Maybe[Str]',
);
has resetsp => (
    is  => 'rw',
    isa => 'Int',

    required => 1,
);
has myop => (
    is  => 'rw',
    isa => 'B::LOOP',
);
has nextop => (
    is  => 'rw',
    isa => 'B::OP',
);

sub BUILD{
    my($cx) = @_;

    $cx->label($PL_curcop->label);
    $cx->myop($PL_op);
    $cx->nextop($PL_op->nextop);

    return;
}

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;
}