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   239 use base 'Devel::Chitin::OpTree::UNOP';
  35         65  
  35         4295  
3              
4             our $VERSION = '0.15';
5              
6 35     35   226 use strict;
  35         67  
  35         984  
7 35     35   200 use warnings;
  35         68  
  35         3320  
8              
9             sub pp_method_named {
10 2     2 0 4 my $self = shift;
11              
12 2         14 my $sv = $self->op->meth_sv;
13 2 50       12 $sv = $self->_padval_sv($self->op->targ) unless $$sv; # happens in thread-enabled perls
14              
15 2         13 $sv->PV;
16             }
17              
18             1;
19              
20             __END__