File Coverage

blib/lib/Devel/Chitin/OpTree/LOOP.pm

Criterion	Covered	Total	%
statement	11	16	68.7
branch			n/a
condition			n/a
subroutine	4	7	57.1
pod	2	4	50.0
total	17	27	62.9

package Devel::Chitin::OpTree::LOOP;
use base 'Devel::Chitin::OpTree::LISTOP';

our $VERSION = '0.15';

use strict;
use warnings;

sub pp_enterloop { '' } # handled inside pp_leaveloop

sub nextop {
    my $self = shift;
    $self->_obj_for_op($self->op->nextop);
}

sub redoop {
    my $self = shift;
    $self->_obj_for_op($self->op->redoop);
}

sub lastop {
    my $self = shift;
    $self->_obj_for_op($self->op->lastop);
}

1;

__END__