Because my if () was always false due to a mispelling, I was just dieing with the prior eval error message, thus supressing the "missing object method" error message. Egads!eval { $lock->create() }; if (my $exception = My::Execption::Lock::Exists->caught()) { while ($lock->query()) { sleep 180; } exit 0; } die $@ if $@;
My shame for all Perl monks to see.
In reply to Re^2: Perl OO Lint
by jffry
in thread Perl OO Lint
by jffry
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |