package Monkey::Patch::Handle::Object; BEGIN { $Monkey::Patch::Handle::Object::VERSION = '0.03'; } use strict; use warnings; use base 'Monkey::Patch::Handle::Class'; sub should_call_code { my ($self, $invocant) = @_; no warnings 'numeric'; return $self->{object} == $invocant; } 1; =pod =begin Pod::Coverage .* =end Pod::Coverage