The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
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