File Coverage

blib/lib/Monkey/Patch/Handle/Object.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 21 22 95.4


line stmt bran cond sub pod time code
1             package Monkey::Patch::Handle::Object;
2             BEGIN {
3 3     3   123 $Monkey::Patch::Handle::Object::VERSION = '0.03';
4             }
5 3     3   14 use strict;
  3         6  
  3         79  
6 3     3   16 use warnings;
  3         5  
  3         193  
7              
8 3     3   16 use base 'Monkey::Patch::Handle::Class';
  3         5  
  3         298  
9              
10             sub should_call_code {
11 6     6 0 17 my ($self, $invocant) = @_;
12 3     3   15 no warnings 'numeric';
  3         12  
  3         190  
13 6         46 return $self->{object} == $invocant;
14             }
15              
16             1;
17              
18             =pod
19              
20             =begin Pod::Coverage
21              
22             .*
23              
24             =end Pod::Coverage