What are you talking about? That code still gives the Can't locate object method "caught" via package "My::Execption::Lock::Exists" (perhaps you forgot to load "My::Execption::Lock::Exists"?) error message.
The if is never false (as you say) or even true, since perl dies from the type before the if expression gets completely evaluated. Similarly, the die is never reached, since the if encountered a fatal error.
I suspect the if was within eval's block.
In reply to Re^3: Perl OO Lint
by ikegami
in thread Perl OO Lint
by jffry
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |