File Coverage

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

Criterion	Covered	Total	%
statement	18	18	100.0
branch	6	6	100.0
condition	12	12	100.0
subroutine	4	4	100.0
pod	0	1	0.0
total	40	41	97.5

package Devel::Chitin::OpTree::COP;
use base 'Devel::Chitin::OpTree';

our $VERSION = '0.12'; # TRIAL

use strict;
use warnings;

sub pp_nextstate {
    my $self = shift;

    my @package_and_label;

    my $cur_cop = $self->_get_cur_cop;
    if ($cur_cop and !$self->is_null and $self->op->stashpv ne $cur_cop->op->stashpv) {
        push @package_and_label, 'package ' . $self->op->stashpv . ';';
    }

    if (!$self->is_null and my $label = $self->op->label) {
        push @package_and_label, "$label:";
    }

    $self->_set_cur_cop if (!$cur_cop or !$self->is_null);

    join(";\n", @package_and_label);
}
*pp_dbstate = \&pp_nextstate;
*pp_setstate = \&pp_nextstate;

1;

__END__