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   206 use base 'Devel::Chitin::OpTree::UNOP';
  35         60  
  35         3524  
3              
4             our $VERSION = '0.12'; # TRIAL
5              
6 35     35   198 use strict;
  35         53  
  35         721  
7 35     35   185 use warnings;
  35         75  
  35         2455  
8              
9             sub pp_method_named {
10 2     2 0 5 my $self = shift;
11              
12 2         4 my $sv = $self->op->meth_sv;
13 2 50       5 $sv = $self->_padval_sv($self->op->targ) unless $$sv; # happens in thread-enabled perls
14              
15 2         11 $sv->PV;
16             }
17              
18             1;
19              
20             __END__