File Coverage

blib/lib/Devel/Chitin/OpTree/PADOP.pm
Criterion Covered Total %
statement 9 12 75.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 17 70.5


line stmt bran cond sub pod time code
1             package Devel::Chitin::OpTree::PADOP;
2 35     35   185 use base 'Devel::Chitin::OpTree';
  35         54  
  35         3270  
3              
4             our $VERSION = '0.12'; # TRIAL
5              
6 35     35   194 use strict;
  35         48  
  35         634  
7 35     35   146 use warnings;
  35         48  
  35         2485  
8              
9             sub pp_gv {
10 0     0 0   my $self = shift;
11 0           my $gv = $self->_padval_sv($self->op->padix);
12 0           $self->_gv_name( $gv );
13             }
14             *pp_gvsv = \&pp_gv;
15              
16             1;
17              
18             __END__