File Coverage

blib/lib/Devel/Chitin/OpTree/METHOP.pm
Criterion Covered Total %
statement 13 13 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 18 20 90.0


line stmt bran cond sub pod time code
1             package Devel::Chitin::OpTree::METHOP;
2 35     35   192 use base 'Devel::Chitin::OpTree::UNOP';
  35         60  
  35         3278  
3              
4             our $VERSION = '0.16';
5              
6 35     35   185 use strict;
  35         53  
  35         796  
7 35     35   162 use warnings;
  35         59  
  35         2960  
8              
9             sub pp_method_named {
10 2     2 0 3 my $self = shift;
11              
12 2         5 my $sv = $self->op->meth_sv;
13 2 50       7 $sv = $self->_padval_sv($self->op->targ) unless $$sv; # happens in thread-enabled perls
14              
15 2         17 $sv->PV;
16             }
17              
18             1;
19              
20             __END__