File Coverage

blib/lib/Monkey/Patch/Handle/Class.pm
Criterion Covered Total %
statement 17 18 94.4
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 24 27 88.8


line stmt bran cond sub pod time code
1             package Monkey::Patch::Handle::Class;
2             BEGIN {
3 3     3   67 $Monkey::Patch::Handle::Class::VERSION = '0.03';
4             }
5 3     3   20 use strict;
  3         7  
  3         78  
6 3     3   13 use warnings;
  3         6  
  3         69  
7              
8 3     3   14 use base 'Monkey::Patch::Handle';
  3         4  
  3         535  
9 3     3   2827 use SUPER;
  3         10712  
  3         354  
10              
11             sub call_default {
12 3     3 0 5 my $self = shift;
13 3         6 my $class = $self->{package};
14 3         16 my ($super) = SUPER::find_parent($class, $self->{subname});
15 3 50       257 goto &$super if $super;
16 0           return;
17             }
18              
19             1;
20              
21             =pod
22              
23             =begin Pod::Coverage
24              
25             .*
26              
27             =end Pod::Coverage