use Example::Module; use Example::Module::Enhanced; my $obj = Example::Module->new; my $obj2 = Example::Module->new; Example::Module::Enhanced->patch_object( $obj ); # Now $obj1 has your monkey patch, but $obj2 is still non-patched!!!