I see what you mean. Well, damn. I have modified the code so much now that I don't have time to break it and go back to find out exactly what was going on. However, in that same program, I used to have an END{} subroutine that dealt with the same object. Like this:

eval { $lock->remove() };

if ($@) {
    if (my $exception = My::Exception::Lock::NotFound->caught()) {
        warn $exception;
    } else {
        die $@;
    }
}
[download]

Maybe that had something to do with why I wasn't getting the object-method-not-found error?