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


line stmt bran cond sub pod time code
1             package Devel::Chitin::OpTree::COP;
2 35     35   228 use base 'Devel::Chitin::OpTree';
  35         78  
  35         3670  
3              
4             our $VERSION = '0.15';
5              
6 35     35   200 use strict;
  35         66  
  35         710  
7 35     35   183 use warnings;
  35         71  
  35         7741  
8              
9             sub pp_nextstate {
10 1052     1052 0 1615 my $self = shift;
11              
12 1052         1575 my @package_and_label;
13              
14 1052         2477 my $cur_cop = $self->_get_cur_cop;
15 1052 100 100     2965 if ($cur_cop and !$self->is_null and $self->op->stashpv ne $cur_cop->op->stashpv) {
      100        
16 2         5 push @package_and_label, 'package ' . $self->op->stashpv . ';';
17             }
18              
19 1052 100 100     2628 if (!$self->is_null and my $label = $self->op->label) {
20 2         8 push @package_and_label, "$label:";
21             }
22              
23 1052 100 100     3760 $self->_set_cur_cop if (!$cur_cop or !$self->is_null);
24              
25 1052         3533 join(";\n", @package_and_label);
26             }
27             *pp_dbstate = \&pp_nextstate;
28             *pp_setstate = \&pp_nextstate;
29              
30             1;
31              
32             __END__